Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6817 / 13644 ツリー ←次へ | 前へ→

【42950】途中でフリーズしてしまう 氷雨 06/9/26(火) 23:54 質問[未読]
【42951】Re:途中でフリーズしてしまう りん@通りすがり 06/9/27(水) 12:58 発言[未読]

【42950】途中でフリーズしてしまう
質問  氷雨  - 06/9/26(火) 23:54 -

引用なし
パスワード
   AフォームにAボタン、BフォームにBボタンを配置し、Aボタンを押すとAフォームを消し(.Hide)、Bフォームを出す(.Show)ようにし、Bボタンを押すとBフォームを消し、Aフォームを出す、という処理を行っています。
つまり、AフォームとBフォームが交互に出現し続けるというものです。

これだと無限にAフォームとBフォームを出現させ続けられると思ったのですが、いつも同じ回数で動作が止まってしまいます。

この原因は何なのでしょうか?
また解決策はあるのでしょうか?

何方かご教授お願いします。

【42951】Re:途中でフリーズしてしまう
発言  りん@通りすがり  - 06/9/27(水) 12:58 -

引用なし
パスワード
   氷雨 さん、こんにちわ。

>これだと無限に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)を詳しく書けばアドバイスもつきやすくなると思います。

6817 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free