{"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「データテーブル」のデータ範囲においてfindメソッドを使用して, \n指定データの値が書かれたセルアドレスを取得し, \nそれを「指定データのセルアドレス」に入力する。\nもし, findメソッドでセルアドレスを取得できなかった場合は「ありません」と入力する。"]
[null,"最後に, シート「読み込み＆書き込みシート」をアクティベートにして, \nMsgBox関数で「実行完了」と表示する。"]

{"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 searchVal As String\n    Dim findCell As Range\n    Dim dataRng As Range\n    ' シート「読み込み＆書き込みシート」を設定\n    Set ws = ThisWorkbook.Worksheets(\"読み込み＆書き込みシート\")\n    ' 「指定データ」を読み込み\n    searchVal = ws.Cells(6, 4).Value\n    ' 「データテーブル」のデータ範囲を設定\n    Set dataRng = ws.ListObjects(\"データテーブル\").DataBodyRange\n    ' findメソッドを使用して、指定データの値が書かれたセルを検索\n    Set findCell = dataRng.Find(What:=searchVal, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)\n    ' 検索結果を「指定データのセルアドレス」に入力\n    If Not findCell Is Nothing Then\n        ws.Cells(9, 4).Value = findCell.Address\n    Else\n        ws.Cells(9, 4).Value = \"ありません\"\n    End If\n    ' シート「読み込み＆書き込みシート」をアクティベート\n    ws.Activate\n    ' MsgBox関数で「実行完了」と表示\n    MsgBox \"実行完了\"\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"読み込み＆書き込みシート","index":2,"n_rows":11,"n_cols":4,"rows_kept":11,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[null,"データテーブル"]
[null,"データ",null,"指定データ（手動選択）"]
[null,"りんご",null,"パリ"]
[null,"ごりら"]
[null,"らっこ",null,"指定データのセルアドレス（プログラムで入力）"]
[null,"コアラ"]
[null,"ラッパ"]
[null,"パリ"]