hhhhhhh

質問

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3)
End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear
Select Case ComboBox1.Text
Case "1": ComboBox2.List = Array("1-1", "1-2", "1-3")
Case "2": ComboBox2.List = Array("2-1", "2-2", "2-3")
Case "3": ComboBox2.List = Array("3-1", "3-2", "3-3")
End Select
End Sub

回答No.1

noname#230359

この質問は↓の続きでしょうか？
http://mori.nc-net.or.jp/EokpControl?&tid=197234&event=QE0004
このタイトル本文とからはスパム投稿としか解釈できませんが？

また、このプログラムは流量計算や電力計算とかでも無さそうですが
何のプログラムで何を聞きたいのでしょう？