以下のコードを実行したとき、メッセージボックスには何と表示されるか。
選択肢の中から正しいものを１つ解答しなさい。
Sub Exam1()
ActiveWorkbook.Save
If ActiveWorkbook.Saved = True Then
MsgBox "ブックは保存されています。"
Else
MsgBox "ブックは保存されていません。"
End If
End Sub
1.ブックは保存されていません。
2.ブックは保存されています。
3.エラーが発生しました。
4.何も表示されません。
正解
2
解説
【9章 シートとブックの操作】
【ブックの保存状態を調べる】
●Savedプロパティは変更した内容が保存されたかどうかを判断します。
保存されているときは「True」、まだ保存されていないときは「False」を返します。
構文
ブック.Saved
【コード解説】
以下のコードを実行したとき、メッセージボックスには何と表示されるか。
選択肢の中から正しいものを１つ解答しなさい。
Sub Exam1()
ActiveWorkbook.Save
' アクティブブックを上書き保存します。
If ActiveWorkbook.Saved = True Then
' SavedプロパティがTrueかどうかを判定する
MsgBox "ブックは保存されています。"
’ブックは保存されているのでこのメッセージが表示されます。
Else
MsgBox "ブックは保存されていません。"
’ブックは保存されていないときはこのメッセージが表示されます。
End If
End Sub
1.ブックは保存されていません。
誤り。
コードの ActiveWorkbook.Save によってブックは保存されます。
2.ブックは保存されています。
正しい。
ActiveWorkbook.Save メソッドが実行されると、アクティブなブックの現在の編集状態が保存されます。
これにより、ActiveWorkbook.Saved プロパティの値は True になります。
If ActiveWorkbook.Saved = True Then の条件が満たされるため、「ブックは保存されています。」というメッセージが表示されます。
3.エラーが発生しました。
誤り。
このコードは標準的なブックの保存とプロパティの参照を行っており、通常のエラーが発生するような記述はありません。
4.何も表示されません。
誤り。
コードには MsgBox ステートメントが含まれており、保存状態に応じてメッセージボックスが表示されます。
