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