{"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":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,"最初に, シート「読み込みシート」をアクティベートする。"]
[null,"シート「読み込みシート」の「データ」下のセルをループし, \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\n    Dim row As Integer\n    Dim FirstRow As Integer\n    Dim DataLen As Integer\n    Dim cell As Range\n    Set ws = ThisWorkbook.Worksheets(\"読み込みシート\")\n    ' シート「読み込みシート」をアクティベートする\n    ws.Activate\n    ' 「データ」の最初の行を定義\n    FirstRow = 6\n    ' 「データ」の長さを定義\n    DataLen = 5\n    ' 各セルをループ\n    For row = FirstRow To FirstRow + (DataLen - 1)\n        Set cell = ws.Cells(row, 2)\n        If InStr(cell.Value, \"重要\") > 0 Then\n            cell.Font.Color = RGB(255, 0, 0) ' 「重要」を含む場合、赤色に設定\n        Else\n            cell.Font.Color = RGB(0, 0, 255) ' 含まない場合、青色に設定\n        End If\n    Next row\n    ' メッセージボックスで通知\n    MsgBox \"文字色設定を完了しました。\", vbInformation\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込みシート","index":2,"n_rows":10,"n_cols":2,"rows_kept":10,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"データ"]
[null,"重要情報"]
[null,"情報"]
[null,"情報"]
[null,"重要情報"]
[null,"情報"]