マクロを利用して各シートの行を非表示にしたいです。
下記のようにマクロを書いたのですが、実行すると1分ほどかかってしまいます。
マクロ初心者のため、どうしたら早く処理できるように変更できるかわかりません。
複数のシートを同時に実行したいです。
どうすれば早くなるでしょうか。
ご教授願います。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub sample6()
Application.ScreenUpdating = False
Dim LastRow As Long
Dim i As Long
Dim wst1 As Worksheet
Dim wst2 As Worksheet
Dim wst3 As Worksheet
Dim wst4 As Worksheet
Set wst1 = Worksheets("●")
Set wst2 = Worksheets("▲")
Set wst3 = Worksheets("■")
Set wst4 = Worksheets("★")
LastRow = Cells(Rows.Count, 7).End(xlUp).Row
For i = 28 To 418
If wst1.Cells(i, 7) = 0 Then
wst1.Rows(i).Hidden = True
End If
If wst2.Cells(i, 7) = 0 Then
wst2.Rows(i).Hidden = True
End If
If wst3.Cells(i, 7) = 0 Then
wst3.Rows(i).Hidden = True
End If
If wst4.Cells(i, 7) = 0 Then
wst4.Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
nunohiraさんの書いたマクロ自体に時間のかかる要素はないはずです。
時間がかかるは、そのシートに含まれる計算式の再計算が原因と思われます。
試しに、計算方法を「手動」にしてから、マクロを実行してみてください。
これにより、お望みのパフォーマンスが得られるようであれば、計算方法の
切り替えをマクロに組み込んで下さい。
No.1
- 回答日時:
以下でどうなりますか
Public Sub Samp1()
Dim v As Variant
Dim rng As Range
Dim i As Long
Application.ScreenUpdating = False
For Each v In Array("●", "▲", "■", "★")
With Worksheets(v)
Set rng = Nothing
For i = 28 To 418
If (.Cells(i, 7) = 0) Then
If (rng Is Nothing) Then
Set rng = .Cells(i, 7)
Else
Set rng = Union(rng, .Cells(i, 7))
End If
End If
Next
If (Not rng Is Nothing) Then
rng.EntireRow.Hidden = True
End If
End With
Next
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBAのEntireRow.Hiddenをスピードアップしたいのですが・・・。
Excel(エクセル)
-
〔Excel:VBA〕マクロの実行が異常に遅くなる
Excel(エクセル)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
Excel VBAが徐々に遅くなる
Excel(エクセル)
-
5
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
6
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
-
7
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
-
8
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
9
EXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列を非表示切り替えしたいんです。
Excel(エクセル)
-
10
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
11
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excelのセル値に基づいて図形の...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
一つのTeratermのマクロで複数...
-
Excel マクロ VBA プロシー...
-
Excel マクロでShearePoint先の...
-
メッセージボックスのOKボタ...
-
TERA TERMを隠す方法
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
【EXCEL VBA】オートシェイプを...
-
VBAにて別ワークブック上の実行...
-
エクセル マクロ 指定日の指定...
-
マクロで空白セルを詰めて別シ...
-
【MFC】Version情報の取得
-
ピボットテーブルでの毎回可変...
-
【緊急】エクセルVBA(20...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報