{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Sheet1","Sheet2"],"not_rendered":{"charts":0,"images":2,"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":"Sheet1","index":0,"n_rows":48,"n_cols":6,"rows_kept":48,"cut":false,"hidden":false,"merged":[]}
[null,null,null,null,null,"↓データの入力規則のセルを選択すると、130%表示となります。"]
["北海道","ほっかいどう",{"$f":"A2&\" \"&B2","v":"北海道 ほっかいどう"},null,null,"北海道 ほっかいどう"]
["青森","あおもり",{"$f":"A3&\" \"&B3","v":"青森 あおもり"},null,null,"ドロップダウンリスト以外のセルを選択すれば、130%に拡大された表示は100%に戻ります。"]
["岩手","いわて","岩手 いわて"]
["宮城","みやぎ","宮城 みやぎ"]
["秋田","あきた","秋田 あきた"]
["山形","やまがた","山形 やまがた"]
["福島","ふくしま","福島 ふくしま"]
["茨城","いばらき","茨城 いばらき"]
["栃木","とちぎ","栃木 とちぎ"]
["群馬","ぐんま","群馬 ぐんま"]
["埼玉","さいたま","埼玉 さいたま"]
["千葉","ちば","千葉 ちば"]
["東京","とうきょう","東京 とうきょう"]
["神奈川","かながわ","神奈川 かながわ"]
["新潟","にいがた","新潟 にいがた"]
["富山","とやま","富山 とやま"]
["石川","いしかわ","石川 いしかわ"]
["福井","ふくい","福井 ふくい"]
["山梨","やまなし","山梨 やまなし"]
["長野","ながの","長野 ながの"]
["岐阜","ぎふ","岐阜 ぎふ"]
["静岡","しずおか","静岡 しずおか"]
["愛知","あいち","愛知 あいち"]
["三重","みえ","三重 みえ"]
["滋賀","しが","滋賀 しが"]
["京都","きょうと","京都 きょうと"]
["大阪","おおさか","大阪 おおさか"]
["兵庫","ひょうご","兵庫 ひょうご"]
["奈良","なら","奈良 なら"]
["和歌山","わやかま","和歌山 わやかま"]
["鳥取","とっとり","鳥取 とっとり"]
["島根","しまね","島根 しまね"]
["岡山","おかやま","岡山 おかやま"]
["広島","ひろしま","広島 ひろしま"]
["山口","やまぐち","山口 やまぐち"]
["徳島","とくしま","徳島 とくしま"]
["香川","かがわ","香川 かがわ"]
["愛媛","えひめ","愛媛 えひめ"]
["高知","こうち","高知 こうち"]
["福岡","ふくおか","福岡 ふくおか"]
["佐賀","さが","佐賀 さが"]
["長崎","ながさき","長崎 ながさき"]
["熊本","くまもと","熊本 くまもと"]
["大分","おおいた","大分 おおいた"]
["宮崎","みやざき","宮崎 みやざき"]
["鹿児島","かごしま","鹿児島 かごしま"]
["沖縄","おきなわ","沖縄 おきなわ"]

{"sheet":"Sheet2","index":1,"n_rows":26,"n_cols":6,"rows_kept":26,"cut":false,"hidden":false,"merged":[]}
[]
[null,null,"通常のデータの入力規則",null,null,"データの入力規則のセルを選択すると"]
[]
[]
[]
[]
[null,null,null,null,"130%表示"]
[]
[]
[]
[]
[]
[]
[]
[null,null,"マクロコードは次のようになります。"]
[]
[null,null,"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"]
[null,null,"'リストボックス選択した場合画面の倍率を大きくする"]
[null,null,"'この場合130%に"]
[null,null,"On Error GoTo LZoom"]
[null,null,"    Dim xZoom As Long"]
[null,null,"    xZoom = 100"]
[null,null,"    If Target.Validation.Type = xlValidateList Then xZoom = 130"]
[null,null,"LZoom:"]
[null,null,"    ActiveWindow.Zoom = xZoom"]
[null,null,"End Sub"]