【カテゴリー別】Excel VBA スタンダード 模擬問題　プロシージャ

VBAのプロシージャには、記述されているコードを実行するだけのものと、呼び出し元に値を返すことができるものの2種類があります。

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

値を返すことができないものを「Subプロシージャ」と呼ぶのに対し、値を返すことができるものを「 プロシージャ」と呼びます。

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

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

Sub Exam1()

　Range("B1") = 50

　  Exam2()

End Sub

Sub Exam2()

　Range("C1") = Range("B1") * 3

End Sub

次のコードは、引数を使わず変数Cを共有し初期値を設定するマクロである。

1 ～ 4の内 で変数の宣言と初期化を行うのが適切である。
適切なものを解答しなさい。

変数の宣言と初期化：　Dim C As Long

Option Explicit

【　1　】

Sub Exam1()

【　2　】

　C = 10

　Call Exam2

End Sub

Sub Exam2()

【　3　】 　

　C = C + 5

　Call Exam3()

End Sub

Sub Exam3

【　4　】

　MsgBox "Cの値は" & C

End Sub

文字列が含まれるセルがあるかどうかを判定してメッセージを表示するマクロである。

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

なおFunctionプロシージャ内のInStr関数は、検索文字列の指定のセル範囲で見つかった場合は位置を数値で返し、見つからなかった場合は0を返す関数である。

Sub Exam1()

　Dim SearchCell As String

　　SearchCell = InputBox("探したい文字列は？")

　If SearchCell <> "" Then

　　If FindStringInSheet(SearchCell) = True Then

　MsgBox"検索した文字列は見つかりました。"

　　　Else

　　　　　MsgBox "検索した文字列は見つかりませんでした。"　　

　　　End If

　　End If

End Sub

Function FindStringInSheet(searchString As String) As Boolean

　Dim cell As Range

　For Each cell In ActiveSheet.Range("A1:C11")

　　If InStr(cell.Value, searchString) > 0 Then

　　　　FindStringInSheet = True

　　　　Exit Function

　　End If

　Next cell

　　　　FindStringInSheet =

End Function

以下のコードは numberの値が10の倍数であるかを調べ、メッセージを表示するマクロである。

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

Sub Exam1()

　Dim number As Integer

　Dim result As String

　number = 25

　result =  (number)

　MsgBox number & " は " & result & " です。"

End Sub

Function IsMultipleOfTen(num As Integer) As String

　If num Mod 10 = 0 Then

　「上記空欄と同じ」 = "10の倍数"

　Else

　「上記空欄と同じ」= "10の倍数ではない"

　End If

End Function

次のコードは別のプロシージャへ引数を引き渡すマクロである。

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

Sub Exam1()

　Call Exam2("baseball")

End Sub

Sub Exam2(N As )

　MsgBox N

End Sub

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

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

Sub Exam1()

　Dim B As Long　

　B = 15

　　Call Exam2 (B)

　MsgBox B

End Sub

Sub Exam2 ( B As Long)

　B = B + 10

End Sub

次のコードは実行したとき、メッセージボックスに「40」と表示するようにしたい。

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


Sub Exam1()

　Dim B As Long

　B = 20

　Call ModifyValue(B)

　MsgBox B

End Sub

Sub ModifyValue( B As Long)　

　B = B * 2

End Sub