{"text_format":"1","workbook":"xlsx","n_sheets":3,"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「読み込みシート」をコピーする。\n尚, コピーしたシートの位置は末尾, \nシートの名前は「コピーシート」とする。"]
[null,"シートコピーを行った場合は,  \nMsgBox関数（情報アイコン）で「シートコピー完了！」と表示する。\n既に「コピーシート」があり, シートコピーを行わなかった場合は, \nMsgBox関数（情報アイコン）で『既に「コピーシート」があった為, シートコピーを行いませんでした。』と表示する。"]

{"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 ws As Worksheet\n    Dim sheetExists As Boolean: sheetExists = False\n    ' ワークブック内に「コピーシート」が存在するか確認\n    For Each ws In ThisWorkbook.Worksheets\n        If ws.Name = \"コピーシート\" Then\n            sheetExists = True\n            Exit For\n        End If\n    Next ws\n    ' 「コピーシート」が存在しない場合\n    If Not sheetExists Then\n        ' 「読み込みシート」をコピー\n        ThisWorkbook.Worksheets(\"読み込みシート\").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)\n        ' コピーしたシートの名前を「コピーシート」に設定\n        ActiveSheet.Name = \"コピーシート\"\n        ' メッセージを表示\n        MsgBox \"シートコピー完了！\", vbInformation\n    Else\n        ' 「コピーシート」が既に存在する場合のメッセージを表示\n        MsgBox \"既に「コピーシート」があった為, シートコピーを行いませんでした。\", vbInformation\n    End If\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込みシート","index":2,"n_rows":5,"n_cols":2,"rows_kept":5,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"＊正常に動作した場合は, このシートがコピーされます。"]