| 投稿日 | ： 2003/07/13(Sun) 17:29 |
| 投稿者 | ： 夢さん |
| ＵＲＬ | ： |
| タイトル | ： TextBox(n)の使い方について教えてください |
お久しぶりです。 夢さんです。
諸々の事情でＶＢＡを中断していました。
再起したのですが早速下記のことが分からなくなりました。
教えてください。
Private Sub OptionButton2_Click()
Dim TextBox(78) As String←この行が無いとこの下のTextBox(i)がコンパイルエラーとなります。
Sheets("ｘｘｘ").Select
dsuu2 = Cells(1, 2) + 5 '最終データの行数
For i = 2 To 16 'UserFormに登録されているコードの照合
If TextBox(i) = "" Then←2行目があるためTextBox(i)は全てブランクになります。
GoTo owari
End If
For j = 4 To 5 '15 'コードの照合
If Cells(2, j) = "" Then
GoTo owari
End If
'UserFormに登録されているコードとｘｘｘのコードが合った時の処理
If TextBox(i) = Cells(2, j) Then
TextBox(i + 45) = Cells(dsuu2, j)
以下省略
２行目と６行目の矢印の問題はどうしたらいいのでしょうか？
教えてください。