以下のコードを実行後、表示される値は【 ① 】である。
空欄に入る値を答えなさい。
Sub Exam1()
Range("A1:C11").Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("C1"), Order2:=xlDescending, Header:=xlYes
MsgBox Range("C2").Value + Range("C7").Value
End Sub
正解
【 ① 】1300
解説
【7章 データの並べ替え】
【エクセル2003年までの並べ替え】
【Sortメソッドの概要】
●Sort メソッドは、指定した範囲のデータを並べ替える機能です。
・Key1 と Order1 で1番目の並べ替え基準とその順序(降順/昇順)を指定します。
・Key2 と Order2 で2番目の並べ替え基準とその順序を指定します。
●エクセル2003年までの並べ替えの問題です。基本構文は以下の通りです。
構文:並べ替えるセル範囲 .Sort Key1(基準となる列のセル), Order1(並び替えの定数), Header(ヘッダー指定の条件)
【コード解説】
Sub Exam1()
Range("A1:C11").Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("C1"), Order2:=xlDescending, Header:=xlYes
'最初の並べ替え(Key1, Order1)Key1:=Range("B1"):並べ替えの基準となる列は B 列です。Order1:=xlAscending:B列の値を昇順に並べ替えます。
'2番目の並べ替え(Key2, Order2)Key2:=Range("C1"):2番目の並べ替え基準は C列です。Order2:=xlDescending:C列の値を降順で並べ替えます。
MsgBox Range("C2").Value + Range("C7").Value
'並べ替えの結果のセルC2とセルC7の合計値をメッセージボックスで表示します。
End Sub