AfterUpdateを使うには？ (ID:126843)

名前

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

本文 Private Sub Form_Load() With Combo1 .Clear .AddItem 3 .AddItem 5 .AddItem 6 .Text = 1 End With With Combo2 .Clear .AddItem 6 .AddItem 13 .AddItem 21 .AddItem 44 Call Combo2_Change End With End Sub 直接呼び出すか、 Textプロパティの値が変更された時のみ動作します。