【カテゴリー別】Excel VBA ベーシック 模擬問題　関数

次のコードは、1年後の日付をメッセージで表示するマクロである。

空欄に入る適切な語句を選択肢の中から一つ解答しなさい。  

なお実行日はうるう年ではないものとする。  

Sub Exam1()

　Dim A As Integer, B As Integer, C As Integer

A = Year(Now) + 1

　　B = 【　①   】(Now)

　　C = 【　②   】(Now)

　　　MsgBox "1年後は" & A & "年" & B & "月" & C & "日です。"

End Sub  

次のコードは実行時の時間をメッセージで表示するマクロである。

空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

   Dim A As Integer, B As Integer, C As Integer

       A = 【   ①   】(Now) 

       B = Minute(Now)

       C = 【   ②   】(Now)            

MsgBox "現在の時間は " & A & "時 " & B & "分 " & C & "秒です "

End Sub

次のコードは、1列目から3列目に入力されている値から日付を認識し、

認識した日付の翌日の年月日を4列目に入力するマクロである。

空欄に入る適切な語句を選択肢の中から解答しなさい。

Sub Exam1()

　　Cells(1, 4) =【　①   】(Cells(1, 1), Cells(1, 2), Cells(1, 3)) + 1

End Sub

次のコードは、実行するとセルB2にセルA2を参照した結果、「14」が代入されるマクロである。

空欄に入る適切な語句を選択肢より解答しなさい。

Sub Exam1()

　Range("B2") = 【 　① 　】(Range("A2"))

End Sub

次のコードは、セルに入力されている文字列の中から一部を抜き出してメッセージボックスに表示するマクロである。

セルA2に「Central America」という文字列が入力されているとき、

セルB2に代入される文字列として正しいものを、次の選択肢の中から解答しなさい。

Sub Exam1()

    Dim N As String , A As String , B As String

   　 N = Mid(Range("A2"), 5)

     　 A = Left(N, 3)

  　　 B = Right(N, 2)

    Range("B2") = A & B

End  Sub

次のコードは実行したとき、メッセージボックスを表示するマクロである。

実行結果は【　①　】がメッセージで表示された。

空欄に入る適切なものを選択肢の中から１つで解答しなさい。

Sub Exam1()

　Dim N As String

　　N = "Middle East"

　MsgBox Mid(N, 3, 4)

End Sub

次のコードはセル内のアルファベットを大文字にし、指定のセルに代入するマクロである。

空欄に入る適切な語句を選択肢から解答しなさい。

Sub Exam1()

　 Range("B2").Value = 【　①   】(Range("A2").Value)

End Sub

次のマクロを実行後B列目のセルに「〇」はいくつ入るか。

選択肢より個数を解答しなさい。

Sub Exam1()

  Dim i As Long

    For i = 2 To 10

     If Left(LCase(Cells(i, 1)), 1) = "g" Then

        Cells(i, 2) = "〇"

      End If

  Next i

End Sub

次のマクロを実行後メッセージに表示する値として正しいものを、選択肢の中から１つ解答しなさい。

なおセルA2には文字列の両端には「スペース」が１つずつあるものとする。

Sub Exam1()

    Dim A As String

         A = RTrim (Range("A2"))

  MsgBox Len(A)

End Sub

次のマクロを実行後メッセージに表示される値として正しいものを、

選択肢の中から１つ解答しなさい。

なおセルA2には文字列の両端には「スペース」が１つずつあるものとする。

Sub Exam1()

    Dim A As String

         A =Trim(Range("A2"))

  MsgBox Len(A)

End Sub

次のマクロを実行したとき、メッセージボックスに表示されるメッセージとして、正しいものを次の選択肢の中から１つ選択しなさい。

Sub Exam1()

    MsgBox Replace(Range("A2"), "a", ""）

End Sub

次のコードはセル内の文字列を検索し、指定した文字に置き換えてメッセージで表示するコードである。

空欄に入る適切な語句を選択肢より解答しなさい。

Sub Exam1()

    Dim N As String

         N＝【　①   】(Range("A2" ), "America" , "Asia" )  

　　MsgBox N

End Sub

次のコードは、A列に入力されている文字列の中に、スペースが含まれているかどうかを調べ、

含まれていたときにはB列の文字列のスペースより後ろの文字列全てをB列に、

それ以外のときは値の文字列をそのままB列に代入するマクロである。

空欄に入る適切な語句を次の選択肢の中から１つ解答しなさい。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 11

　　　If InStr(Cells(i, 1), " ") > 0 Then

　　　　Cells(i, 2) = Mid(Cells(i, 1), InStr(Cells(i, 1), " ") 【　①   】)

　　　Else

　　　　Cells(i, 2) = Cells(i, 1)

　　End If

　Next i

End Sub

次のコードは、実行するとA列の値の一部分をB列に代入するマクロである。

マクロ実行の結果はどうなるか選択肢の中から正しいものを１つ解答しなさい。

Sub Exam1()

  Dim i As Long

   For i = 1 To 6

    　Cells(i, 2) = Mid(Cells(i, 1), InStr(Cells(i, 1), " ") + 2)

   Next i

End Sub

次のコードはセルに入力されているひらがなをカタカナに、カタカナをひらがなに変換するマクロである。
空欄に入る適切な語句を選択肢より解答しなさい。



 Sub Exam1()

 　 Range("A2")=【　①    】(Range("A2"),vbKatakana)

 　 Range("A3")=「上記空欄①と同じ」(Range("A3"),vbHiragana)

End Sub

次のコードはA列の各セルに入力されている半角文字列を、すべて全角文字列に変換しB列のセル内に代入するマクロである。

空欄に入る適切な語句を選択肢より解答しなさい。

Sub Exam1()

Dim i As Long

　For i = 2 To 11

　　 Cells(i, 2) = StrConv(Cells(i, 1),【　①    】)

　Next i

End Sub

次のコードはセルに入力されている大文字を、すべて小文字に変換し文字列を代入するマクロである。

空欄に入る適切な語句を選択肢より解答しなさい。

Sub Exam1()

　Range("A1") = StrConv(Range("A1"),【　①   】)

End Sub

次のコードは、メッセージボックスに値を表示するマクロである。

表示される値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

  MsgBox Format("139765", "#,###,###")

End Sub

次のコードは、メッセージボックスに値を表示するマクロである。

表示される値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

  MsgBox Format("139765", "0000000")

End Sub

次のコードは、メッセージボックスに値を表示するマクロである。

表示される値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range("A2"), "0#,###.##0")

