【カテゴリー別】Excel VBA スタンダード 模擬問題　ステートメント

次のコードは、整数を引数として受け取り、その値が10より大きいかどうかを判定し、

値が10以下の場合、処理を途中で終了し、値が10より大きい場合は “10を超えています” というメッセージを表示するマクロである。

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

Sub Exam1()

　Dim result As String

　Dim N As Integer

　  N = 15

  　result = CheckNumber(N)

    　MsgBox result

End Sub

　Function CheckNumber(N As Integer) As String

　  If N <= 10 Then

　   Exit

     End If

　 CheckNumber = “10を超えています”

End Function

次のコードは、対象のセル範囲に負の数があれば、メッセージボックスに”－”と表示後、

繰り返し処理を終了し、"0"が見つかった場合にはメッセージを表示後、プロシージャを終了するマクロである。

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

Sub Exam1()

　Dim cell As Range

　Dim sourceRange As Range

　　Set sourceRange = Worksheets("Sheet1").Range("A1:A10")

　　　For Each cell In sourceRange

　　　　If cell.Value < 0 Then

　　　　　MsgBox "－"

　　　　　Exit

　　　　ElseIf cell.Value = 0 Then

　　　　　MsgBox "0"

                   Exit

　　　　End If

　　　　　Next cell

　End Sub

次のコードは、Do…Loopステートメントにより変数の値が指定した条件まで

処理を繰り返し続け、指定条件となった時は、処理を抜けてLoopの次の行からの処理を行うマクロである。

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

：Exit Doが実行されるとき変数「i」の値は である。

Sub Exam1()

　Dim i As Long, N As Long

　Do While i < 100

　　i = i + 1

　　Cells(i, 1).Offset(0, 2) = 20

　　N = N + 20

　　If N > 150 Then

　　　Exit Do

　　End If

　Loop

　MsgBox "End"

End Sub

次のコードは、変数 i の値が 5 になった時に Do...Loop ループを途中で終了させるマクロである。

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


Sub Exam1()

 Dim i As Long

　i = 1

Do While i <= 10

 If  i = 5  Then 

   

End If

i = i + 1

  Loop

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

次のコードは、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

次のコードは、2列目の値が1000より大きいときは3列目に"High"を入力し、

700より小さいときは3列目に"Low"を入力し、それ以外のときは"Medium"を入力するマクロである。

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

Sub Exam1()

　Dim i As Long

　For i = 2 To 11

　　 Case Cells(i, 2)

　　Case Is > 1000

　　　Cells(i, 3) = "High"

　　Case    < 700

　　　Cells(i, 3) = "Low"

　　Case  

　　　Cells(i, 3) = "Medium"

　　End Select

　Next i

End Sub

以下のコードは、1列目と2列目の値によって3列目に値を代入するマクロである。

このマクロの実行結果であるC列の合計行セルC12の値は であった。

C列の合計行セルC12の値は （マクロ実行後にC2〜C11の値をC12でSUM関数等を用いて合計した結果とします。）

Sub Exam1()

　Dim i As Long

　For i = 2 To 11

　　Select Case Cells(i, 1)

　　Case "Japan"

　　　Select Case Cells(i, 2)

　　　Case "60"

　　　　Cells(i, 3) = 900

　　　Case "80"

　　　　Cells(i, 3) = 1000

　　　Case "100"

　　　　Cells(i, 3) = 1100

　　　End Select

　　End Select　

　 Select Case Cells(i, 1)

　　Case "United States"

　　　Select Case Cells(i, 2)

　　　Case "60"

　　　　Cells(i, 3) = 1000

　　　Case "80"

　　　　Cells(i, 3) = 1100

　　　Case "100"

　　　　Cells(i, 3) = 1200

　　　End Select

　　End Select

　Next i

End Sub

以下のコード「Exam1」と「Exam2」は同じ結果になる場合があるマクロである。

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

Sub Exam1()

　Dim i As Long, A As Long

　i = 1

　Do Cells(i, 1) <>  0

　　A = A + Cells(i, 1) * 3

　　i = i + 1

　Loop

　MsgBox A

End Sub

ーーーーーーーーーーーーーーーーー

Sub Exam2()

　Dim i As Long, A As Long

　i = 1

　Do Until Cells(i, 1) = 0

　　A = A + Cells(i, 1) * 3

　　i = i + 1

　Loop

　MsgBox A

End Sub

以下のコード「Exam1」と「Exam2」は同じ結果になるマクロである。

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

