Excel VBA質問箱 IV

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

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


30960 / 76732 ←次へ | 前へ→

【51031】Re:ユーザーフォームの表示
質問  acch  - 07/8/26(日) 7:59 -

引用なし
パスワード
   下記のようにやってみましたが、やはり一時停止(×取消ボタンで解除します)します。


Dim i As Long
Sub demo()
 For i = 1 To 9
 With UserForm1
  .Label1.Caption = i & "枚目の印刷をしています。"
  .TextBox1.Text = i & "枚目の印刷をしています。"
 End With
 UserForm1.Show
 Next
  Application.Wait Now + TimeValue("00:00:11") '一秒時間を取っています
 With UserForm1
  .Label1.Caption = "処理が終わりました。"
  .TextBox1.Text = "処理が終わりました。"
 End With
 UserForm1.Show
End Sub
3 hits

【51015】ユーザーフォームの表示 acch 07/8/25(土) 16:06 質問
【51018】Re:ユーザーフォームの表示 Mimi 07/8/25(土) 18:07 発言
【51019】Re:ユーザーフォームの表示 acch 07/8/25(土) 19:06 質問
【51021】Re:ユーザーフォームの表示 SS 07/8/25(土) 20:12 発言
【51022】Re:ユーザーフォームの表示 ぱっせんじゃー 07/8/25(土) 20:18 発言
【51024】Re:ユーザーフォームの表示 Mimi 07/8/25(土) 22:57 発言
【51031】Re:ユーザーフォームの表示 acch 07/8/26(日) 7:59 質問
【51034】Re:ユーザーフォームの表示 ikeri 07/8/26(日) 11:03 回答
【51035】Re:ユーザーフォームの表示 acch 07/8/26(日) 14:21 質問
【51036】Re:ユーザーフォームの表示 bb 07/8/26(日) 14:50 発言
【51037】Re:ユーザーフォームの表示 neptune 07/8/26(日) 14:54 発言
【51055】Re:ユーザーフォームの表示 acch 07/8/27(月) 8:56 質問
【51057】Re:ユーザーフォームの表示 SS 07/8/27(月) 9:32 発言
【51058】Re:ユーザーフォームの表示 neptune 07/8/27(月) 9:32 発言

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