Excel VBA質問箱 IV

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

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


34004 / 76738 ←次へ | 前へ→

【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で出来るのはせいぜいこの程度です。
(色々と試してみるとわかりますが、
この程度の動作だって場合によれば止まってしまいます)

0 hits

【47910】マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 13:43 質問
【47921】Re:マクロをバックグラウンドで実行 Jaka 07/3/26(月) 17:14 発言
【47923】Re:マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 18:29 発言
【47925】Re:マクロをバックグラウンドで実行 ichinose 07/3/26(月) 20:06 発言
【47927】Re:マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 23:34 お礼
【47928】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 1:45 質問
【47930】Re:マクロをバックグラウンドで実行 ichinose 07/3/27(火) 7:46 発言
【47940】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 10:45 発言
【47942】Re:マクロをバックグラウンドで実行 Jaka 07/3/27(火) 11:02 発言
【47945】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 13:40 発言
【47947】Re:マクロをバックグラウンドで実行 Jaka 07/3/27(火) 15:01 発言
【47949】Re:マクロをバックグラウンドで実行 ichinose 07/3/27(火) 19:46 発言
【47953】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 20:45 お礼

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