|
▼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で出来るのはせいぜいこの程度です。
>(色々と試してみるとわかりますが、
>この程度の動作だって場合によれば止まってしまいます)
↑実行してみました・・・かなり微妙な状態です。
アドバイス本当にありがとうございました。
マスター出来ませんが終了としたいと思います。
|
|