End Sub

次のコードは、メッセージボックスに日付形式の「25/07/06」を表示するマクロである。

表示される値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range("A2"), "【　①　】")

End Sub

次のコードは、メッセージボックスに「2025年10月23日木曜日」と表示するマクロである。

空欄に入る値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range("A2"), "yyyy年mm月dd日【　①   】")

End Sub

次のコードは、メッセージボックスに「R7.10.23」と表示するマクロである。

空欄に入る値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range("A2"), "【　①   】.m.d")

End Sub

次のコードを、実行したときにメッセージボックスに表示される値は「令和07/09/17」である。

コードの空欄に入るものとして適切なものを選択肢より解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range("A2"), "ggg【　①   】/mm/dd")

End Sub

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

空欄に入るものとして適切なものを選択肢より解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range("A2"), "ggge.m.d(aaa)")

End Sub

次のマクロを実行した時に、メッセージボックスに表示される値は【　①　】である。

空欄に入る値として適切なものを、選択肢の中から１つ解答しなさい。

Sub Exam1()

    Dim A As Double

     A = Range("A2")

　    MsgBox Int(A)

End Sub

次のコードを実行したとき、セルB2に表示される値として正しい選択肢を解答しなさい。

Sub Exam1()

  　Range("B2") = Round(Range("A2"), 0)

  　Range("B3") = Round(Range("A2"), 1)

  　Range("B4") = Round(Range("A2"), 2)

End Sub

次のコードを実行したとき、セルB4に表示される値として正しいものを選択肢の中から解答しなさい。

Sub Exam1()

　　Range("B2") = Abs(Range("A2"))

　　Range("B3") = Abs(Range("A3"))

　　Range("B4") = Abs(Range("A4"))

End Sub

次のコードは実行するとセルの値が下図の時、戻り値は【　①   】を返し、

変数Nに代入しメッセージで表示します。

空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

  Dim N As Variant

     N = IsNumeric(Range("A2").Value)

        MsgBox N         

End Sub

次のコード実行をしたときIsDate関数の戻り値は【　①　】であった。

空欄に入る語句として適切なものを選択肢の中から１つ選択しなさい。

Sub Exam1()

 Dim N As String

  N = Range("A2").Value

    If IsDate(N) = True Then

        MsgBox  N & "は日付形式です。"

    Else

        MsgBox  N & "は日付形式ではありません"

    End If

End Sub

次のマクロを実行したとき、メッセージボックスに表示されるボタンはどれになるか。

正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　 Dim N As Long

　　N = MsgBox("完了", vbAbortRetryIgnore)

End Sub

次のマクロを実行したとき、メッセージボックス内に表示されるアイコンを選択肢より１つ解答しなさい。

Sub Exam1()

　 Dim N As Long

　　　N = MsgBox("要確認", vbOKCancel+vbCritical, "フェーズ1")

End Sub

次のコードはタイトルを省略した文字入力可能なダイアログボックスを表示し、

ボックス内に初期値「VBA」を文字列として表示し、入力した値をメッセージで表示するマクロである。

空欄に入る適切な語句を選択肢より解答しなさい。

Sub Exam1()

  Dim N As String

    N = InputBox("何か文字を入力してください。", 【　①   】【　②   】)

　If N = "" Then

　  MsgBox "キャンセルボタンあるいは空欄が入力されました。"

　Else

  　MsgBox "入力値は" & N & "です。"

　End If

End Sub

次のコードは、値を入力するダイアログボックスを表示するマクロである。

キャンセルボタンをクリックした時や、入力された文字列が何もない場合には、どのような値を戻り値として返すか。

適切な語句を選択肢より１つ解答しなさい。

Dim A As String

A = InputBox("何か文字を入力してください", "VBA")