Excel 带字符串的公式

Excel 带字符串的公式,excel,vba,textbox,Excel,Vba,Textbox,我正在尝试根据文本框的名称进行循环。例如,我在文本框中有以下名称txtRA1、txtRA2、txtRA3、txtRA4。我想把一个I作为整数放在它们的数字的局部。我该怎么做?有办法吗?下面是代码:-->“Userform3.txtRA&i.Text” 尝试Userform3.Controls(“txtRA”&i).Text Private Sub btGerarRelatorio_Click() Dim tWB As Workbook, aWB As Workbook Dim i

我正在尝试根据文本框的名称进行循环。例如,我在文本框中有以下名称txtRA1、txtRA2、txtRA3、txtRA4。我想把一个I作为整数放在它们的数字的局部。我该怎么做?有办法吗?下面是代码:-->“Userform3.txtRA&i.Text”


尝试
Userform3.Controls(“txtRA”&i).Text

Private Sub btGerarRelatorio_Click()
    Dim tWB As Workbook, aWB As Workbook
    Dim i As Integer, k As Integer, nr As Integer, v As Integer
    Dim A() As String, filename As String
    Set tWB = ThisWorkbook
    filename = Auxiliar.Range("bd_alunos")
    Workbooks.Open filename, Password:="***"
    Set aWB = ActiveWorkbook
    ReDim A(6) As String
    aWB.Worksheets("BD_Alunos").Activate
    nr = aWB.Worksheets("BD_Alunos").Application.WorksheetFunction.CountA(Columns("B:B")) - 1
    For i = 1 To 4
        For k = 1 To nr
            If aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 1) = ***UserForm3.txtRA&i.text*** Then
                A(1) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 2)
                A(2) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 3)
                A(3) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 47)
                A(4) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 48)
                A(5) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 49)
                A(6) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 50)
                v = 1
            End If

            If verific = 1 Then
                Exit For
            End If
        Next k
    Next i

    aWB.Close Savechanges:=True
End Sub