【ランダム順出題】Excel VBA スタンダード 模擬試験　問題バンクから40問出題

次のコードはセルを検索し見つかった場合は、セルのアドレスを表示するマクロである。

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

Sub Exam1()

　Dim N As Range

　Set N = Range("A2:D10").Find(What:="Italy", :=xlWhole)

　If Not N Is Nothing Then

　　　MsgBox N.Address

　End If

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

次のコードは、B列で"Japan"を探し、見つかったセルを含む行全体を削除するマクロである。

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

Sub Exam1()

 Dim A As Range

 Set A = Range(“B:B”).Find(What:=“Japan”)

 If A Is Nothing Then

   MsgBox “見つかりませんでした”

 Else

  A..Delete

 End If

End Sub

次のコードは、2列目に入力されている日付から、翌月の月末日を3列目に代入するマクロである。

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

Sub Exam1()

　Dim i As Long

　　For i = 2 To 6

　　　Cells(i, 3) = WorksheetFunction. (Cells(i, 2), )

　　Next i

End Sub

次のコードは、B列に入力されている数値のうち

「5番目に小さい数値」を指定のセルに代入するマクロである。

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

Sub Exam1()

　　Range("E3") = WorksheetFunction. (Range("B1:B20"), 5)

End Sub

次のコードを実行後、メッセージに表示される値は である。

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

Sub Exam1()

　Dim N As Long

　　With Range("A1").ListObject

　　　.DataBodyRange.AutoFilter 3, "800"

　　　.ListColumns(1).DataBodyRange.Value = "―"

　　　.DataBodyRange.AutoFilter 3

　　End With

　　　N = WorksheetFunction.SumIf(Range("A1:A10"), "1", Range("C1:C10"))

　　　　MsgBox N

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

次のコードは表内を検索するマクロである。実行すると”Soccer”と表示された。

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

Sub Exam1()

　Dim A As Range

　Set A = Range("A2:A10").Find(What:="8", Lookat:= xlWhole)

　　MsgBox A. Offset  

End Sub

次のコードは、全ての開いているブックの中に"VBA"という名前のシートがあるか確認するマクロである。

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

Sub Exam1()

Dim wb As Workbook

　Dim ws As Worksheet

　For Each wb In

　For Each ws In wb.Sheets

　If ws.Name = “VBA” Then

　　MsgBox “OK”

　　Exit Sub

　End If

　Next ws

　Next wb

　　MsgBox “Nothing”

End Sub

次のコードは、セルA1を含む表を指定条件で絞り込むマクロである。

絞込み後４列目にREDと入力された同じ行の1列目「Data1」の合計値は である。

上記空欄に入る適切な値を解答しなさい。

Sub Exam1()

　Range("A1").AutoFilter 2, "Apple"

　　Range (Range ("D2"), Cells (Rows.Count, 4).End(xlUp)) ＝ "RED"

End Sub

次の文章はデバッグ作業の内 、マク口のコードを1行ずつ止めながら実行する説明である。

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

・VBE内のマク口のコードを1行ずつ止めながら実行するのが です。

・「上記空欄と同じ」の操作をコードの最初から行うには、実行したいプロシージャの中にカーソルを置き、 キーを押します。 

・実行すると、プロシージャのカーソル置いた箇所が黄色くハイライトされます。

これ以降、「上記空欄と同じ」キーを押すたびに、 1行ずつマクロが実行されます。

次のコードは、セル範囲A1:A10の中から「RED」という文字を含むセルを検索するマクロである。

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

Sub Exam1()

　Dim N As Range