Sub Exam1()

　Dim i As Long, A As Long

　i = 1

　Do

　　A = A + Cells(i, 1) * 2

　　i = i + 1

　Loop    Cells(i, 1) = "STOP"

　MsgBox A

End Sub

ーーーーーーーーーーーーーーーーー

Sub Exam2()

　Dim i As Long, A As Long

　i = 1

　Do

　　A = A + Cells(i, 1) * 2

　　i = i + 1

　Loop While Cells(i, 1) <> "STOP"

　MsgBox A

End Sub

次のコードは、セルA1から順に下方向にチェックし、空白セルが見つかるまで処理を繰り返すマクロである。 空欄に入る適切な語句を解答しなさい。


Sub Exam1()

　Dim i As Long

    　 i = 1

　 While Cells(i, 1).Value""

       i = i + 1

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

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

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

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

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

次のコードは、指定されたセル範囲の中から空欄をチェックし、最初に見つかった空欄セルの位置をメッセージボックスで表示するマクロです。

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

Sub Exam1()

　Dim cell As Range

　For Each cell In ("A1:A10")

　　If cell.Value = "" Then

　MsgBox cell.  

　　　Exit Sub 　

　End If

　Next cell

End Sub 

ワークシートが下図の状態で、次のマクロを実行したときメッセージボックスに表示される値は、 である。

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

Sub Exam1()

    Dim A As Range,N As Long

       Range("B1").CurrentRegion.Select

    For Each A In Selection

        N = N + A.Value

    Next A

    MsgBox N

End Sub

次のコードはセル範囲を選択し、選択したセル範囲の中から一つずつセルを取り出し、取り出したセルの値を変数に加算するマクロである。

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

Sub Exam1()

    Dim A As Range,N As Long

       Range("B1").CurrentRegion.Select

    For Each A In

        N = N + A.Value

    Next A

    MsgBox N

End Sub

次のコードは、A列に入力されている文字列や数値、記号が混在している値の中からコードをカンマで区切り、数値のみをB列に代入するマクロである。

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

Sub Exam1()

　Dim i As Long, A As Variant, C As 

　For i = 2 To 11

　　A = Split(Cells(i, 1), ",")

　　For Each C In

　　　If IsNumeric(C) = True Then

　　　　Cells(i, 2) = C

　　　End If

　　Next C

　Next i

End Sub

次コードは実行すると "1234" がメッセージボックスに表示されるマクロである。

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

Sub Exam1()

　Dim A(3) As Long, N As Variant, i As String

　A(0) = 1

　A(1) = 2

　A(2) = 3

　A(3) = 4

　　For Each In

　　i = i & N

　Next N

　　MsgBox i

End Sub

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

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

Sub Exam1()

　Dim A(3) As Long, N As Variant, i As String

　A(0) = 3

　A(1) = 5

　A(2) = 11

　A(3) = 9

　For Each N In A

　　i = i & N

　Next N

　　MsgBox i

End Sub

以下コードは条件を満たした際に、処理を実行する条件分岐のマクロである。

セルD11にはセルD2からD10の合計値が表示されます。

マクロ実行時のセルD11の値は　　である。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 11

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

　　　　 If Cells(i, 2) = "Japan" Then  Cells(i, 4) = Cells(i, 3) * 2

　　　　End If

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

　　　　If Cells(i , 2) = "United States" Then  Cells(i, 4) = Cells(i, 3) * 3

　　　　End If

　　Next i

End Sub

次のコードを実行した結果、D列に代入された数値の合計値は である。

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

Sub Exam1()

　Dim i As Long

　For i = 2 To 10

　　If Cells(i, 1) = "ASIA" Then Cells(i, 4) = Cells(i, 3) * 4

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

　　　If Cells(i, 2) = "France" Then Cells(i, 4) = Cells(i, 3) * 3

　　　If Cells(i, 2) = "Germany" Then Cells(i, 4) = Cells(i, 3) * 2

　　End If

　Next i

End Sub

次のコードは、条件を満たした際に処理を実行する条件分岐のマクロである。

D列に入力された値の合計値は である。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 11

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

　　　　If Cells(i , 2) = "Boxing" Then  Cells(i, 4) = Cells(i, 3) * 2

　　　End If

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

　　　　　If Cells(i , 2) = "Rugby" Then  Cells(i, 4) = Cells(i, 3) * 3

　　　End If

　Next i

End Sub