【カテゴリー別】Excel VBA スタンダード 模擬問題　並べ替え

次のコードは、D列を基準に降順でデータを並べ替えるマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet2").

  　..Clear

　  .SortFields.Add2 Key:=Range("D2"), _

　　SortOn:=xlSortOnValues, _

　　Order:=xlDescending, _

　　DataOption:=xlSortNormal

    .SetRange Range("A1:D9")

    .Header = xlYes

    .Apply

 End With

End Sub

次のコードは、D列を基準にセルのデータで並べ替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet2").Sort

　　.SortFields.Clear

　　.SortFields.Add2 Key:=Range("D2"), :=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

　　.SetRange Range("A1:D11")

　　.Header = xlYes

　　　.Apply

　End With

End Sub

並べ替えの条件を設定する際、コード内の「セルの値」に基づいて並べ替えを行うことを指定する語句を解答しなさい。




Sub Exam1()

　With Sheets("Sheet2").Sort

    .SortFields.Clear

      .SortFields.Add2 Key:=Range("C2"), :=, Order:=xlAscending, DataOption:=xlSortNormal

　 .SetRange Range("A1:D11")

    .Header = xlYes

    .Apply

 End With

End Sub

次のコードは、D列を基準に昇順で並べ替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet2").Sort

    .SortFields.Clear

    .SortFields.Add2 Key:=Range("D2"), SortOn:=xlSortOnValues, Order:=, DataOption:=xlSortNormal

　 .SetRange Range("A1:D11")

    .Header = xlYes

    .Apply

 End With

End Sub

次のコードは、ユーザーが指定した語句の順番に基づいてデータを並べ替えるマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet1"). Sort

　　.SortFields.Clear

　　.SortFields.Add Key:=Range("B2"), :="Golf,Basketball,Tennis"

　　.SetRange Range("A1").CurrentRegion

　　.Header = xlYes

　　.Apply

　End With

End Sub

以下のコードは、ユーザーが指定した語句の順番に並び替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet1"). Sort

　.SortFields. Clear

　.SortFields.Add Key:=Range("B2"), CustomOrder:="Golf  Basketball 「空欄と同じ」Tennis"

　.SetRange Range("A1").CurrentRegion

　.Header = xlYes

　.Apply

 End With

End Sub

以下のコードを実行したとき、メッセージボックスに表示される値はである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets(“Sheet1”). Sort

　.SortFields. Clear

　.SortFields.Add Key:=Range("D2"), CustomOrder:="ASIA,EU,NorthAmerica,Other"

    .SortFields.Add Key:=Range("C2"), Order:=xlDescending

　.SetRange Range("A1:D10")

　.Header = xlYes

　.Apply

　End With

　　MsgBox Range("C3").Value

End Sub

次のコードは並べ替える時に、数値とテキストを別々に扱うマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet2").Sort

    .SortFields.Clear

    .SortFields.Add2 Key:=Range("C2"), SortOn:=xlSortOnValues, Order:=xlAscending, :=xlSortNormal

　 .SetRange Range("A1:D11")

    .Header = xlYes

    .Apply

 End With

次のコードは並べ替える時に、数値とテキストを別々に扱うマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheet2").Sort

    .SortFields.Clear

    .SortFields.Add2 Key:=Range("C2"), SortOn:=xlSortOnValues, Order:=xlAscending, :=

　 .SetRange Range("A1:D11")

    .Header = xlYes

    .Apply

 End With

End Sub

以下のコードは、表の指定範囲の2列目を降順で並び替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 With Sheets("Sheet2").Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range("B2"), Order:=xlDescending

  . Range("A1:D10")

  .Header = xlYes

  .MatchCase = False

  .Orientation = xlTopToBottom

  .

 End With

End Sub

次のコードは、表のセル範囲を大文字小文字は区別せず並び替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 With Sheets("Sheet2").Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range("B2"), Order:=xlDescending

  .SetRange Range("A1:D11")

  .Header = xlYes

  . = False

  .Apply

 End With

End Sub

次のコードは、表のセル範囲を一行目は見出し行とし、2列目を基準に降順に並び替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 With Sheets("Sheet2").Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range("B2"), Order:=xlDescending

  .SetRange Range("A1:C11")

  .Header =

  .MatchCase = False

  .Orientation = xlTopToBottom

  .Apply

 End With

End Sub

