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

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

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

Sub Exam1()

　　【　 ① 　】

End Sub

Range(“A1:C3”) の説明として正しいものを選択肢から1つ選びなさい。

下記のコードを実行したとき、表内のセルの値が変わるセルの個数として正しいものを、

選択肢の中から1つ選びなさい。

Sub Exam1()

 Dim i As Long

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

　If Cells(i, 1) “Orange” Then

　  If Cells(i, 3) =“a” Or Cells(i, 3) = “b” Then

       Cells(i, 2).Value = Cells(i, 2).Value / 2

            End If

          End If

     Next i

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

以下のコードは、下図のようにシート複数枚あるなかで、

シート名「Sheet3」をシートの一番右端に移動させるマクロである。

以上の説明どおり動くマクロはどれか、空欄に入る適切なものを選択肢から1つ解答しなさい。

Sub Exam1()

　【　 ① 　】

End Sub

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

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

Sub Exam1()

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

End Sub

次のマクロを実行したときの結果を説明した選択肢の中から、 説明が正しいものを１つ解答しなさい。

Option Explicit

　Public Const A As String = ”Excel”

　Const B As String = ”Word”

Sub Exam1()

　Const C As String = ”PowerPoint”

　　MsgBox( A & B & C ）

　Call Exam2

End Sub

Sub Exam2()

　MsgBox( A & B & C ）

End Sub

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

Sub Exam1()

    MsgBox Replace(Range(”A2”), “a”, “”）

End Sub

次のコードを実行すると結果はどうなったか、適切な結果を選択肢から１つ解答しなさい。

Sub Exam1()

　ActiveWorkbook.ActiveSheet.Range(“A1”).Value = “VBA”

　ActiveWorkbook.Save

  　ActiveWorkbook.Close

End Sub

次のコードはブック内のシート名「VBA」のシートを探し、見つけたシートのセルに

指定の文字列を代入するマクロである。

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

Sub Exam1()

   Dim i As Long

      For i = 1 To Sheets.【　①   】

        If Sheets(i).Name = “VBA” Then

　　　　Sheets(i).Range(”A1”) ＝”Excel”

　　　End If

    Next i

End Sub

記録したマクロの確認について説明した以下の選択肢のうち、正しいものを1つ選びなさい。

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

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

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

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

次のコードはブック内のシート名「VBA」のシートを探し、見つけた時はメッセージを表示するマクロである。

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

Sub Exam1()

   Dim i As Long

      For i = 1 To Sheets.Count

        If Sheets(i).【　①　】 = “VBA” Then

　　　　MsgBox　”シート名：VBAを見つけました。”

　　　End If

    Next i

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

マクロ記録の説明のうち、適切なものを選択肢から２つ解答しなさい。

ブックに関する記述として間違っているものを、次の選択肢の中から１つ解答しなさい。

クイックアクセスツールバー(QAT)を説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

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

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

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

Sub Exam1()

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

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

End Sub

次のマクロを実行したときに、セル内に表示される結果を次の選択肢から１つ解答しなさい。

Sub Exam1()

　Range(“A1”) = (9 ^ 3) + (11 Mod 2)

End Sub

Single型の変数に格納できる最も適切なデータの種類を、選択肢より1つ解答しなさい。

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

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

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

Sub Exam1()

    Dim A As String

         A ＝Trim (Range(“A2”))

  MsgBox Len (A)

End Sub

標準モジュールの名前と名前の設定に関する説明として、適切なものを一つ解答しなさい。

次のコードでマクロを実行するとエラーとなる行はどこか。

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

Option Explicit

　Public A As String

　Dim B As String, C As String

Sub Exam1()

　Dim D As String

　A = ”Excel”

　B = ”VBA”

　C = “Basic”

　D = ”200”

　　Call Exam2

End Sub

Sub Exam2()

　　MsgBox A + B + C + D

End Sub

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

 Sub Exam1()

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

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

End Sub

シート上で選択されている複数セルに「VBA」と代入するマクロとして、

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

Sub Exam1()

【　 ① 　】.Value = “VBA”

End Sub

マクロダイアログボックスやマクロの実行に関する説明として間違っているものを、次の選択肢の中から2つ解答しなさい。

・マクロダイアログボックス

以下の選択肢の中で最後までメッセージやウィンドウ等で止まることなく実行できるマクロはどれか。

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

現在開いているブックが複数ある場合において、ブック名「Total」のシート名「Sheet1」のセルに値を代入するマクロとして空欄に入る正しいものを選択肢から1つ解答しなさい。

なおブックはすでに一度保存済みである。

Sub Exam1()

【　 ① 　】

End Sub

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

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

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

次のコードは、定数Nに文字列”VBA”を定めるマクロである。

空欄に入る適切な語句の組み合わせとして正しいものを選択肢から1つ選びなさい。

Sub Exam1()

　【　①   】N【　②   】 ”VBA”

　　MsgBox N

End Sub

ステートメントについて説明した以下の選択肢のうち、正しいものを1つ選択しなさい。

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

次のマクロ記録の説明のうち適切なものを選択肢から2つ解答しなさい。