Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6820 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42914】Msg　Box ちびすけ 06/9/25(月) 12:54 質問[未読]
【42918】Re:Msg　Box パン 06/9/25(月) 13:41 発言[未読]
【42922】Re:Msg　Box ちびすけ 06/9/25(月) 14:12 お礼[未読]
【42925】Re:Msg　Box ハチ 06/9/25(月) 15:38 発言[未読]
【42934】Re:Msg　Box ちびすけ 06/9/26(火) 9:21 お礼[未読]
【42914】Msg　Box
質問  ちびすけ  - 06/9/25(月) 12:54 -
引用なし
パスワード
   マクロによっては
実行時間が10分ほどかかるものもあります。
実行中に「マック実行中」と
メッセージボックスを表示したいのですが、
簡単に出来ないものでしょうか？
【42918】Re:Msg　Box
発言  パン E-MAIL  - 06/9/25(月) 13:41 -
引用なし
パスワード
   ▼ちびすけ さん：
こんにちは、パンです。
ここが、参考になります、色々やり方がありますので。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_090_040.html

ついでに、時間短縮が出来るかも調べると結構ありますよ。


>マクロによっては
>実行時間が10分ほどかかるものもあります。
>実行中に「マック実行中」と
>メッセージボックスを表示したいのですが、
>簡単に出来ないものでしょうか？
【42922】Re:Msg　Box
お礼  ちびすけ  - 06/9/25(月) 14:12 -
引用なし
パスワード
   ▼パン さん：
>▼ちびすけ さん：
>こんにちは、パンです。
>ここが、参考になります、色々やり方がありますので。
>
>http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_090_040.html
>
>ついでに、時間短縮が出来るかも調べると結構ありますよ。

HP見に行きました。
現段階で出来るっとは、言えそうにありませんが、
近い将来の課題にします。
ありがとうございます。
【42925】Re:Msg　Box
発言  ハチ  - 06/9/25(月) 15:38 -
引用なし
パスワード
   ▼ちびすけ さん：
>マクロによっては
>実行時間が10分ほどかかるものもあります。
>実行中に「マック実行中」と
>メッセージボックスを表示したいのですが、
>簡単に出来ないものでしょうか？

簡単なモノならUserFormを使うと
こんな感じでもできそうです。
UserForm1を作成。Label1に表示したいメッセージを書いて置いてください。

Option Explicit

Sub Test()
　　Dim r As Long, c As Integer
　　
　　Cells.ClearContents

　　UserForm1.Show False
　　DoEvents
　　
　　'ここに該当の処理を。Testでは10万セルに書き込み
　　Application.ScreenUpdating = False
　　　　For c = 1 To 10
　　　　　　For r = 1 To 10000
　　　　　　　　Cells(r, c) = r & "," & c
　　　　　　Next r
　　　　Next c
　　Application.ScreenUpdating = True
　　
　　Unload UserForm1
End Sub
【42934】Re:Msg　Box
お礼  ちびすけ  - 06/9/26(火) 9:21 -
引用なし
パスワード
   上手くいきました。
作業状態が確認できて、
やっぱり便利です。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6820 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free