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

名前

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

本文 テキストボックスのときはできたました。 ありがとうございました。 もう一つ質問です。 コンボボックスのときは、 下のようなコードを組みましたが まったく反応してくれません。 何故でしょうか？ Private Sub Combo1_Change() Call チェンジ End Sub Private Sub Combo2_Change() Call チェンジ End Sub Private Sub Form_Load() With Combo1 .Clear .AddItem 3 .AddItem 5 .AddItem 6 End With With Combo2 .Clear .AddItem 6 .AddItem 13 .AddItem 21 .AddItem 44 End With End Sub Private Function チェンジ() If Form1.Visible = False Then Exit Function On Error Resume Next Text3.Text = CLng(Combo1.Text) * CLng(Combo2.Text) On Error GoTo 0 End Function