拙いですが、以下のようなマクロを組みました。このマクロが稼働していることを、画面上にプログレスバーを表示して進捗状況として示したいのですが、よくわかりません。どのようなマクロを組んだらよいか、お教え下さい。
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub 時間割のコピー1()
Dim j As Integer
Application.ScreenUpdating = False
Range("BF20:BF30").Name = "理系1"
Range("BH20:BH30").Name = "理系2"
Range("BJ20:BJ30").Name = "理系3"
Range("BL20:BL30").Name = "英国1"
Range("BN20:BN30").Name = "英国2"
Range("BP20:BP30").Name = "英国3"
Range("BR20:BR30").Name = "数社1"
Range("BT20:BT30").Name = "数社2"
Range("BV20:BV30").Name = "数社3"
Range("理系1").Select
Selection.Copy
Range("AG20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG20").Activate
Do Until ActiveCell.Offset(1, -4).Value = ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
ActiveCell.ClearContents
End If
Loop
Range("AG20:AH20").Select
Selection.Activate
For j = 1 To 10
With Selection.Offset(j, 0)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
Next j
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
Range("理系2").Select
以下、この形が8回繰り返されます
End Sub
No.2ベストアンサー
- 回答日時:
#1でご紹介の、記事の初めの方に、いみじくも書かれています。
>プログレスバーを作るのに必要な事、以下に。
結局、この質問の作業の進捗率を正しく捉えられるか、ということを考えてみましたか。
観念的に初めと終わりを考え、途中に10%の処理が終わった瞬間があるはずだ、といった考えで考えて質問していませんか。
全体の時間というのはなかなか処理コードからでは出てこないものと思います。
繰り返しがある場合(レコードなどファイルIOを行うなど、内部処理と比較にならない時間を要するものの繰り返しなど)、毎回繰り返しは同じ時間と看做して、進捗率に看做す手はあるでしょう。しかし毎回繰り返しは同じ時間といえるかどうか、繰り返し外で時間がかかるタイプの処理ならば、どうするのか。
上記記事などには書いてなかったと思うのですが、いっそテストや本番の処理時間を実測して、毎回変わらないとして、終了が100秒後として10秒経ったら10%の表示をしてしまうのもあるような気がする。しかしこの仮定は怪しい。
ーーー
質問の>プログレスバーを表示や進捗率が算出されて表示するコードなど実例がWEB上に沢山あるで章しょう。
ーー
>・・状況として示したいのですが
これも質問者の趣味に回答者がつき合わされているようなもので、質問のコードの実行では、すぐ終わって、バー表地などの対象外ではないですか。
基本的なこと以外は、思いついたあることをしたい場合は、質問者で調べて勉強すべきです。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クラTの背ネームについて、理系...
-
「理系っぽい」ってどんな人の...
-
理系大学生の忙しさについて。
-
東京外国語大学は理系で行けま...
-
児童福祉司になりたいです。 今...
-
筑波大芸専門は、文系か理系か
-
今日大学受験だったのですが、...
-
理系の大学を出て数年で学んだ...
-
センター9割と9割5分取れる人って
-
今高校二年生で4月から3年にな...
-
高校1年生です。 横浜国立大学...
-
国立理系志望(1浪目)でセンター...
-
理系の大学で会計や簿記を学べ...
-
九州大学経済学部経済工学科と...
-
好きな公式教えて! 理系の方好...
-
今から文転・・・
-
理系大学1年生の1週間の休みは...
-
どちらの選択が、正しいのか、...
-
どっちがいいでしょうか?MARCH...
-
LINEのkeepとはどういった機能...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クラTの背ネームについて、理系...
-
東京外国語大学は理系で行けま...
-
研究室で女性一人、何かしてあ...
-
男なら理系の方がかっこいいで...
-
「理系っぽい」ってどんな人の...
-
名城大学の理系は賢いですか?
-
理系大学生の忙しさについて。
-
クラスTシャツの背ネームを考え...
-
大人になってから理系になるには?
-
センター9割と9割5分取れる人って
-
立命館大学理工学部の卒業生で...
-
作文の書き方
-
理系大学1年生の1週間の休みは...
-
理系だった方、教えて下さい
-
好きな公式教えて! 理系の方好...
-
数学IAで重要な単元はなんで...
-
内定が出て暇な理系大学生です...
-
理系から国公立の経済学部は無理?
-
理系の大学を出て数年で学んだ...
-
どちらの選択が、正しいのか、...
おすすめ情報