{"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空白でない場合は, \nそのファイルの存在を確認し, その結果をセル「ファイル存在確認結果」に\n「存在有り」か「存在無し」を入力する。"]
[null,"最後に, MsgBox関数で「実行完了」と表示する。"]

{"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: Set ws = ThisWorkbook.Sheets(\"読み込み＆書き込みシート\")\n    Dim flPath As String: flPath = ws.Cells(6, 2).Value\n    Dim resultCell As Range: Set resultCell = ws.Cells(9, 2)\n    If flPath = \"\" Then\n        resultCell.Value = \"パス無し\"\n    ' Dir関数は引数にファイルパスを設定した場合, そのファイルが有れば, そのファイル名を返し, 無ければ, 空白文字を返す\n    ElseIf Dir(flPath) <> \"\" Then\n        resultCell.Value = \"存在有り\"\n    Else\n        resultCell.Value = \"存在無し\"\n    End If\n    MsgBox (\"実行完了\")\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込み＆書き込みシート","index":2,"n_rows":8,"n_cols":2,"rows_kept":8,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[null,"↓自分のPCの任意のファイルのパスをここにコピペして下さい！（ディレクトリではなく, ファイルのパスをお願いします）"]
[null,"ファイルパス（両端に\"\"がある場合は削除して下さい）"]
[]
[]
[null,"ファイル存在確認結果"]