連続するテキストボックスの中身をかきかえるには？ (ID:104531)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 フォームのControls プロパティにコントロール名を編集して指定すれば 良いと思います。 例えば、こんな感じとか・・・ Private Sub Command2_Click() Dim l As Long For l = 1 To 20 With Me.Controls("Text" & CStr(l)) .Text = CStr(Val(.Text) + 1) End With Next End Sub こんな感じでも良いかな？ Private Sub Command1_Click() Dim oCtrl As Control For Each oCtrl In Me.Controls If TypeOf oCtrl Is TextBox Then oCtrl.Text = CStr(Val(oCtrl.Text) + 1) End If Next End Sub