{"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,"シート「読み込みシート」での\n「対象文字列」が「検索文字列」を全角半角、大文字小文字区別せず含むか判定し、\n判定結果をMsgBox関数で\n「『対象文字列』は『検索文字列』を含みます（ません）。」\nと表示して下さい。"]
[null,"「検索文字列」が空欄の場合は, MsgBox関数で「検索文字列が空欄です。」として、プログラムを終了する。"]
[null,"プログラム開始時にシート「読み込みシート」をアクティベートにする。"]

{"sheet":"正答","index":1,"n_rows":7,"n_cols":2,"rows_kept":7,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"正答プログラム例"]
[null,"Sub correctAnswerExample()\n    Dim ws As Worksheet\n    Dim targetStr As String\n    Dim searchStr As String\n    Dim judgeResult As Boolean\n    ' ワークシートの設定\n    Set ws = ThisWorkbook.Worksheets(\"読み込みシート\")\n    ' シート「読み込みシート」をアクティブ化\n    ws.Activate\n    ' 対象文字列を取得\n    targetStr = ws.Cells(6, 2).Value\n    ' 検索文字列を取得\n    searchStr = ws.Cells(6, 4).Value\n    ' 検索文字列が空欄の場合は終了\n    If searchStr = \"\" Then\n        MsgBox \"検索文字列が空欄です。\"\n        Exit Sub\n    End If\n    ' 対象文字列が検索文字列を含むか判定\n    If InStr(1, targetStr, searchStr, vbTextCompare) > 0 Then\n        judgeResult = True\n    Else\n        judgeResult = False\n    End If\n    ' 判定結果を表示\n    If judgeResult Then\n        MsgBox \"「\" & targetStr & \"」は「\" & searchStr & \"」 を含みます。\"\n    Else\n        MsgBox \"「\" & targetStr & \"」は「\" & searchStr & \"」 を含みません。\"\n    End If\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込みシート","index":2,"n_rows":5,"n_cols":4,"rows_kept":5,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"対象文字列",null,"検索文字列"]