{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["問題文＆解答","正答"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"問題文＆解答","index":0,"n_rows":10,"n_cols":4,"rows_kept":10,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"問題文",null,"解答方法"]
[null,"以下の要件を満たすVBAの\nプログラムを実装して下さい。",null,"解答プログラムは\n「開発」\n→「Visual Basic」\n→「Answer」\n内のSub answer()に記載して下さい。"]
[]
[null,"要件"]
[null,"末尾のシートの名前が「問題文＆解答」, 「正答」ではなかった場合, \n削除時の警告メッセージ表示をしないように設定した（Application.DisplayAlerts=False）後, \n末尾のシート削除し, \n再度, 削除時の警告メッセージ表示をするように設定する。（Application.DisplayAlerts=True）","←このプログラムは, ユーザーが末尾にシートを追加した後, 実行することを想定しています。"]
[null,"最後に, シートを削除した場合, \nMsgBox関数（情報アイコン）で「シート削除完了！」と表示し, \nシートを削除しなかった場合, \nMsgBox関数（情報アイコン）で\n「シート削除は行いませんでした。（改行）（シート名が「問題文＆解答」, 又は, 「正答」である為）」\nと表示する。"]

{"sheet":"正答","index":1,"n_rows":7,"n_cols":2,"rows_kept":7,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"正答プログラム例"]
[null,"Option Explicit\n\nSub correctAnswerExample()\n    Dim wsFinal As Worksheet: Set wsFinal = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)\n    Dim DelFlg As Boolean: DelFlg = False\n    ' 末尾のシートの名前が「問題文＆解答」, 「正答」ではなかったら,\n    If wsFinal.Name <> \"問題文＆解答\" And wsFinal.Name <> \"正答\" Then\n        '警告メッセージを表示しないように設定する\n        Application.DisplayAlerts = False\n        ' 末尾のシートを削除する\n        wsFinal.Delete\n        '警告メッセージを表示させるように設定する\n        Application.DisplayAlerts = True\n        ' 削除したことをdelFlgをTrueにして記録する\n        DelFlg = True\n    End If\n    ' シートを削除した場合\n    If DelFlg Then\n        MsgBox \"シート削除完了！\", vbInformation\n    ' シートを削除しなかった場合\n    Else\n        MsgBox \"シート削除は行いませんでした。\" & vbCrLf & \"（シート名が「問題文＆解答」, 又は, 「正答」である為）\", vbInformation\n    End If\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]