Excel VBA質問箱 IV

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

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


19599 / 76732 ←次へ | 前へ→

【62563】Re:循環問題があります
発言  ichinose  - 09/7/31(金) 7:50 -

引用なし
パスワード
   おはようございます。現象の確認ができました。
A.xls
コントロールツールボックスのコマンドボタンをシートに貼り付けている
ということで良いですか?

だとすると、対象シートのモジュールに

Private Sub CommandButton1_Click()
  workbooks.open "c:\b.xls"
End Sub
Private Sub CommandButton2_Click()
  On Error Resume Next
  With Workbooks("B.XLS")
    .b_loop = False
  End With
  Application.OnTime Now(), Me.[_CodeName] & ".b_close"
  On Error GoTo 0
End Sub
Sub b_close()
  Workbooks("B.XLS").Close False
  MsgBox "TESTING"
End Sub


B.xlsのThisworkbookのモジュールに


Option Explicit
Public b_loop As Boolean
Private Sub Workbook_Open()
  b_loop = True
  Do While b_loop
   DoEvents
  Loop
End Sub


これで試してみてください。
滅多にこんなコードは書きませんが、要注意ですねえ!!
95 hits

【62506】循環問題があります BYRONWOO 09/7/27(月) 11:20 質問
【62517】Re:循環問題があります 脱 初心者 09/7/28(火) 14:02 発言
【62551】Re:循環問題があります BYRONWOO 09/7/29(水) 17:05 質問
【62555】Re:循環問題があります ponpon 09/7/29(水) 22:19 発言
【62562】Re:循環問題があります byronwoo 09/7/30(木) 22:06 質問
【62563】Re:循環問題があります ichinose 09/7/31(金) 7:50 発言
【62564】Re:循環問題があります 追伸 ichinose 09/7/31(金) 7:55 発言
【62565】Re:循環問題があります 別解 ichinose 09/7/31(金) 10:27 発言
【62579】Re:循環問題があります 別解 byronwoo 09/8/1(土) 16:09 回答
【62569】Re:循環問題があります 脱 初心者 09/7/31(金) 17:41 発言
【62578】Re:循環問題があります byronwoo 09/8/1(土) 16:03 質問

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