回復 1#yangjie
使用陣列 Ar = Array(TextBox3, TextBox4, TextBox5....)
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
For ii = 0 To UBound(AR)
AR(ii).Value = Sheets("學生資料").Cells(i, 6 + ii)
Next
End If
Next
回復 3#yangjie
Dim Ar(3 To 80) As MSForms.Control, i%
For i = 3 To 80
Set Ar(i) = Controls("TextBox" & i)
Next
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
For ii = 3 To UBound(AR)
AR(ii).Value = Sheets("學生資料").Cells(i, 6 + ii - 3)
Next
End If
Next
補上另一解法
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
For ii = 3 To 80
Controls("TextBox" & ii) = Sheets("學生資料").Cells(i, 6 + ii - 3)
Next
End If
Next
發表於 2010-10-7 08:09
| 