ForNext文のループ値がおかしいのですが
エクセル2003のVBAで、以下のコードを実行すると、
3つ目のメッセージボックスで「121」と表示されます。
1つ目、2つ目のメッセージボックスは「1」と表示されます。
ユーザーフォームで、テキストボックスを貼り付ける際に、
注意事項があるのでしょうか?
ループ文も間違ってないと思うのですが。
原因と対処法がわかるかた、もしくはこれだろうと予測がつく方は、
教えてください。よろしくお願いいたします。
'ユーザーフォームロード時
Private Sub UserForm_Initialize()
'【一括設定】補正値代入(デフォルト値)
Me.TextBox100.Text = "XXX"
For i = 1 To 10
'ファイル名代入
Me.Controls("TextBox" & i).Value = Left(strFileName(i), 4)
msgbox i
'補正値(デフォルト)
Me.Controls("TextBox" & i + 10).Value = "XXX"
msgbox i
'大気圧(デフォルト)
Me.Controls("TextBox" & i + 20).Value = "XXX"
msgbox i
'給気圧(デフォルト)
Me.Controls("TextBox" & i + 30).Value = "XXX"
'系列
Me.Controls("TextBox" & i + 50).Value = "XXX"
'グラフメモ(デフォルト)
Me.Controls("TextBox" & i + 100).Value = "XXX"
Next i
End Sub