スタンダード 模擬問題

Excel VBA スタンダード 模擬試験 ランダム順出題 ⑤ 第3問 公開問題

以下のコードを実行後、表示される値は【  ①   】である。

空欄に入る値を答えなさい。

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

excel-vba-standard-test-sort
正解

【  ①   】1300

解説

【7章 データの並べ替え】

【エクセル2003年までの並べ替え】

【Sortメソッドの概要】

Sort メソッドは、指定した範囲のデータを並べ替える機能です。

・Key1 と Order1 で1番目の並べ替え基準とその順序(降順/昇順)を指定します。
・Key2 と Order2 で2番目の並べ替え基準とその順序を指定します。

エクセル2003年までの並べ替えの問題です。基本構文は以下の通りです。

構文:並べ替えるセル範囲 .Sort Key1(基準となる列のセル), Order1(並び替えの定数), Header(ヘッダー指定の条件)

excel-vba-standard-test-sort

【コード解説】

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