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

　　　

以下のコードは、2列目が”Japan”であるセルと同じ行の3列目に入力されている数値を合計して、セルE2に表示するマクロである。

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

Sub Exam1()

　Dim A As Long

  Range(“E2”) = WorksheetFunction. (Range(“B2:B10”), “Japan”, Range(“C2:C10”))

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

次のコードは、配列を使用してメッセージボックスに”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