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

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

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

以下の文書は、VBAの要素であるオブジェクト式について説明したものである。

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

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

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

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

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

次のマクロを実行したとき、下図セルD1に代入される値はいくつか解答しなさい。

Sub Exam1()

    Dim i As Long, N As Long

　　　 For i = 2 To 6

　　　　 If Cells(i, 1).Value = “Black” Or Cells(i, 1).Value = “White” Then

　　　　　If Cells(i, 2).Value >= 200 Then

　　　　　　　N = N + 200

　　　　　  Else

　　　　　　　N = N + 100

　　　　    End If

　　　   Else

　　　　　N = N + 50　　

 　　   End If

   Next i

  　　  MsgBox N

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

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

Range(“A1:C3”) の説明として正しいものを選択肢から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  

VBAのコレクションの説明として、正しいものを選択肢から1つ選びなさい。

ブックに関する説明として正しいものを、次の中から2つ選択しなさい。

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

Sub Exam1()

【　 ① 　】

End Sub

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

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

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

Sub Exam1()

    Dim A As String

         A ＝Trim (Range(“A2”))

  MsgBox Len (A)

End Sub

クイックアクセスツールバー(QAT)の登録やボタンついて説明した以下の選択肢のうち、間違っているものを１つ解答しなさい。

個人用マクロブックに関する説明として、誤っているものを一つ選びなさい。

次のコードはセルA1の値とセルD1の値が等しくないとき”等しくありません”と表示するマクロである。

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

Sub Exam1()

　　If Range(“A1”).Value 【　①　】 Range(“D1”).Value Then MsgBox “等しくありません”

End Sub

以下の選択肢は変数の自動変換について説明したものである。適切な説明を選択肢から１つ解答しなさい。

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

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

Sub Exam1()

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

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

End Sub

VBEの起動と終了についての説明として、正しいものを選択肢から1つ解答しなさい。

マクロの説明ついて、誤っているのものを選択肢から1つ解答しなさい。

次のコードは、セルA2の値が「North America」あるいは「South America」の時は、

セルC2に「America」が入力され、それ以外の場合には「ー」が入力されるマクロである。

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

Sub Exam1()

　If Range(“A2”).Value = “North America” Or Range(“A2”).Value = “South America” 【　①    】　
　
　　Range(“C2”).Value = “America”

 　【    ②   】

 　 Range(“C2”).Value = “ー”

    End If

End Sub

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

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

：連続するシートの選択

以下の空欄に小数や負の値の売り上げ金額にも対応した、変数の型指定文字を記述したい。

適切でないものはどれか、選択肢の中から一つ解答しなさい。


Dim A As 【　①   】

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

VBEについて説明した以下の選択肢のうち、正しいものを１つ答えなさい。

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

以下のブックの挿入についての説明で間違っているものを、選択肢の中から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

下図のようにシートが並んでいる状態で、シート名「Sheet3」を一番左端に移動するコードして以下の空欄に入る適切なものを選択肢から1つ回答しなさい。

Sub Exam1()

　　【　 ① 　】

End Sub

モジュールとマクロの関係に関する説明として、適切なものを一つ解答しなさい。

以下の空欄の中に、選択肢から整数で最も範囲が広い型指定文字を記述したい。

適切なものを選択肢の中から一つ答えなさい。

Dim N As 【　①   】

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

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

Sub Exam1()

　 Dim N As Long

　　N = MsgBox ( “完了”, vbAbortRetryIgnore)

End Sub

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

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

Sub Exam1()

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

End Sub

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

1.Range(“A1”).Value

2.Range(“A1”).Formula

3.Range(“A1”).Text

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

次のコードはブックへ変更した内容が保存されているかを判断し、メッセージを表示するマクロである。

未保存の場合は3行目の処理を、それ以外の場合は6行目の処理を行います。

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

Sub Exam1()

    If ThisWorkbook.Saved= 【　①   】 Then

        MsgBox “変更が未保存です。保存します。”

        ThisWorkbook.Save

    Else

        MsgBox “変更はありません。保存は不要です。”

    End If

End  Sub

図形やボタンに登録したマクロに関する説明として正しいものを以下の選択肢の中から一つ解答しなさい。

変数に日付を格納したい。この時の型指定文字として間違っているものを一つ解答しなさい。