Excel VBA質問箱 IV

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

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


38931 / 76732 ←次へ | 前へ→

【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
0 hits

【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 お礼

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