{"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":12,"n_cols":4,"rows_kept":12,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"問題文",null,"解答方法"]
[null,"以下の要件を満たすVBAの\nプログラムを実装して下さい。",null,"解答プログラムは\n「開発」\n→「Visual Basic」\n→「Answer」\n内のSub answer()に記載して下さい。"]
[]
[null,"要件"]
[null,"最初に, シート「データテーブルシート」をアクティベートする。"]
[null,"テーブル「データテーブル」のデータ（見出しを除く）を\n配列で一括取得する。"]
[null,"LBound, UBoundを使い配列内の要素をループし, \nデータを「,」で結合した文字列\nを作る。"]
[null,"最後に, MsgBox関数（情報アイコン）で\n「データ:(データを「,」で結合した文字列)」\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 ws As Worksheet\n    Dim tbl As ListObject\n    Dim dataArr As Variant\n    Dim dataStr As String\n    Dim i As Integer\n    Dim j As Integer\n    ' 最初に, シート「データテーブルシート」をアクティベートする。\n    Set ws = ThisWorkbook.Worksheets(\"データテーブルシート\")\n    ws.Activate\n    ' テーブル「データテーブル」のデータ（見出しを除く）を配列で一括取得する｡\n    Set tbl = ws.ListObjects(\"データテーブル\")\n    dataArr = tbl.DataBodyRange.Value\n    ' データを「,」で結合した文字列を作る。\n    For i = LBound(dataArr, 1) To UBound(dataArr, 1)\n        For j = LBound(dataArr, 2) To UBound(dataArr, 2)\n            If dataStr <> \"\" Then\n                dataStr = dataStr & \",\"\n            End If\n            dataStr = dataStr & dataArr(i, j)\n        Next j\n    Next i\n    ' 最後に, MsgBox関数（情報アイコン）で「データ:(データを「,」で結合した文字列)」と表示する｡\n    MsgBox \"データ:\" & dataStr, 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,"a"]
[null,"b"]
[null,"c"]
[null,"d"]
[null,"e"]