Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18289 / 76732

←次へ　｜　前へ→


	【63886】ComboBox_Changeについて

stamp - 09/12/25(金) 19:42 -


	引用なし

	パスワード

初めて投稿させて頂きます。

下記の、ComboBox_Change()の部分ですが、
For Nextなどを使って、一つにまとめられないでしょうか？

ネットで検索しながら、色々と試してみたのですが、
どうしてもTextBoxへ反映させる事ができませんでした。

どなたか、御親切な方に教えて頂きたく。

Private Sub UserForm_Initialize()
　　Dim cmb(5) As ComboBox
　　
　　Set cmb(0) = ComboBox1
　　Set cmb(1) = ComboBox2
　　Set cmb(2) = ComboBox3
　　Set cmb(3) = ComboBox4
　　Set cmb(4) = ComboBox5
For i = 0 To 4
　　With cmb(i)
　　.AddItem "AAA"
　　.AddItem "BBB"
　　End With
Next
End Sub
- - - - - - - - - - - - - - - - - - - - - - - -
Private Sub ComboBox1_Change()
　　Me.Controls("TextBox27").Value = ComboBox1
End Sub

Private Sub ComboBox2_Change()
　　Me.Controls("TextBox28").Value = ComboBox2
End Sub
・
・
・
Private Sub ComboBox5_Change()
　　Me.Controls("TextBox31").Value = ComboBox5
End Sub

0 hits

▼

【63886】ComboBox_Changeについて stamp 09/12/25(金) 19:42

≪