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