【カテゴリー別】Excel VBA ベーシック 模擬問題 ブック操作 Excel VBA ベーシック 模擬問題 模擬試験 2026.06.04 Welcome to your 【カテゴリー別】Excel VBA ベーシック 模擬問題 ブック操作 1. __________,__________ ブックに関する記述として間違っているものを、次の選択肢の中から1つ解答しなさい。 ActiveWorkbookとThisWorkbookは、常に同じブックを表す。 ActiveWorkbookとは現在操作しているブックのことで、ThisWorkbookとは実行中のマクロのコードが記述されているブックである。 現在開いているブックの指定は、Workbooksコレクションで保存済みのブックは 「WorkBooks("拡張子を含むブック名")」や「WorkBooks(番号)」と表します。 新規作成したブックはWorkbooks("Book3")のように拡張子をつけずに表します。 開いていないブックの指定は、Workbooksコレクション後ろにファイルの場所を示すフルパスで「Workbooks("フルパス")」と表します。 None 2. __________,__________ ブックに関する説明として正しいものを、次の中から2つ選択しなさい。 現在実施されているマクロが記述されているブックは、ThisWorkbookである。 アクティブ状態のブックをThisWorkbookと呼ぶ。 ブックを開くとそのブックが、ActiveWorkbookになる。 ActiveWorkbookとThisWorkbookは、常に同じブックになる。 3. __________,__________ 以下のブックの挿入についての説明で間違っているものを、選択肢の中から1つ解答しなさい。 ブックを挿入するときのコレクションは、Workbooksコレクションを使用する。 ブックを挿入すると、挿入されたブックがアクティブブックとなる。 ブックを挿入しても、アクティブブックに変更はない。 ブックを挿入するときにはAddメソッドを使用する。 None 4. __________,__________ ブックを開くコードとして間違っているものを空欄に入る選択肢から2つ解答しなさい。Sub Exam1()【 ① 】End Sub Workbooks.Open FileName(:= "C:¥Users¥Total.xlsx") Workbooks.Open "C:¥Users¥Total.xlsx" Workbooks.Open FileName:= "C:¥Users¥Total.xlsx" Workbooks.Open (FileName:= "C:¥Users¥Total.xlsx") 5. __________,__________ 以下の選択肢のコードや、条件のときに実行すると「エラー」となるものを選択肢の中から1つ解答しなさい。 ActiveWorkbook.Save 上書き保存を実行するアクティブブックは、一度保存済みである。 指定の場所にブックは未保存の状態で、ActiveWorkbook.SaveAs Filename:="C:¥User¥Test.xlsx" のコードを2回実行した。保存時、保存場所に同名のファイル名はないものとする。 指定の場所にブックは未保存の状態で、ActiveWorkbook.SaveAs Filename:="C:¥User¥Test.xlsx"のコードを2回、 実行後以下の「置き換えますか?」というメッセージがでて「いいえ」あるいは「キャンセル」ボタンを選択した。 ActiveWorkbook.SaveAs Filename:="C:¥User¥Test.xlsx" 指定の場所にアクティブブックは未保存の状態で、本コードを実行した。保存時に保存先の場所に同名のファイル名はないものとする。 None 6. __________,__________ 次のコードはブックへ変更した内容が保存されているかを判断し、メッセージを表示するマクロである。 未保存の場合は3行目の処理を、それ以外の場合は6行目の処理を行います。 空欄に入る適切な語句を、選択肢より1つ解答しなさい。 Sub Exam1() If ThisWorkbook.Saved = 【 ① 】 Then MsgBox "変更が未保存です。保存します。" ThisWorkbook.Save Else MsgBox "変更はありません。保存は不要です。" End If End Sub False True SaveChanges Protect None 7. __________,__________ 次のコードを実行すると結果はどうなったか、適切な結果を選択肢から1つ解答しなさい。 Sub Exam1() ActiveWorkbook.ActiveSheet.Range(“A1”).Value = “VBA” ActiveWorkbook.Save ActiveWorkbook.Close End Sub ブックの変更内容は、保存されて閉じられる。 ブックの変更内容は、保存されずに閉じられ、エラーが発生する。 ブックの変更内容は、保存されずに閉じられる。 ブックは閉じられず、保存するかどうかのメッセージが表示される。 None 8. __________,__________ すでに保存がされているアクティブ状態のブックに対して、次のコードを実行した場合どうなるか。 説明として正しいものを、選択肢から1つ解答しなさい。 *なお保存先に同じ名前のブックはないものとする。 Sub Exam1() ActiveWorkbook.Sheets(1).Range("A1") = "VBA" ActiveWorkbook.Close SaveChanges:=True, Filename:="C:¥User¥Total.xlsx" End Sub 変更は保存せずブックを閉じた。 実行するとエラーとなった。 「ファイルの内容の変更を保存しますか?」というメッセージが表示される。 変更を反映したブックを名前をつけて保存した。 None 9. __________,__________ ブックに変更を行ったが、変更を保存せず閉じるコードとして、空欄に入る適切な語句を選択肢の中から1つ解答しなさい。 ActiveWorkbook.【 ① 】 Closed Close Close False Close SaveChanges:=True None Time's upTime is Up!