{"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,"シート「読み込み＆書き込みシート」の「読み込みセル」に記載されている文字列を取得し, その文字列を「・」で分割して出来た文字列を「書き込みセル」に自動入力する。"]
[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 readWriteWs As Worksheet\n    Dim inputString As String\n    Dim splitArray() As String\n    Dim writeHeadRng As Range\n    Dim i As Integer\n    ' シート「読み込み＆書き込みシート」を指定\n    Set readWriteWs = ThisWorkbook.Sheets(\"読み込み＆書き込みシート\")\n    ' 読み込みセルの文字列を取得\n    inputString = readWriteWs.Cells(6, 2).Value\n    ' 文字列を「・」で分割して配列に格納\n    splitArray() = Split(inputString, \"・\")\n    ' 書き込みセルの上のセルを取得\n    Set writeHeadRng = readWriteWs.Cells(9, 2)\n    ' 書き込みセルに分割した文字列を自動入力（配列のインデックス（i）は0から始まる）\n    For i = LBound(splitArray) To UBound(splitArray)\n        writeHeadRng.Offset(i, 0).Value = splitArray(i)\n    Next i\n    ' シート「読み込み＆書き込みシート」をアクティブにする\n    readWriteWs.Activate\n    ' MsgBox関数で「実行完了」と表示する\n    MsgBox \"実行完了\"\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込み＆書き込みシート","index":2,"n_rows":12,"n_cols":2,"rows_kept":12,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"読み込みセル"]
[null,"高学歴・高収入・高身長"]
[]
[null,"書き込みセル"]
[null,"高学歴"]
[null,"高収入"]
[null,"高身長"]
[null,"↑毎回, 「書き込みセル」の値を削除して, 実行してみて下さい！"]