VBA 列の並べ替えについて

質問

以下のようなコードを考えています。
(1)セルA2からO10を選択する。
(2)最優先するキーをD列として（昇順）、(1)を並べ替える。
(3)印刷する。
(4)(1)の並びに戻す。((2)で並べ替えする前の状態にする)
マクロ記録から以下のコードは分かりましたが、続きが分かりません。よろしくお願いします。
Sub test()
Range("A2:O10").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, _　　
Header:=xlGuess ,OrderCustom:=1,Orientation:=xlTopToBottom,_
SortMethod:=xlPinYin
Selection.PrintOut Copies:=1, Collate:=True
End Sub

回答No.1

zap35 · ベストアンサー

＞(2)で並べ替えする前の状態にする
ためには、並べ替えしなおすキーが必要ですね。でも質問には「そのキーがあるかどうか」について触れられていませんので単純には回答できかねます。

もし「一旦シートを作業用シートにコピー」→「並べ替え」→「印刷」→「作業用シート削除」というロジックにして良いのなら以下のマクロで可能です。

Sub test()
On Error GoTo end0
ActiveSheet.Copy before:=ActiveSheet　'シートをコピー

Range("A2:O10").Select　'コピーしたシートがアクティブです
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending
Selection.PrintOut Copies:=1, Collate:=True

Application.DisplayAlerts = False　'削除の警告メッセージ出力停止
ActiveSheet.Delete
end0:
Application.DisplayAlerts = True　'警告メッセージ復活
End Sub

お礼

早速のご回答ありがとうございます。
教えていただいたコードでうまくいきますが、マクロを実行すると「プロアクティブディフェンス警告」というメッセージが表示されます。
これを表示させない方法はありますか？
よろしくお願いします。

回答No.2

zap35

＃０１です
プロアクティブディフェンス警告はウィルススキャンソフトが出しているのではありませんか？　EXCELではないと思いますよ。

ウィルススキャンソフトの設定が分かりませんので、設定を確認してください。プロアクティブディフェンスのレベル設定が可能であれば、変更されるのが「警告メッセージを出さなくする」方策だと思います。

お礼

ご回答ありがとうございました。
現在、ウィルスソフトはカスペルスキーの試用版を使っています。
マクロウィルス対策としては、プロアクティブディフェンスは有効にしておいた方がよいのでしょうか？