Excel VBA質問箱 IV

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

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


9385 / 13646 ツリー ←次へ | 前へ→

【27671】進捗状況をステータスバーで表示しているのですが見えにくいのです。 koba 05/8/15(月) 16:22 質問[未読]
【27672】Re:進捗状況をステータスバーで表示してい... ちくたく 05/8/15(月) 16:42 回答[未読]
【27674】Re:進捗状況をステータスバーで表示してい... koba 05/8/15(月) 16:59 質問[未読]
【27675】Re:進捗状況をステータスバーで表示してい... ちくたく 05/8/15(月) 17:08 回答[未読]
【27676】Re:進捗状況をステータスバーで表示してい... koba 05/8/15(月) 17:22 お礼[未読]
【27678】Re:進捗状況をステータスバーで表示してい... N 05/8/15(月) 17:46 発言[未読]
【27693】Re:進捗状況をステータスバーで表示してい... koba 05/8/16(火) 14:25 お礼[未読]

【27671】進捗状況をステータスバーで表示している...
質問  koba  - 05/8/15(月) 16:22 -

引用なし
パスワード
   今作成しているのがこんな感じです。

for ix1 = 1 to 10 step 1
  Application.StatusBar = "ただいま" & ix1 & "番分を作成中です"
  ここから他のプログラムが始まります。
next

これだと視界にあまり入らないので、処理が長い時に動いているのか止まってしまったのか、使っている人の判断に困ると言われました。

メッセージボックスみたいな表示方法で確認ボタン等を押さずに処理が進んでいくうちに表示内容を変えられる方法はないでしょうか?

まだまだ素人ですので、出来れば例文を教えていただけたら幸いです。

初歩的な質問かもしれませんがどうかよろしくお願い致します。

【27672】Re:進捗状況をステータスバーで表示して...
回答  ちくたく  - 05/8/15(月) 16:42 -

引用なし
パスワード
   こんにちは。

例えば、プログレスバーなどでいいのでしょうか?
過去ログを「プログレスバー」とかで検索してみてください。
いくつか記事がでてくると思います。
また、
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9g1810.html
なんかも見てみてください。

プログレスバーでよければ、上をチェックして頂いて、
また、わからない点とか質問して頂ければ、
わかる範囲でお答えさせて頂きたいと思います。

▼koba さん:
>今作成しているのがこんな感じです。
>
>for ix1 = 1 to 10 step 1
>  Application.StatusBar = "ただいま" & ix1 & "番分を作成中です"
>  ここから他のプログラムが始まります。
>next
>
>これだと視界にあまり入らないので、処理が長い時に動いているのか止まってしまったのか、使っている人の判断に困ると言われました。
>
>メッセージボックスみたいな表示方法で確認ボタン等を押さずに処理が進んでいくうちに表示内容を変えられる方法はないでしょうか?
>
>まだまだ素人ですので、出来れば例文を教えていただけたら幸いです。
>
>初歩的な質問かもしれませんがどうかよろしくお願い致します。

【27674】Re:進捗状況をステータスバーで表示して...
質問  koba  - 05/8/15(月) 16:59 -

引用なし
パスワード
   ちくたくさんこんにちわ。
早速のお返事ありがとうございます。

すぐにプログレスバーを取り入れてみましたが、パーセンテージではなく、今この処理をしているんですという表示が欲しいとの事でした。

関連サイトまで添付して頂いたのに恐縮ですが、他の方法で何かありますでしょうか?

貴重なご意見ありがとうございました。

【27675】Re:進捗状況をステータスバーで表示して...
回答  ちくたく  - 05/8/15(月) 17:08 -

引用なし
パスワード
   こんにちは。

>すぐにプログレスバーを取り入れてみましたが、パーセンテージではなく、今この処理をしているんですという表示が欲しいとの事でした。

ということが、
Application.StatusBar = "ただいま" & ix1 & "番分を作成中です"
の部分でしたら、
ユーザーフォームにラベルを張って、
Label1.Text = "ただいま" & ix1 & "番分を作成中です"
みたいにしたらいいかな、と思います。

ユーザーフォーム以外の方法は、私にはぱっと思いつきません。。。

【27676】Re:進捗状況をステータスバーで表示して...
お礼  koba  - 05/8/15(月) 17:22 -

引用なし
パスワード
   ちくたくさん、ありがとうございます。

ちくたくさんが教えてくれた方法でOKが出ました。

初心者の質問に丁寧にお答えを頂きありがとうございました。

これからも何かと質問を投稿することがあると思いますがその時も是非教えていただきたいと思います。

本当にありがとうございました。m(_ _)m

【27678】Re:進捗状況をステータスバーで表示して...
発言  N  - 05/8/15(月) 17:46 -

引用なし
パスワード
   ▼koba さん:

ご参考までですが・・・ちょっと泥臭いかも知れませんが・・・

標準モジュールに

Sub 表示()
UserForm1.Show
UserForm2.Show
End Sub


Sub マクロ1()
Dim i As Integer
For i = 1 To 5
Range("A5") = i
Application.Wait Now + TimeValue("00:00:01")
Next
Range("A5") = "終了"
Application.Wait Now + TimeValue("00:00:01")  Range("A5").ClearContents
End Sub

Sub マクロ2()
Dim i As Integer
For i = 1 To 5
Range("A11") = i
Application.Wait Now + TimeValue("00:00:01")
Next
Range("A11") = "終了"
Application.Wait Now + TimeValue("00:00:01")  
Range("A11").ClearContents
End Sub


ユーザフォームに
ユーザフォーム1と2を作り、テキスト表示させ

Private Sub UserForm_activate()
  DoEvents
  マクロ1
  Unload Me
End Sub

Private Sub UserForm_activate()
  DoEvents
  マクロ2
  Unload Me
End Sub


で表示が出来ます。

【27693】Re:進捗状況をステータスバーで表示して...
お礼  koba  - 05/8/16(火) 14:25 -

引用なし
パスワード
   Nさんこんにちわ。

貴重なご意見ありがとうございます。

教えていただいた方法でも表示する事が出来ました。

今回2つの違った方法で表示させる事が出来て、すごく勉強になりました。

初心者ですので、また違う事でも質問を投稿することがあると思いますが、

その時にも是非教えていただきたいと思います。

本当にありがとうございました。

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