以下のコードを実行すると、途中でステータスバーが初期化?されて「準備完了」という表記に戻ってしまいます。
最初のほうは正しく表示されます。
DoEventsがないと「応答なし」になるため、できればステータスバーが初期化?されない方法が知りたいです。
Sub test()
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To 100000
Application.Statusbar = "実行中..."
(特定セル内容を別シートへ転記する処理)
DoEvents
Next i
Application.Statusbar = False
Application.ScreenUpdating = True
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
ステータスバーの表示が戻ってしまう原因はわかりませんが、
For~Nextの実行中にステータスバーに”実行中”と表示したいだけであれば、
Application.Statusbar = "実行中..."
DoEvents’不要かも?
Application.ScreenUpdating = False
For i = 1 To 100000
(特定セル内容を別シートへ転記する処理)
Next i
・・・
としてみてはどうでしょうか。
回答ありがとうございます。
失礼しました。コードの転記ミスで、Statusbarは外にでてました。すみません。
しかし、Statusbar をFor Nextの外に出しても表示が戻ってしまいます。
Statusbarって別ブックを開くと別ブックにStatusbarが適用されないとかなんかよく分かってないまま使ってます。
まぁ、応答なしにこだわらなければいいので、問題はないのですが...。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルStatusBar表示が変化しない
Excel(エクセル)
-
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
DoEvents関数って何?
Visual Basic(VBA)
-
5
Application.ScreenUpdating=Falseを使うと・・・。
Access(アクセス)
-
6
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
7
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
8
StatusStripの表示が更新されない?
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
DoEventsがやはり分からない
Visual Basic(VBA)
-
11
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
配列に中で一番小さい値を教えてくれる関数ありませんか/アクセス、VBA
PowerPoint(パワーポイント)
-
14
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
15
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
16
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
17
Excel VBA で処理中断(DoEvents)ができなくて困ってい
Visual Basic(VBA)
-
18
Microsoft VBAで2GBを超えるファイルサイズのバイナリデータを読み込みたい。
Visual Basic(VBA)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
if(1){...}とはどういうことで...
-
C#でボタン名を変更しても動く
-
jQuery ui Datepicker 明日以降...
-
Ajaxがおかしいんです
-
PowerPointで時計表示
-
初心者です。gulpでコンパイル...
-
VBA SORT Applyでエラー
-
VB.netでタイマーがスタートし...
-
セキュリティの質問です。 ①任...
-
リクエスト結果が一瞬しか表示...
-
innerHTMLなどの反映タイミング
-
jqueryのbxsliderをマウスオー...
-
javascriptで最初のところに戻...
-
OnTime を使って、分間隔で実行...
-
alert()が実行できない
-
1つのVBAコードをすべてのコア...
-
system関数を使用時にDos窓を最...
-
VBA フォルダ内の複数Excelファ...
-
ラベルの色がかわってくれない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
デザイン時のVisible=Falseは実...
-
初心者です。gulpでコンパイル...
-
if(1){...}とはどういうことで...
-
リクエスト結果が一瞬しか表示...
-
resizeToメソッドが動作しません
-
C#でボタン名を変更しても動く
-
jQuery ui Datepicker 明日以降...
-
〔Excel:VBA〕マクロの実行が異...
-
PowerPointで時計表示
-
1つのVBAコードをすべてのコア...
-
VBA ステータスバー DoEvents
-
VBA SORT Applyでエラー
-
Excel VBA にて JavaScript の...
-
alert()が実行できない
-
GoTo文とかSelect文の処理の仕...
-
既存のwebサイトで、ローカルの...
-
一定時間ごとの実行
-
javascriptで最初のところに戻...
-
eval()の危険性の具体例を教え...
おすすめ情報