{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["問題文＆解答","正答","読み込みand書き込みシート"],"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":13,"n_cols":4,"rows_kept":13,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"問題文",null,"解答方法"]
[null,"以下の要件を満たすVBAの\nプログラムを実装して下さい。",null,"解答プログラムは\n「開発」\n→「Visual Basic」\n→「Answer」\n内のSub answer()に記載して下さい。"]
[]
[null,"要件"]
[null,"最初に, シート「読み込みand書き込みシート」をアクティベートする。"]
[null,"シート「読み込みand書き込みシート」の「取得データ」の\nセル範囲の値をRange変数.Valueを使って, 一括取得する。"]
[null,"シート「読み込みand書き込みシート」の\n「数値データ書き込みセル」のセル範囲の値を削除する。\n（初期化）"]
[null,"取得したデータをインデックス指定でループして, \nIsNumeric関数を使って, 各要素が数字か判定し, \n数字だった場合は「数値データ書き込みセル」中の\n対応する行列の位置に入力する。"]
[null,"最後に, MsgBox関数（情報アイコン）で\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 ws As Worksheet: Set ws = ThisWorkbook.Worksheets(\"読み込みand書き込みシート\")\n    ' アクティベート\n    ws.Activate\n    Dim getRng As Range: Set getRng = ws.Range(ws.Cells(6, 2), ws.Cells(7, 4))\n    Dim writeRng As Range: Set writeRng = ws.Range(ws.Cells(10, 2), ws.Cells(11, 4))\n    Dim data As Variant: data = getRng.Value\n    Dim i As Integer\n    Dim j As Integer\n    ' 初期化\n    writeRng.ClearContents\n    For i = LBound(data, 1) To UBound(data, 1)\n        For j = LBound(data, 2) To UBound(data, 2)\n            If Not IsNumeric(data(i, j)) Then\n                ' GoToは指定した箇所に処理を飛ばすことができる（処理が分かりにくくなることがある為, 乱用厳禁）\n                GoTo NextNode\n            End If\n            writeRng.Cells(i, j) = data(i, j)\nNextNode:\n        Next j\n    Next i\n    MsgBox \"データ取得・数値データ書き込みを完了しました。\", vbInformation\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込みand書き込みシート","index":2,"n_rows":9,"n_cols":4,"rows_kept":9,"cut":false,"hidden":false,"merged":[[4,1,4,3],[8,1,8,3]]}
[]
[]
[]
[]
[null,"取得データ"]
[null,45,"う","い"]
[null,"あ",4,30]
[]
[null,"数値データ書き込みセル"]