【ランダム順出題】Excel VBA ベーシック 模擬試験　③　ベータ版

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

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

Sub Exam1()

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

End Sub

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

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

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

Sub Exam1()

【　 ① 　】.Value = “VBA”

End Sub

マクロの実行やデバックについて説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

VBEの起動やマクロの記録のショートカットキーに関する説明として、正しいものを選択肢から1つ解答しなさい。

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

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

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

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

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

図形等へのマクロ登録に関しての説明として正しいものを、以下の選択肢の中から一つ解答しなさい。

現在開いているブックが複数ある場合において、

2番目に開いたブックの左から3番目のシートのセルA1に値を代入するマクロとして、

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


Sub Exam1()

【　 ① 　】

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

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

Sub Exam1()

【　 ① 　】

End Sub

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

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

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

Dim N As 【　①   】

次のコードは条件にあったセルが見つかった時に、指定のセルに入力されている値をクリアにするマクロである。

セル内の値がクリアになったセルはどこか選択肢の中から一つ解答しなさい。

Sub Exam1()

    Dim i As Long

    For i = 2 To 11

        If Cells(i, 2) = “Southeast Asia” Then

           Cells(i, 2).Resize(, １).ClearContents

        End If

    Next i

   End Sub

次のコードを実行したとき、メッセージボックスに表示される変数Aの値はどれか。

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

Sub Exam1()

　Dim i As Long, A As String

　　For i = 1 To 3

　　　　A = A & “&” & “VBA”

　　Next i

　　MsgBox A

End Sub

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

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

次のコードは実行したとき、文字が太字になる行は合計【　①    】行である。

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

Sub Exam1()

    Dim i As Long

    For i = 2 To 13

 If Cells(i, 2)

 　Cells(i, 1).Resize(, 4).Font.Bold = True

 　End If

    Next i

End Sub

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

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

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

Sub Exam1()

  Dim N As String

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

　If N ＝”” Then

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

　Else

  　MsgBox “入力値は” & N & ”です。”

　End　If

End Sub

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

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

Sub Exam1()

　 Dim N As Long

　　N = MsgBox ( “完了”, vbAbortRetryIgnore)

End Sub

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

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

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

Sub Exam1()

　【　 ① 　】

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

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

シートを削除した時に、下図の確認メッセージを表示させないコードとして、

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

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

Sub Exam1()

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

End Sub

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

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

グラフ描画するシートを選択することができるコードはどれか。

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

Sub Exam1()

　【　 ① 　】

End Sub

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

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

Sub Exam1()

    Dim A As String

         A ＝RTrim (Range(“A2”))

  MsgBox Len (A)

End Sub

下図のようにデータが入力されている状態で、次のマクロを実行したとき、

メッセージに表示される値はどれか。正しいものを選択肢から１つ解答しなさい。

Sub Exam1()

  If Range(“A2”).Value =“Black” Or Range(“A2”).Value = “White” Then

        MsgBox ”〇”　

    Else

       If Range(“A2”).Value = “Red” And Range(“B2”).Value < = 300 Then

     　     MsgBox ”△”　

        Else

          MsgBox ”×”　

        End If

    End If

End Sub

次のコードを実行した結果エラーとなるものを、選択肢の中から１つ選びなさい。  

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

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

次のVBEの説明のうち正しいものを選択肢から1つ解答しなさい

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

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

マクロのセキュリティレベルやセキュリティの表示、通知について説明した以下の選択肢のうち、正しいものを2つ解答しなさい。

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

 Sub Exam1()

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

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

End Sub

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

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

Sub Exam1()

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

End Sub

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

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

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

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