次のコードは、表の指定範囲を2列目を基準に上下に並び変えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 With Sheets("Sheet2").Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range("B2"), Order:=xlDescending

  .SetRange Range("A1:C11")

  .Header = xlYes

  .MatchCase = False

  . = xlTopToBottom

  .Apply

 End With

End Sub

以下のコードは、表の指定範囲の2列目を降順で上下に並び替えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 With Sheets("Sheet2").Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range("B2"), Order:=xlDescending

  .SetRange Range("A1:D10")

  .Header = xlYes

  .MatchCase = False

  .Orientation =

　 .Apply

 End With

End Sub

次のコードは、表の指定範囲を2列目を基準に上下に並び変えるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 With Sheets("Sheet2").Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range("B2"), Order:=xlDescending

  .SetRange Range("A1:C11")

  .Header = xlYes

  .MatchCase = False

  . =

  .Apply

 End With

End Sub

次のコードは、セル範囲A1:D10の先頭行をタイトル行として、

D列を基準として降順に並べ替えるマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Sheets("Sheets").Sort

　　.SortFields.Clear

　　.SortFields.Add Key:=Range("D2"), Order:=xlDescending

　　.SetRange Range("A1:D10")

　　.Header = xlYes 　

　.　

　End With

End Sub

次のコードは表の4列目を基準に、1行目を見出し行と指定して並べ替えるマクロである。

実行の結果メッセージには が表示された。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With ActiveSheet.Sort

　　.SortFields.Clear

　　.SortFields.Add Key:=Range("D2"), Order:=xlDescending

　　.SetRange Range("A1:D10")

　　.Header = xlYes

　　.Apply

　End With

　    MsgBox Range("A2").Value

End Sub

並べ替えを実行する際の説明として、以下の空欄に入る正しいものを解答しなさい。

・タイトル行（ヘッダー）があるかどうかをExcelに自動判別させる設定としてを引数として指定する。

なお数値で指定する場合はを指定する。

日本語のデータを「ふりがな」を使って並べ替える際に使用する引数は に定数を指定する。

次のコードは日本語のふりがなを設定し、そのふりがなを使って並べ替えるマクロである。

コード空欄に入る適切な語句を解答しなさい。

Sub Exam1()

    Range("C2").Phonetic.Text = "ニッタ"

    Range("C3").Phonetic.Text = "シンデン"

    Range("C4").Phonetic.Text = "アラタ"

 　 Range("A1").Sort Key1:=Range("C1"), Order1:=xlAscending, :=xlPinYin, Header:=xlYes           

End Sub

以下のコードは、表の3列目に入力されている値を昇順に並べ替えるマクロである。

空欄に入る適切な語句を答えなさい。

Sub Exam1()

　Range("A1").Sort :=Range("D1"), :=xlAscending, :=xlYes

End Sub

次のコードは、表のセル範囲A3:C11のみを、3列目を基準として降順に並べ替えるマクロである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　Range("A3:C11").Sort Key1:=Range("C3"), Order1:=xlDescending, Header:=

End Sub

次のコードは、１番目、2番目の並べ替え基準を指定し並び替えを実行するマクロである。

空欄に入る適切な語句を答えなさい。

Sub Exam1()

　Range("A1:C11").Sort Key1:=Range("B1"), Order1:=xlDescending, :=Range("C1"),  :=xlAscending, Header:=xlYes

　　MsgBox Range("C3").Value

End Sub

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

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

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

以下のマクロを実行したとき、メッセージボックスに「アラタ」と表示された。

コード空欄に入る適切な語句を解答しなさい。

Sub Exam1()

Dim N As String

    Range("C2").Phonetic.Text = "ニッタ"

    Range("C3").Phonetic.Text = "シンデン"

    Range("C4").Phonetic.Text = "アラタ"

  Range("A1").Sort Key1:=Range("C1"), Order1:=xlAscending, SortMethod:=, Header:=xlYes           

               N = Range("C2").Phonetic.Text

    MsgBox N

End Sub

次のコードは、漢字が入力されているC列各セルに対して、

ふりがなが設定されていればそのふりがなを、

ふりがなの設定がなく漢字がそのまま入力されている時

は"0"と、D列の各セルに入力するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()　

　Dim i As Long

　For i = 2 To 10

　　If Cells(i, 3). .Text = "" Then 

　　　Cells(i, 4) = "0"　

　  Else

　　　Cells(i, 4) = Cells(i, 3).「上記空欄①と同じ」.

　  End If

　Next i

End Sub