Excel VBA質問箱 IV

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

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


34000 / 76738 ←次へ | 前へ→

【47953】Re:マクロをバックグラウンドで実行
お礼  iino  - 07/3/27(火) 20:45 -

引用なし
パスワード
   ▼ichinose さん:
ありがとうございます。

>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 お礼

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