{"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":11,"n_cols":4,"rows_kept":11,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"問題文",null,"解答方法"]
[null,"以下の要件を満たすVBAの\nプログラムを実装して下さい。",null,"解答プログラムは\n「開発」\n→「Visual Basic」\n→「Answer」\n内のSub answer()に記載して下さい。"]
[]
[null,"要件"]
[null,"本ツールと同じフォルダに新しくExcelファイルを作成する。\nExcelファイル名は「（年月日時分秒）.xlsx」とする。"]
[null,"次に, MsgBox関数（情報アイコン）で「Excelファイル作成完了！（改行）次の画面で確認して下さい。」と表示する。"]
[null,"新しく作成したExcelファイルが入ったフォルダをエクスプローラー画面で開く。"]

{"sheet":"正答","index":1,"n_rows":7,"n_cols":2,"rows_kept":7,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"正答プログラム例"]
[null,"Option Explicit\nSub correctAnswerExample()\n    Dim folderPath As String\n    Dim fileName As String\n    Dim wb As Workbook\n    Dim newFilePath As String\n    ' 本ツールが入ったフォルダのパスを取得する\n    folderPath = ThisWorkbook.path\n    ' 現在時刻からなるExcelファイル名を設定\n    fileName = Format(Now, \"yyyymmddhhmmss\") & \".xlsx\"\n    ' 新しいExcelファイルのファイルパスを設定\n    newFilePath = folderPath & \"\\\" & fileName\n    ' Excelファイルを作成\n    Set wb = Workbooks.Add\n    ' 新しく作成したExcelファイルを保存する\n    wb.SaveAs fileName:=newFilePath\n    ' 新しいExcelファイルを閉じる（書き込みを行っていないので, 上書き保存はしない）\n    wb.Close False\n    ' メッセージを表示\n    MsgBox \"Excelファイル作成完了！\" & vbCrLf & \"次の画面で確認して下さい。\", vbInformation\n    ' エクスプローラー画面で開く\n    Shell \"explorer \" & folderPath, vbNormalFocus\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]