ユーザーフォームのTextBoxの操作について

質問

皆様、こんにちは。
いつもお世話になっております。
ユーザーフォームのテキストボックスに何も入力されていないと自動的に０が表示されるようにしたいですが、エラーが出てしまいます。
具体的に、

１テキストボックス
２テキストボックス
・・・
合計テキストボックス

があって、詳細が分からなくて合計のテキストボックスにのみ入力する時に、合計テキストボックスをクリックしたときにその他のボックスに０が表示されるように書きたいです。

Private Sub TextBox9_Enter()
Dim i As Integer
For i = 1 To 8
If TextBox(i).Text = "" Then
TextBox(i).Text = "0"
End If
Next i
End Sub

のように考えましたが、間違っていますね。
教えていただければ幸いです。
どうぞよろしくお願いいたします。

回答No.1

myRange · ベストアンサー

ExcelのUserFormのTextBoxなら
TextBox(i).Textのように配列にはできませんので
以下のようにする

'-----------------------------------　
Private Sub TextBox9_Enter()
　Dim i As Integer

　For i = 1 To 8
　　　If Controls("TextBox" & i).Text = "" Then
　　　　　Controls("TextBox" & i).Text = "0"
　　　End If
　Next i

End Sub
'-----------------------------------

以上ここまで。

お礼

myRange様、ありがとうございました！問題なく動いています。本当に助かりました! m(_ _)m