{"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そのセルを切り取り, セル「場所②」の下に貼り付ける。\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 firstCell As Range\n    Dim secondCell As Range\n    Dim cutCell As Range\n    Dim pasteCell As Range\n    ' 「書き込みシート」をアクティベートする\n    Set ws = ThisWorkbook.Worksheets(\"書き込みシート\")\n    ws.Activate\n    ' セル「場所①」と「場所②」の下のセルを指定する\n    Set firstCell = ws.Cells(6, 2)\n    Set secondCell = ws.Cells(10, 2)\n    ' 「切り取りセル」と「貼り付けセル」の決定\n    If firstCell.Value = \"データ\" Then\n        Set cutCell = firstCell\n        Set pasteCell = secondCell\n    ElseIf secondCell.Value = \"データ\" Then\n        Set cutCell = secondCell\n        Set pasteCell = firstCell\n    End If\n    ' 切り取り, 貼り付け実行\n    cutCell.Cut Destination:=pasteCell\n    ' 切り取り完了メッセージを表示\n    MsgBox \"切り取り&貼り付け完了！\", vbInformation\nEnd Sub"]
[null,"↑上のプログラムは\n「開発」\n→「Visual Basic」\n→「CorrectAnswerExample」\nに記載してあります。"]

{"sheet":"書き込みシート","index":2,"n_rows":9,"n_cols":2,"rows_kept":9,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"場所①"]
[null,"データ"]
[]
[]
[null,"場所②"]