【ランダム順出題】Excel VBA ベーシック 模擬試験　問題バンクから40問出題　

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

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

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “【　①　】”)

End Sub

以下の説明はVBAの関数について記述したものである。正しい選択肢を１つ解答しなさい。

変数Aへ値を格納する記述として、正しいものを1つ解答しなさい。

VBEのコメント機能について説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

VBAの用語の説明として、正しいものを選択肢から1つ選びなさい。

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

次のコードはセルA1を含む連続したひとかたまりのセル範囲に、行が何行あるかを調べるマクロである。

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

Sub Exam1()

    Dim N As Integer

   　 N = Range(“A1”).【　①    】.Rows.Count

    MsgBox N

End Sub

次のコードは単一セルのセルA3を、セル範囲をA3:B5に拡大し選択するコードである。空欄に入る語句として正しいものを１つ解答しなさい。

Range(”A3”).Resize【　①   】.Select

’指定のセルを3行２列にサイズ変更する。

次のコード実行をしたとき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

次のコードはシートから別のシートへセルをコピーするマクロである。なおアクティブシートはシートの一番左端にある「sheet1」である。

このマクロの説明として、正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　Sheets(“sheet1”).Range(“A2”).Copy _

Sheets(“sheet3”).Range(“A2”).Offset(1)

End Sub

次のコードは、ブックにシートが複数枚ある時にシートを削除する目的で作成したマクロである。

実行した結果を選択肢から解答しなさい。

Sub Exam1()

      Sheets(“Sheet1”).Delete

End Sub

新しいブックにシートをコピーするマクロとして正しいものを、次の選択肢の中から１つ解答しなさい。

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

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

Sub Exam1()

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

End Sub

セルのFormulaプロパティについての記述として、適切なものを選択肢から1つ解答しなさい。

すでに保存がされているアクテイブ状態のブックに対して、次のコードを実行した場合どうなるか。

説明として正しいものを、選択肢から１つ解答しなさい。

*なお保存先に同じ名前のブックはないものとする。

Sub Exam1()

　　ActiveWorkbook.Sheets(1).Range(“A1”) = “VBA”

　ActiveWorkbook.Close SaveChanges:=True, Filename:=”C:\User\Total.xlsx”

End Sub

次のコードでマクロ実行した時、結果がどうなるか選択肢の中から１つ解答しなさい。  

Sub Exam1()

　Dim A As Long, B

　　A = “20”

　　B = “VBA”

　　　MsgBox A & B

End Sub    

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

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

Sub Exam1()

　 Range(“B2”).Value = 【　①   】(Range(“A2”).Value)

End Sub

以下のマクロの変数Aに０～100までの整数を格納したい。

空欄に入る適当なものを一つ選択肢から解答しなさい。  

Sub Exam1()

　Dim A As 【　①　】

　A = 100

　　MsgBox A

End Sub  

次のコードを実行したとき、メッセージに表示される値を選択肢から解答しなさい。

Sub Exam1()

　　Dim i As Long, N As Long

　　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2

　　　　If Cells(i, 1) = 1 Then

　　　　　N = N + Cells(i, 1).Value

　　　　End If

　　　Next i

　　　　MsgBox N

End Sub

VBEからマクロを実行する時の説明として間違っているものを、次の選択肢の中から2つ解答しなさい。    

論理演算子の説明として誤っているものを、選択肢の中から一つ解答しなさい。

セルに表示された文字列を読み取る記述として、正しいものを選択肢から1つ解答しなさい。

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

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

Sub Exam1()

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

End Sub

次のVBA全般の説明のうち、間違っているものを1つ解答しなさい。

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

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

Sub Exam1()

    Dim A As String

         A ＝RTrim (Range(“A2”))

  MsgBox Len (A)

End Sub

以下のブックの挿入についての説明で間違っているものを、選択肢の中から1つ解答しなさい。

以下のマクロはB列が500より小さい場合、A列からC列までをE列に順にコピーするマクロである。

空欄を埋める適切なものを選択肢から１つ解答しなさい。

Sub Exam1()

   Dim i As Long, A As Long

      For i = 2 To 11

          If Cells(i, 2) < 500 Then

                A = A+ 1

               Range(Cells(i, 1), Cells(i, 3)).Copy 【　①   】

            End If

        Next i

   End Sub

以下のマクロを実行したときに、最後にアクティブ状態のセルはどれか。選択肢より１つ解答しなさい。

Sub Exam1()

　Range(“A2”).Activate

  Range(“D2:E3”).Select

  　 Selection.Offset(2, 3).Select

End Sub

コレクションについて説明した以下の選択肢のうち、誤っているものを1つ解答しなさい。

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

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

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “0#,###.##0”)

End Sub

オブジェクト式に基本の型は以下のついて説明した以下の選択肢のうち、正しいものを１つ解答しなさい。 

以下のコードは表のデータ部分のみを別のシートにコピーするマクロである。

適切な選択肢を2つ解答しなさい。

次のマクロの中でエラーとなるものを選択肢から１つ解答しなさい。

次のマクロを実行したとき、メッセージボックスに表示される変数の値について、

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

Sub Exam1()

   Dim i As Long, A As Long

    For i = 2 To 11

        If Cells(i, 1) = “Green” Then

            A = Cells(i, 1).Offset(2, 1)

        End If

    Next i

    MsgBox A

End Sub

次のコードは、マクロ実行前に表の列の最終行数がいくつかわからないときや、

列の最終行が変更となった時でも一番上から下へ進み最終行を見つけ、変わらず処理を実行するマクロである。

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

Sub Exam1()

   Dim i As Long, LastRow As Long

    LastRow = Range(“A1”).【　①   】

     For i ＝2 To LastRow

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

　　Next i

  End Sub

次のコードは、B列の数値が3より大きいときは、B列の同じ行の、A列のセルの値をF列へ、B列のセルの値をG列へ代入するマクロである。

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

Sub Exam1()

　　Dim i As Long, LastRow As Long

　　　LastRow = Cells(Rows.Count, 1).End(xlUp).Row

　　　　For i = 2 To LastRow

　　　　　If Cells(i, 2) > 3 Then

　　　　　With Cells(Rows.Count, 6).End(xlUp)

　　　　　　.Offset(1) = Cells(i, 1)

　　　　　　【　①   】= Cells(i, 2)

　　　　 End With

　       End If

      Next i

End Sub

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

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

Sub Exam1()

   Dim i As Long, N As String

    For i = 2 To 11

　 If Cells(i, 3 )> 600 Or Cells(i, 4) < 100 Then

　　   If Cells (i, 2) = “warm” Then

　　　N = N + Cells(i, 1)
 
          End If

        End If

    Next i

 　　  MsgBox N

End Sub

次のVBAの行と列の指定の説明のうち、正しいものを２つ解答しなさい。