タスクシュート

毎日繰り返し行うタスクの登録を自動化する
http://cyblog.jp/modules/weblogs/195

タスクシュートを初めてみたが、マクロ環境が自分のPCでは問題ありなので、
シートをコピーして、関数を調整。あと並び替えのみマクロを使用してみる。

Sub タスクシュート並び替え()
' タスクシュート並び替え
' 並び替え1次キー：B8 昇順
' 並び替え2次キー：D8 昇順
' 並び替え3次キー：K8 昇順
'
ActiveWorkbook.Worksheets("タスクシュート").Sort.SortFields.Clear
Range("A8:L65536").Sort _
Key1:=Range("B8"), Order1:=xlAscending, _
Key2:=Range("D8"), Order2:=xlAscending, _
Key3:=Range("K8"), Order3:=xlAscending, _
Header:=xlYes, Orientation:=xlTopToBottom

End Sub

自分用にいろいろと試行錯誤中。