Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34073 / 76807

←次へ　｜　前へ→


	【47949】Re:マクロをバックグラウンドで実行

ichinose - 07/3/27(火) 19:46 -


	引用なし

	パスワード

こんばんは。
47945投稿も拝見しましたが、
必要性に疑問がありますが、可能か否かということだと
まず、難しいでしょうね！！

私が前回の47925で投稿したmainを以下のように変更してください。

Sub main()
　　Dim i As Long
　　i = 0
　　Cells(1, 1).value = 0
　　Call init_progress_form
　　Do Until i = 20000
　　　 Call set_progress_form(i, 20000, "実行中")
　　　 i = i + 1
　　　 Cells(1, 2).Select
　　　 Cells(1, 1).Select
　　　 Loop
　　Call term_progress_form
End Sub

'次いで同じ標準モジュールに
'=========================
Sub subproc()
　　With Cells(1, 1)
　　　 .value = .value + 1
　　　 End With
End Sub

↑これを追加してください。

47925で投稿した他のプロシジャーとUserform1は勿論必要ですよ！！

更に
Sheet1のモジュールに
'==========================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Address = "$A$1" Then
　　　 Call subproc
　　　 End If
End Sub

コードは以上です。

Sheet1をアクティブにした状態でmainを実行してください。

mainとsubprocが同時動いているように見えませんか？
（subprocを作動させるには、何かをトリガーにしなければなりません。
今回は、シートのイベントを使いました）

動作とコードをよく照らし合わせてください。

Excelで出来るのはせいぜいこの程度です。
（色々と試してみるとわかりますが、
この程度の動作だって場合によれば止まってしまいます）

2 hits

▼

【47910】マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 13:43