以下のコードは表をC列を基準に昇順並べ替えるマクロである。空欄に入る適切な語句を解答しなさい。
Sub Exam1()
With Sheets("Sheet1"). Sort
.SortFields. Clear
.SortFields.【 ① 】【 ② 】:= Range("C2"),【 ③ 】:=xlAscending
.SetRange Range("A1:D11")
.Header = xlYes
.Apply
End With
End Sub
正解
【 ① 】add あるいは add2
【 ② 】key
【 ③ 】order
解説
●データの並び替えは、エクセル2007年以降①並べ替え条件と、⓶挙動と実行部分の２つに分けられます。
並べ替え構文は以下の通りです。
構文：対象のシート.Sort.SortFields.(Add あるいは Add2) Key:= 並び替えの基準となるセル,並び替え条件
・並び替え条件のOrderのあとには昇順、降順等を表す定数を指定します。
本問題では:=xlAscending(昇順)と記述があるのでOrderが入ります。
・その他並び替え条件には必要に応じてSortOn:=並べ替えのタイプ、DataOption:=列の中に数値と文字列形式の数値が混在していたら、どのように並べ替えるかを記述します。
【Add2メソッド】
●Add2メソッドはExcel 2016 から新設されたメソッドです。
Excel 2013 以前のバージョンや、機能拡張されていないExcel 2016ではAdd2メソッドを使えませんのでAddメソッドを使用します。
このような事情がありますので実務ではAddとAdd2を、試験対策としては、現状はAddメソッドのみ抑えていただくで構いません。
[コード解説]
Sub Exam1()
With Sheets("Sheet1").Sort
' Sheets("Sheet1")のSortオブジェクトを使用して並べ替えを設定します。
.SortFields.Clear
' 現在設定されているすべての並べ替え条件をクリアします。
.SortFields.Add Key:=Range("C2"), Order:=xlAscending
' C列を基準に昇順（xlAscending）で並べ替えを設定します。
' Key:=Range("C2") により、C列を指定しています。
.SetRange Range("A1:D11")
' 並べ替えの範囲をA1:D11に設定します。
.Header = xlYes
' 1行目をタイトル行として認識するように設定します。
.Apply
' 並べ替えを実行します。
End With
End Sub
