エクセルVBA

質問

よろしくお願いいたします。 エクセルのVBAですが、下記のコードを実行すると処理が遅いです。処理が早くなるコード教えてください。 よろしくお願いいたします。

Sub Macro3()

Dim aa As Variant
Dim i As Variant
Application.ScreenUpdating = False

Range("A14:i46").Select
aa = ActiveSheet.Name

ActiveWorkbook.Worksheets(aa).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(aa).Sort.SortFields.Add Key:=Range("B15:B46"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(aa).Sort.SortFields.Add Key:=Range("C15:C46"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(aa).Sort
.SetRange Range("A14:i46")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

For i = 0 To 31
Cells(15 + i, 7).Select
If Selection.Value = 0 Then
Selection.EntireRow.Hidden = True
End If
Next i
Range("A1").Select
Application.ScreenUpdating = True

End Sub

回答No.2

keithin · ベストアンサー

それで遅いというと，必ずしもそのマクロだけの問題じゃないんじゃないかな？とは思います。
まぁ，何が遅い原因なのかの追求はご自分でやっていただくとして，できるだけ手を打ってみると。

作成例：
sub macro1()
　dim i as long
　application.screenupdating = false
　application.calculation = xlcalculationmanual
　application.enableevents = false
　activesheet.usedrange.entirerow.hidden = false

　range("A14:I46").sort key1:=range("B14"), order1:=xlascending, key2:=range("C14"), order2:=xlascending, header:=xlyes

　for i = 15 to 46
　　If cells(i, 7) = 0 Then cells(i, 7).entirerow.hidden = true
　next i

　application.enableevents = true
　application.calculation = xlcalculationautomatic
　application.screenupdating = true
end sub

＃余談
描画抑制（screenupdating）とか諸々使いますが，これをしていると原因の追及には邪魔になるだけなので，原因を調べたいときは全て行わないでおきます。

回答No.1

imogasi

＞For i = 0 To 31
以下を省いて実行しても処理が遅いか？
ーー
前半は何がしたいのか。ソートだと思うが、どういうセル範囲のどういうソートか。
今までのソーとコード例に比べ記述が複雑なようだ。
エクセルのバージョンも書いてないが、２００７以降に係わるものかな。
ーー
先生や、下請けに対するのように、コードだけ挙げて、読み解かして、結果がだけこうなるようにしろと言うのは、失礼ではないか。
自分で少しは変えてやってみたのか。