5/10

以下のマクロを実行したところ、セルC1内に「150」と表示された。

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

Sub Exam1()

　Range(“B1”) = 50

　  Exam2()

End Sub

Sub Exam2()

　Range(“C1”) = Range(“B1”) *3

End Sub

以下のコードはマクロが書かれているブック上のセルを値を取得し、ブックを一つずつ開き、

最後にアクティブ状態のブック名を表示するマクロである。

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

Sub Exam1()

　Dim i As Long

　For i = 2 To 5

　　Workbooks.Open “C:\Data\” &  .ActiveSheet.Cells(i, 1) & “.xlsx”

　Next i

　　MsgBox ActiveWorkbook.Name

End Sub

　　　

次のコードは、セル範囲内を合計するSUM関数をVBAで実行するマクロである。

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

Sub Exam1()

　Range(“C15”) = .Sum(Range(“C1:C14”))

End Sub

次のコードは、配列を使用してメッセージボックスに”Canada_France_Germany”と表示するマクロである。

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

　Sub Exam1()

　Dim regions(3) As String

　　regions = “Canada”

　　regions(1) = “France”

　　regions(2) = “Germany”

　　regions(3) = “Italy”

　MsgBox regions(0) & ” _ ” & regions(1) & ” _ ” & regions

End Sub

次のコードは、For…Nextステートメントを用いて、1列目の値が”Boxing”

か”Swimming”のときは2列目に”〇”を代入し、

それ以外の時は2列目に”Ballgame”を代入するマクロである。

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

Sub Exam1()

　　Dim i As Long

　　For i = 2 To 11

　　　Select Case Cells(i, 1)

　　　　 Case “Boxing”   “Swimming”

　　　　　Cells(i, 2) = “〇”

　　　　Case 

　　　　　Cells(i, 2) = “Ballgame”

　　　End Select

　　Next i

End Sub