Excel VBA ベーシック 関数 穴埋めテスト

2列目から4列目に入力されている年・月・日の値から日付を生成し、生成した日付の翌日の年月日を変数 A に格納したうえで、5列目に入力するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As Date

　　A = (Cells(2, 2), Cells(2, 3), Cells(2, 4)) + 1

　Cells(2, 5) = A

End Sub

セルD3に入力された文字列の文字数を参照し、変数 N に格納したうえで、セルE3に代入するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　　N = (Range("D3"))

　Range("E3").Value = N

End Sub

変数 N に格納されたプロジェクトコード "PRJ-2024-SYS" から、中央の年の部分（2024）を抽出し、メッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As String

　N = "PRJ-2024-SYS"

　　MsgBox (N, 5, 4)

End Sub

ているものとする。この値から両端のスペースを削除し、その文字数をメッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As String

　　A = (Range("C3"))

　MsgBox Len(A)

End Sub

セルD5には商品コード "OLD-999" が入力されているものとする。
この文字列の中から "OLD" という部分を検索して "NEW" に置き換え、変数 A に格納してメッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As String

　　A = (Range("D5"), "OLD", "NEW")

　MsgBox A

End Sub

3列目に入力されている文字列の中にアンダースコア（_）が含まれているかどうかを調べ、含まれていたときには4列目に「アンダースコアより後ろの文字列全て」を、それ以外のときは3列目の文字列をそのまま4列目に代入するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　For N = 2 To 20

　　If InStr(Cells(N, 3), "_") > 0 Then

　　　Cells(N, 4) = (Cells(N, 3), InStr(Cells(N, 3), "_") + 1)

　　Else

　　　Cells(N, 4) = Cells(N, 3)

　　End If

　Next N

End Sub

セルC2に入力されているひらがなをカタカナに変換して変数 N に格納し、セルC3に入力されているカタカナをひらがなに変換して変数 A に格納したうえで、それぞれD列に出力するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim N As String
　Dim A As String

　N = (Range("C2"), vbKatakana)
　Range("D2") = N

　A = 上記穴埋めと同じ(Range("C3"), vbHiragana)
　Range("D3") = A

End Sub

セルC2には部品の重量データ（158.465）が入力されているものとする。この数値をそれぞれ、整数、小数第1位、小数第2位に丸めて、順次変数 N に格納し、別のセルへ出力するマクロである。

以下のVBAコードが正しく動作するように空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim N As Double

　N = (Range("C2"), 0)
　Range("D2") = N

　N = 上記穴埋めと同じ(Range("C2"), 1)
　Range("D3") = N

　N = 上記穴埋めと同じ(Range("C2"), 2)
　Range("D4") = N

End Sub

セルC5に入力された値が数値として評価できるかどうかを判定し、その結果（TrueまたはFalse）を変数 A に格納したうえで、メッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As Boolean

　　A = (Range("C5").Value)

　MsgBox A

End Sub

タイトルを省略した文字入力可能なダイアログボックスを表示し、ボックス内に初期値「SALES」を表示して、入力された値をメッセージで表示するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As String

　　A = ("部署コードを入力してください。", , "SALES")

　If A = "" Then

　　MsgBox "処理をキャンセルしました。"

　Else

　　MsgBox "入力された部署コード：" & A

　End If

End Sub