【カテゴリー別】Excel VBA ベーシック 模擬問題　シート操作

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

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

Sub Exam1()

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

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

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

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

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

：連続するシートの選択

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

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

Sub Exam1()

　　【　 ① 　】

End Sub

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

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

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

Sub Exam1()

　【　 ① 　】

End Sub

新しいブックにシートをコピーするマクロとして正しいものを、次の選択肢の中から１つ解答しなさい。

ブックにシートを挿入するマクロとして、以下の空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

　Sheets.【　①    】 

End Sub

次のコードは、指定したシートの後ろにシートを3枚挿入するマクロである。

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

Sub Exam1()

 　Sheets.Add After:=Sheets("Sheet1"), 【 　① 　】:=3

End Sub

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

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

Sub Exam1()

      Sheets("Sheet1").Delete

End Sub

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

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

次のコードは、ブックに下図のようにシートが複数枚あるときに実行するマクロである。
実行結果を選択肢の中から1つ解答しなさい。

Sub Exam1()

　Sheets("Sheet2").Visible = False

　 Sheets("Sheet2").Select

End Sub