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