エクセル ワークシート操作

質問

エクセル　VBAにてブックを閉じるときに作業をして追加した
ワークシートを昇順、もしくは降順（名前、日付など）に
並び替えてから閉じるように
する方法がわからないのですが？
どのようにやるのでしょうか？

回答No.1

pkh4989

こんにちは。

「作業をして追加した」シートがActiveSheetとして
1行は見出し、A列は氏名、B列は日付、入力データはE列までとして

以下のマクロで、お試し下さい。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　Dim wR　　 As Long
　　'
　　'日付順(昇順)ソート
'　　With ActiveSheet
'　　　　wR = .Range("A" & Rows.Count).End(xlUp).Row
'　　　　.Range("A1:E" & wR).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
'　　End With
'　　ActiveWorkbook.Save

　　'-----------------------------------------------------------
　　'日付順(降順)ソート
'　　With ActiveSheet
'　　　　wR = .Range("A" & Rows.Count).End(xlUp).Row
'　　　　.Range("A1:E" & wR).Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess
'　　End With
'　　ActiveWorkbook.Save

　　'-----------------------------------------------------------
　　'氏名(昇順)+日付順(昇順)ソート
　　With ActiveSheet
　　　　wR = .Range("A" & Rows.Count).End(xlUp).Row
　　　　.Range("A1:E" & wR).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
　　　　, Order2:=xlAscending, Header:=xlGuess
　　End With
　　ActiveWorkbook.Save
　　'
　　Application.Quit
End Sub

<マクロ貼付方法>
(1) Alt+F11 (ツール → マクロ → Visual Basic Editor)
(2) 「Microsoft Excel Objects」下の「ThisWorkbook」を選択 → マウス右Click →「コードの表示」を選択で表示される画面に貼り付け
※ (1) 日付順(昇順)ソート、(2)日付順(降順)ソート、氏名(昇順)+日付順(昇順)ソートの3種類を用意しましたので
　　必要なマクロを変更して、試してみてください。

お礼

遅くなりましてすみません。
動きましたため、あと少々継ぎ足して使用させていただきます。