{"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関数（情報アイコン）で「削除する必要がある情報が記載されていた為, 削除しました。」と表示して下さい。\n削除しなかった場合, 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 readWs As Worksheet\n    Dim targetCell As Range\n    Dim targetStr As String\n    Dim delFlg As Boolean\n    ' シート「読み込みシート」を設定\n    Set readWs = ThisWorkbook.Worksheets(\"読み込みシート\")\n    ' シート「読み込みシート」をアクティベートする\n    readWs.Activate\n    ' 「読み込みセル」を設定\n    Set targetCell = readWs.Cells(6, 2)\n    ' 「読み込みセル」内の文字列を取得\n    targetStr = targetCell.Value\n    ' 「読み込みセル」内の文字列が「消す情報」だった場合\n    If targetStr = \"消す情報\" Then\n        ' 「読み込みセル」内の文字列を削除する\n        targetCell.ClearContents\n        delFlg = True\n    End If\n    If delFlg Then\n        MsgBox \"削除する必要がある情報が記載されていた為, 削除しました。\", vbCritical\n    Else\n        MsgBox \"削除する必要がある情報は無かった為 , 削除していません｡\", vbInformation\n    End If\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込みシート","index":2,"n_rows":7,"n_cols":2,"rows_kept":7,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"読み込みセル"]
[null,"消す情報"]
[null,"↑毎回, 文字列を変更して, \nプログラムを実行し, \n動作を確認してみて下さい。"]