| |
氷雨 さん、こんにちわ。
>これだと無限にAフォームとBフォームを出現させ続けられると思ったのですが、いつも同じ回数で動作が止まってしまいます。
UserForm1のCommandButton1
Private Sub CommandButton1_Click()
With Application.ActiveSheet.Cells(1)
.Value = .Value + 1 'カウンタ＋１
End With
Me.Hide
UserForm2.Show
End Sub
UserForm2のCommandButton1
Private Sub CommandButton1_Click()
With Application.ActiveSheet.Cells(1)
.Value = .Value + 1 'カウンタ＋１
End With
Me.Hide
UserForm1.Show
End Sub
でアクティブシートのA1セルをカウンタとして数えてみましたが、200回クリックしてもエラーになりませんでした。
エラーになる回数と、エラーメッセージの内容、環境(当方のテストはWinXP&XLXP)を詳しく書けばアドバイスもつきやすくなると思います。
|
|
りん＠通りすがり
- 06/9/27(水) 12:58 -
