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

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

次のコードは、セルに入力されている文字列の中から一部を抜き出してメッセージボックスに表示するマクロである。

セル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

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

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

Sub Exam1()

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

End Sub

次のコードはブック内のシート名「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

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

以下のマクロを実行時、セルを削除したあとに左方向にシフトする記述として空欄に入る語句を選択肢から１つ解答しなさい。  

Sub Exam1()

　Range(“C3”).Delete Shift:=【　①　】

End Sub

変数についての説明として、正しいものを以下の選択肢から1つ解答しなさい。  

ClearContentsメソッドに関する説明として、適切でないものを選択肢の中から一つ解答しなさい。

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

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

Sub Exam1()

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

End Sub

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

次のコードは実行時の時間をメッセージで表示するマクロである。

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

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

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

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

Sub Exam1()

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

End Sub  

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

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

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

Cells(3, 5) の説明として正しいものを以下の選択肢から1つ選びなさい。

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

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

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

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

Sub Exam1()

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

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

End Sub

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

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

Sub Exam1()

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

End Sub

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

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

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

Sub Exam1()

【　 ① 　】.Value = “VBA”

End Sub

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

次のコードは、値を入力するダイアログボックスを表示するマクロである。

キャンセルボタンをクリックした時や、入力された文字列が何もない場合には、どのような値を戻り値として返すか。

適切な語句を選択肢より１つ解答しなさい。

Dim A As String

A = InputBox(“何か文字を入力してください。”, “VBA”)

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

Sub Exam1()

　　【　 ① 　】

End Sub

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

VBAについて説明した以下の選択肢のうち、適切なものを１つ解答しなさい。

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

次のコードはA列の各セルに入力されている半角文字列を、すべて全角文字列に変換しB列のセル内に代入するマクロである。

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

Sub Exam1()

Dim i As Long

　For i = 2 To 11

　　 Cells(i, 2) = StrConv(Cells(i, 1),【　①    】)

　Next i

End Sub

以下のマクロは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

次のコードは、1列目から3列目に入力されている値から日付を認識し、

認識した日付の翌日の年月日を4列目に入力するマクロである。

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

Sub Exam1()

　　Cells(１,4) =【　①   】(Cells(1, 1), Cells(1, 2), Cells(1, 3))＋１

End Sub

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

次のコードは表の最終行全体を削除するマクロである。

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

Sub Exam1()

     Cells(Rows.Count, 1).End(xlUp).【　①    】. Delete     

End Sub

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

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

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

Sub Exam1()

　【　①   】N【　②   】 ”VBA”

　　MsgBox N

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

複数の変数の宣言方法として正しいものはどれか、選択肢の中から２つ選びなさい。

アクティブシートやシートの選択に関する説明として間違っているものを、次の選択肢の中から１つ解答しなさい。