　　　Set N = Range(”A1:A10”).)(What:=(”RED”, LookAt:=)

　　If Not N Is Nothing Then

　　MsgBox N.Address

　End If

End Sub

次のコードは、セルA1を含む表に対して3列目が"100以上かつ、300以下"の条件で絞り込むマクロである。

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

Sub Exam1()

　Range("A1").   3, ">=100",  , "<=300"

End Sub

次のコードは、指定された範囲内の"Banana"の数をカウントし個数をメッセージボックスに表示するマクロである。

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

Sub Exam1()

　Dim A As Long

　A = WorksheetFunction. (Range(“C1:C15”), “Banana”)

　If A = 0 Then

　　MsgBox “0”

　Else

　　MsgBox “Banana‐” & A

　End If

End Sub

以下のコードは、セル範囲A1:A5に入力された数値のうち最も小さい値をセルC1へ代入するマクロである。

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

Sub Exam1()

　　Range("C1") = WorksheetFunction. (Range("A1:A5"))

End Sub

以下のコードは、実行すると値を表示するマクロである。

実行後、表示された値は である。

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

Sub Exam1()

　Dim A As Range

　　Set A = Range(“B:B”). Find (What:＝”United States”)

　If A Is Nothing Then

　　MsgBox “0”

　Else

　　A.Offset(0, 1) = A.Offset(0, 1) *0.5

　　　MsgBox A.Offset(, 1).Value

　End If

End Sub

次のコードは配列に格納した値をメッセージで表示するマクロである。

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

Sub Exam1()

　Dim B As Variant

　Dim i As Long

　B = Split(“baseball:football:basketball”, “:”)
　
　For i = (B) To UBound(B)　　

　　MsgBox B(i)

　Next i

End Sub

次のコードは、ブックの保存状態を調べ、調べた結果に応じたメッセージを表示するマクロです。

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

Sub Exam1()

　ThisWorkbook.SaveAs “book.xlsm”

  　If ThisWorkbook.   = True Then

　　MsgBox “Changed”　

 　Else

　　MsgBox “No Changed”

 End If

End Sub

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

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

Sub Exam1()

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

End Sub

次のコードは、数値を4桁の文字列にし更に”SXXXX”の形式に整えるコードである。

なお各桁に値がない時も”０”を表示するように設定をした。

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

Sub Exam1()

 Dim i As Long

 For i = 2 to 5

　　Cells(i, 2) ＝ ”S”&  (i, " ")

　Next i

　　　MsgBox Range(”B4”)

End Sub

以下のコードは、指定したセル範囲から値をひとつずつ取り出し、変数に格納するマクロである。

実行後メッセージに表示された値は である。

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

Sub Exam1()

　Dim N As Range, A As Long

　For Each N In Range("A1:A10")

　　A = A + N

　Next N

　MsgBox A

End Sub

次のコードは、2列目の値が600から750のときは３列目に”Medium”を代入し、1000または1100の値の時は3列目に”High”を代入するマクロである。

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

Sub Exam1()

　　Dim i As Long

　　For i = 2 To 11

　　　Select Case Cells(i, 2)

　　　　Case 600 750

　　　　　Cells(i, 3) = “Medium”

　　　　Case 1000 1100

　　　　　Cells(i, 3) = “High”

　　　End Select

　　Next i

End Sub

以下のコードはオートフィルターで絞り込みをし、その後オートフィルターを解除するマクロである。

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

Sub Exam1()

 Range("A1").AutoFilter 2, "Japan"

  Range(Range("D2"), Cells(Rows.count, 4).End(xlUp)) = "ASIA"

 Range("A1").

End Sub

以下のコードは、セル内のデータが数値かどうかを判定し、数値であれば”True”、数値でなければ”False”をメッセージボックスに表示するマクロです。

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

Sub Exam1()

　Dim cellValue As Variant

　cellValue = Range(“A1”).Value

　If  (cellValue) Then

　　MsgBox “True”

　Else

　　MsgBox “False”

　End If

End Sub　

次のコードを実行した時に表示されるメッセージは である。

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

Sub Exam1()

　With Range("A1").ListObject.ListRows (2).Range.Select

　　MsgBox Selection.Row

　End With

End Sub

次のコードは、オートフィルターを実行し条件にあった箇所の文字列にアンダーラインつけるマクロである。

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

Sub Exam1()

  With ActiveSheet.ListObjects(2)

　  .Range.AutoFilter 2, "Spinach"

     .ListColumns(3).DataBodyRange. .Underline = True

  End With

End Sub 

次のコードは実行したとき、メッセージボックスには６が表示されるマクロである。

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

次のコードは、１列目に入力されている"Japan"という文字列が入力されているセルの個数をカウントし、

メッセージボックスに個数を表示するマクロである。

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

Sub Exam1()

　Dim i As Long, count As Long

　For i = 2 To 11

　　If Cells(i, 1) = "Japan" Then

　　　count = count +

　End If

　Next i

　　MsgBox count

End Sub

次のコードは、Cドライブ下のDocumentsフォルダ内で、ファイル名"total2023.xlsx "を"backup2023.xlsx"と名前を変えてファイルをコピーするマクロである。

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

Sub Exam1()

　FileCopy "C:\Documents¥total2023.xlsx" "C:\Documents¥backup2023.xlsx"

End Sub

以下のコードは、セル範囲B2からB10を"UN"を「完全一致」で検索し、

見つかったセルの左隣のセルに値を入力するマクロである。

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

Sub Exam1()

　Dim A As Range

　Set A = Range("B2:B10").Find(What:="UN", Lookat:= )

　If Not A Is Nothing Then

　　A.Offset(0, -1) = 500

　End If

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