{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Sheet1"],"not_rendered":{"charts":0,"images":0,"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":4,"n_cols":1,"rows_kept":4,"cut":false,"hidden":false,"merged":[]}
["平成29年4月26日現在"]
["Option Explicit\n\n'市外局番データ\n'総務省｜電気通信番号の利用・指定｜市外局番の一覧\n'http://www.soumu.go.jp/main_sosiki/joho_tsusin/top/tel_number/shigai_list.html"]
["\r\n'総務省の平成29年4月26日現在のデータに基づきます\r\nConst AreaCode5 = _\r\n\"1267 1372 1374 1377 1392 1397 1398 1456 1457 1466 1547 1558 1564 1586 1587 1632 1634 1635 1648 1654 \" & _\r\n\"1655 1656 1658 4992 4994 4996 4998 5769 5979 7468 8387 8388 8396 8477 8512 8514 9496 9802 9912 9913 \" & _\r\n\"9969\"\r\nConst AreaCode4 = _\r\n\"123 124 125 126 133 134 135 136 137 138 139 142 143 144 145 146 152 153 154 155 156 157 158 162 163 \" & _\r\n\"164 165 166 167 172 173 174 175 176 178 179 182 183 184 185 186 187 191 192 193 194 195 197 198 220 \" & _\r\n\"223 224 225 226 228 229 233 234 235 237 238 240 241 242 243 244 246 247 248 250 254 255 256 257 258 \" & _\r\n\"259 260 261 263 264 265 266 267 268 269 270 274 276 277 278 279 280 282 283 284 285 287 288 289 291 \" & _\r\n\"293 294 295 296 297 299 422 428 436 438 439 460 463 465 466 467 470 475 476 478 479 480 493 494 495 \" & _\r\n\"531 532 533 536 537 538 539 544 545 547 548 550 551 553 554 555 556 557 558 561 562 563 564 565 566 \" & _\r\n\"567 568 569 572 573 574 575 576 577 578 581 584 585 586 587 594 595 596 597 598 599 721 725 735 736 \" & _\r\n\"737 738 739 740 742 743 744 745 746 747 748 749 761 763 765 766 767 768 770 771 772 773 774 776 778 \" & _\r\n\"779 790 791 794 795 796 797 798 799 820 823 824 826 827 829 833 834 835 836 837 838 845 846 847 848 \" & _\r\n\"852 853 854 855 856 857 858 859 863 865 866 867 868 869 875 877 879 880 883 884 885 887 889 892 893 \" & _\r\n\"894 895 896 897 898 920 930 940 942 943 944 946 947 948 949 950 952 954 955 956 957 959 964 965 966 \" & _\r\n\"967 968 969 972 973 974 977 978 979 980 982 983 984 985 986 987 993 994 995 996 997\"\r\nConst AreaCode3 = _\r\n\"11 15 17 18 19 22 23 24 25 26 27 28 29 42 43 44 45 46 47 48 49 52 53 54 55 58 59 72 73 75 76 77 78 7\" & _\r\n\"9 82 83 84 86 87 88 89 92 93 95 96 97 98 99\"\r\nConst AreaCode2 = _\r\n\"3 4 6\"\r\n"]
["区切りなしの電話番号に適切な位置に区切り文字を挿入する関数\n'引数　TelNum：区切りなしの電話番号\n'　　　Demiliter：区切り文字（省略可能）\n'               省略した場合は\"-\"(ハイフン)\n'\n'固定電話、IP電話、携帯電話、PHS、フリーダイヤルに対応\n'上記以外の番号や区切りありの電話番号の場合は引数をそのまま返す\n'\n'作成日 2016/11/25　作成者 hatena\n'最新改修日 2017/07/15\n'参考リンク\n'総務省｜電気通信番号の利用・指定｜電気通信番号指定状況\n'http://www.soumu.go.jp/main_sosiki/joho_tsusin/top/tel_number/number_shitei.html#kotei-denwa\nPublic Function SplitTelNumber(TelNo As Variant, _\n                               Optional Demiliter As String = \"-\") As String\n \n    If IsNull(TelNo) Then Exit Function\n  \n    If TelNo Like \"0#########\" Then    '固定電話\n        If InStr(1, \"120 570 990\", Mid(TelNo, 2, 3), vbBinaryCompare) > 0 Then  'フリーダイヤル\n            SplitTelNumber = Format(TelNo, \"&&&&\" & Demiliter & \"&&&&&&\")\n        ElseIf InStr(1, AreaCode5, Mid(TelNo, 2, 4), vbBinaryCompare) > 0 Then\n            SplitTelNumber = _\n            Format(TelNo, \"&&&&&\" & Demiliter & \"&\" & Demiliter & \"&&&&\")\n        ElseIf InStr(1, AreaCode4, Mid(TelNo, 2, 3), vbBinaryCompare) > 0 Then\n            SplitTelNumber = _\n            Format(TelNo, \"&&&&\" & Demiliter & \"&&\" & Demiliter & \"&&&&\")\n        ElseIf InStr(1, AreaCode3, Mid(TelNo, 2, 2), vbBinaryCompare) > 0 Then\n            SplitTelNumber = _\n            Format(TelNo, \"&&&\" & Demiliter & \"&&&\" & Demiliter & \"&&&&\")\n        ElseIf InStr(1, AreaCode2, Mid(TelNo, 2, 1), vbBinaryCompare) > 0 Then\n            SplitTelNumber = _\n            Format(TelNo, \"&&\" & Demiliter & \"&&&&\" & Demiliter & \"&&&&\")\n        End If\n    ElseIf TelNo Like \"0[25789]0########\" Then    'IP電話、携帯電話、PHS\n        If TelNo Like \"0800#######\" Then\n            SplitTelNumber = _\n            Format(TelNo, \"&&&&\" & Demiliter & \"&&&\" & Demiliter & \"&&&&\")\n        Else\n            SplitTelNumber = _\n            Format(TelNo, \"&&&\" & Demiliter & \"&&&&\" & Demiliter & \"&&&&\")\n        End If\n    Else\n        SplitTelNumber = TelNo\n    End If\nEnd Function\n"]