次のコードは表のC列を基準とし、1行目をタイトル行であると設定し並べ替えるマクロである。空欄に入る適切な語句を解答しなさい。
Sub Exam1()
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add2 Key:=Range("C2"), Order:=xlDescending
.SetRange Range("A1:C9")
.Header = 【 ① 】
.Apply
End With
End Sub
正解
【 ① 】xlyes
解説
Headerプロパティに指定できる定数
xlYes・・・一行目はタイトル行
xlNo・・・一行目はタイトル行ではない
xlGuess・・・Excelが自動で判定する
なお、Headerの指定を省略した場合は「xlGuess」が規定値となります。
[コード解説]
Sub Exam1()
With ActiveSheet.Sort
' ActiveSheetのSortオブジェクトを使用して並べ替えを設定します。
.SortFields.Clear
' 現在設定されているすべての並べ替え条件をクリアします。
.SortFields.Add2 Key:=Range("C2"), Order:=xlDescending
' C列を基準に降順（xlDescending）で並べ替えを設定します。
' Key:=Range("C2") により、C列を指定しています。
.SetRange Range("A1:C9")
' 並べ替えの範囲をA1:C9に設定します。
.Header = xlYes
' 1行目をタイトル行として認識するように設定します。
.Apply
' 並べ替えを実行します。
End With
End Sub
