こんな意味?
Private Sub TextBox1_Change()
ComboBox1.Visible = TextBox1.Value <> ""
End Sub
Private Sub ComboBox1_Change()
TextBox2.Visible = ComboBox1.Value <> ""
End Sub
Private Sub TextBox2_Change()
ComboBox2.Visible = TextBox2.Value <> ""
End Sub
Private Sub ComboBox2_Change()
TextBox3.Visible = ComboBox2.Value <> ""
End Sub
お礼
一発回答ありがとうございます。 「こんな意味」でした。仰るとおりです。 これで今日の仕事2時間ぐらいかかってできなかったのに・・・わかる人からしたら、あっという間なんですね。そうかそうか・・・今、ソースを貼り付けてみて、思った通りなので感動いたしました!ありがとうございました。