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

関数の引数について説明した以下の選択肢のうち、正しいものを1つ解答しなさい。

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

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

Sub Exam1()

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

End Sub

次のマクロの内、メッセージボックスの左から2番目のボタンを押したときの戻り値が、「vbNo」となるコード２つを選択肢より解答しなさい。

次のコードは、シート名「sheet2」のセル内に文字列を代入するマクロである。

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

Sub Exam1()

　Sheets(【　①   】).Range(“A1”).Value = “ABC”

End Sub  

次のコードはブック内のシート名、「2」、「3」のセル内に文字列を代入するマクロである。

なおブック内にシートは3枚あり、シート名は左端から下図の順番に並んでいます。  

上記のとおりには実行できない、間違っているマクロを選択肢の中から２つ解答しなさい。  

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

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

Sub Exam1()

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

End Sub

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

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

Sub Exam1()

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

End Sub

変数の有効期間と値の保持に関する説明として、正しいものを1つ選択しなさい。

変数の初期化について、正しい説明を選択肢より1つ選択しなさい。

ブックを開くコードとして間違っているものを空欄に入る選択肢から2つ解答しなさい。

Sub Exam1()

【　 ① 　】

End Sub

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

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

Sub Exam1()

      Sheets(“Sheet1”).Delete

End Sub

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

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

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

Sub Exam1()

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

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

End Sub

VBAの演算子に関する説明として、間違っているものを選択肢より一つ解答しなさい。

次のコードは、ブック内の各シートのA列の6行目までのセルに「VBA」が入力されているとき、入力されていた回数の合計を、ブックの１番左にあるシートのセルに代入するマクロである。

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

*なおブック内には、下図のようなシートが複数枚存在する。

１番左端にあるシート

Sub Exam1()

　　　Dim i As Long, j As Long, k As Long, N As Long

　　　　　For i = 2 To Sheets.Count

　　　　　　　With Sheets(i)

　　　　　　　　For j = 2 To 6

　　　　　　　　　With【　①   】

　　　　　　　　　　If .Value = “VBA” Then

　　　　　　　　　　　N = N + 1

　　　　　　　　　　End If

　　　　　　　　End With

　　　　　　　Next j

　　　　　　End With

　　　　Next i

　　　Sheets(1).Range(“A2”) = N

End Sub

Boolean型の変数に格納できる値はどれか、次の選択肢の中から一つ選びなさい。

セル内の数式の取得や数式の代入をするプロパティとして、正しい記述を選択肢から解答しなさい。

1.Range(“A1”).Value

2.Range(“A1”).Formula

3.Range(“A1”).Text

4.Range(“B1”).Formula = “=Sum(A1:A3)”

次のコードは現在開いているブックが１つ、ブック上のシートが1枚のみの時に、シート上のセルA1に値を代入するマクロです。

コードの記述として、空欄に入る適切なものを選択肢の中から１つ解答しなさい

Sub Exam1()

　　【　 ① 　】

End Sub

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

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

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

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

Sub Exam1()

    Dim A As String

         A ＝Trim (Range(“A2”))

  MsgBox Len (A)

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

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

Sub Exam1()

　　Range(“B2”) = Abs(Range(“A2”))

　　Range(“B3”) = Abs(Range(“A3”))

　　Range(“B4”) = Abs(Range(“A4”))

End Sub

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

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

Sub Exam1()

    Dim N As Integer

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

    MsgBox N

End Sub

次のマクロを実行した結果、D列に代入される数値の合計として正しいものを、選択肢の中から１つ解答しなさい。

Sub Exam1()

  Dim i As Long

    For i = 2 To 11

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

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

　　　　 If Cells(i, 1) = “Brown” Then Cells(i, 4) = Cells(i, 3) /2

　　　　 If Cells(i, 1) = “Yellow” Then Cells(i, 4) = Cells(i, 3) * 2　　 

　　　End If　       

    Next i

End Sub

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

以下の選択肢の中で実行途中に「変更内容を保存しますか？」

というメッセージが出るマクロはどれか。空欄に入る適切なものを選択肢から1つ解答しなさい。

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

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

 Sub Exam1()

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

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

End Sub

VBAでセルを指定する際に使用する用語として、適切ではないものを選択肢から1つ解答しなさい。

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

Sub Exam1()

　Dim A As Long, B

　　A = “20”

　　B = “VBA”

　　　MsgBox A & B

End Sub    

VBAのオブジェクト式においてメソッドとは以下のどれか、正しいものを選択肢より1つ解答しなさい。

選択されている複数のセルの中で文字入力可能な、１つのセルにのみ値を入力するマクロとして、正しいものを１つ選択肢から選びなさい。

変数の宣言や、変数の宣言強制の説明で間違っているものを、選択肢の中から１つ解答しなさい。

以下の選択肢のコードや、条件のときに実行すると「エラー」となるものを選択肢の中から１つ解答しなさい。

以下のVBAのステートメントに関する説明として、正しいものを1つ解答しなさい。

以下の選択肢の中で、キー操作で複数のシートを選択する操作として、正しいものを1つ解答しなさい。

：複数の連続しないシートの選択

：連続するシートの選択

次のコードは、実行すると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

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

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

Sub Exam1()

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

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

End Sub

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

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

Sub Exam1()

    Dim A As Double

     A = Range(”A2”)

　    MsgBox Int(A)

End Sub