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