{"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「基準セル」からその行, 列分だけずらしたセルの背景色を黒くする。"]
[null,"最後に, シート「読み込み＆書き込みシート」をアクティベートにして, MsgBox関数で, \n「背景色を黒くしたセル:（セルの場所（例:$C$10））」\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 readWriteSheet As Worksheet\n    Dim baseCell As Range\n    Dim offsetRow As Integer\n    Dim offsetCol As Integer\n    Dim targetCell As Range\n    ' シート「読み込み＆書き込みシート」を取得\n    Set readWriteSheet = ThisWorkbook.Worksheets(\"読み込み＆書き込みシート\")\n    ' 基準セルを指定\n    Set baseCell = readWriteSheet.Cells(9, 2)\n    ' オフセットの行数と列数を取得\n    offsetRow = readWriteSheet.Cells(7, 2).Value\n    offsetCol = readWriteSheet.Cells(7, 3).Value\n    ' 基準セルからオフセットしたセルの背景色を黒くする\n    Set targetCell = baseCell.Offset(offsetRow, offsetCol)\n    targetCell.Interior.Color = RGB(0, 0, 0) ' 黒色\n    ' シートをアクティブにする\n    readWriteSheet.Activate\n    ' メッセージボックスで情報を表示\n    MsgBox \"背景色を黒くしたセル: \" & targetCell.Address\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込み＆書き込みシート","index":2,"n_rows":9,"n_cols":4,"rows_kept":9,"cut":false,"hidden":false,"merged":[[4,1,4,2]]}
[]
[]
[]
[]
[null,"オフセット"]
[null,"行数","列数"]
[null,1,1,"←「オフセット」の行数, 列数の数値の範囲は1以上10以下です。"]
[]
[null,"基準セル"]