| |
おはようございます。
>そこで質問ですが バー作動中に
>他のコードを実行させるにはどのように
>このコードに当てたらいいのですか？
>教えて下さい。
う〜ん、具体的にどのようなことがしたいのか
例を挙げてください。
上記の記述から、はっきりと何が知りたいの特定できません。
>>新規ブックにユーザーフォーム（Userform1）だけ作成してください。
>>（コントロールは、動的に作成しますから、要りません）
>>
>>標準モジュールに
>>
>>'===========================================================
>>Sub main()
>> Dim i As Long
>> With Cells(1, 1)
>> .value = 0
>> Call init_progress_form
>> Do Until .value = 20000
>> Call set_progress_form(.value, 20000, "実行中")
>> .value = .value + 1
>> Loop
>> Call term_progress_form
>> End With
>>End Sub
このコードは、セルＡ１（Cells(1,1)）に初期値0を与え、
＋１ずつ20000になるまで加算する、
というプログラムです。
この実行過程をラベルで表示しようとした例です。
本来の仕様は、あくまでも
「セルＡ１（Cells(1,1)）に初期値0を与え、
＋１ずつ20000になるまで加算する」
なのです。
コードは、セルＡ１に20000回、 1を加算するループ内で
途中経過をユーザーフォームのラベルに表示していますよね？
この関係を知りたいということですか？
だとしたら、角田さんのＨＰで詳しく説明されていますから、
これを参考にしてください。
www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
↑の特に「２．プログレスバーを作るのに必要な事」を
をよく読んでみてください。
そうではなく別の意味ですか（ひとつ心当たりがありますが）？
だとしたら、冒頭で申し上げたとおり、具体例を挙げて
知りたいことを説明してください。
|
|
ichinose
- 07/3/27(火) 7:46 -
