Excel VBA 国名コードを国名に変換する

VBAで国別コードを国名に変換する方法
1. サンプルコード
2. 変換表
VBAで国別コードを国名に変換する方法

2文字による国名コードを入力すると国名を返却するプログラムを作成する。
サンプルコード

'ISO 3166-1 alpha-2を国名に変換する
Sub 国名コードを国名に変換する()
 
    Dim countryName As String
     
    Dim countryCode As String
     countryCode = InputBox("国名コードを入力してください", _
                            "国名コードを国名に変換する", "JP")
 
    Select Case countryCode
        Case "IS"
            countryName = "アイスランド"
        Case "IE"
            countryName = "アイルランド"
        Case "AZ"
            countryName = "アゼルバイジャン"
        Case "AF"
            countryName = "アフガニスタン"
        Case "US"
            countryName = "アメリカ合衆国"
        Case "VI"
            countryName = "アメリカ領ヴァージン諸島"
        Case "AS"
            countryName = "アメリカ領サモア"
        Case "AE"
            countryName = "アラブ首長国連邦"
        Case "DZ"
            countryName = "アルジェリア"
        Case "AR"
            countryName = "アルゼンチン"
        Case "AW"
            countryName = "アルバ"
        Case "AL"
            countryName = "アルバニア"
        Case "AM"
            countryName = "アルメニア"
        Case "AI"
            countryName = "アンギラ"
        Case "AO"
            countryName = "アンゴラ"
        Case "AG"
            countryName = "アンティグア・バーブーダ"
        Case "AD"
            countryName = "アンドラ"
        Case "YE"
            countryName = "イエメン"
        Case "GB"
            countryName = "イギリス"
        Case "IO"
            countryName = "イギリス領インド洋地域"
        Case "VG"
            countryName = "イギリス領ヴァージン諸島"
        Case "IL"
            countryName = "イスラエル"
        Case "IT"
            countryName = "イタリア"
        Case "IQ"
            countryName = "イラク"
        Case "IR"
            countryName = "イラン・イスラム共和国"
        Case "IN"
            countryName = "インド"
        Case "ID"
            countryName = "インドネシア"
        Case "WF"
            countryName = "ウォリス・フツナ"
        Case "UG"
            countryName = "ウガンダ"
        Case "UA"
            countryName = "ウクライナ"
        Case "UZ"
            countryName = "ウズベキスタン"
        Case "UY"
            countryName = "ウルグアイ"
        Case "EC"
            countryName = "エクアドル"
        Case "EG"
            countryName = "エジプト"
        Case "EE"
            countryName = "エストニア"
        Case "SZ"
            countryName = "エスワティニ"
        Case "ET"
            countryName = "エチオピア"
        Case "ER"
            countryName = "エリトリア"
        Case "SV"
            countryName = "エルサルバドル"
        Case "AU"
            countryName = "オーストラリア"
        Case "AT"
            countryName = "オーストリア"
        Case "AX"
            countryName = "オーランド諸島"
        Case "OM"
            countryName = "オマーン"
        Case "NL"
            countryName = "オランダ"
        Case "GH"
            countryName = "ガーナ"
        Case "CV"
            countryName = "カーボベルデ"
        Case "GG"
            countryName = "ガーンジー"
        Case "GY"
            countryName = "ガイアナ"
        Case "KZ"
            countryName = "カザフスタン"
        Case "QA"
            countryName = "カタール"
        Case "UM"
            countryName = "合衆国領有小離島"
        Case "CA"
            countryName = "カナダ"
        Case "GA"
            countryName = "ガボン"
        Case "CM"
            countryName = "カメルーン"
        Case "GM"
            countryName = "ガンビア"
        Case "KH"
            countryName = "カンボジア"
        Case "MK"
            countryName = "北マケドニア"
        Case "MP"
            countryName = "北マリアナ諸島"
        Case "GN"
            countryName = "ギニア"
        Case "GW"
            countryName = "ギニアビサウ"
        Case "CY"
            countryName = "キプロス"
        Case "CU"
            countryName = "キューバ"
        Case "CW"
            countryName = "キュラソー"
        Case "GR"
            countryName = "ギリシャ"
        Case "KI"
            countryName = "キリバス"
        Case "KG"
            countryName = "キルギス"
        Case "GT"
            countryName = "グアテマラ"
        Case "GP"
            countryName = "グアドループ"
        Case "GU"
            countryName = "グアム"
        Case "KW"
            countryName = "クウェート"
        Case "CK"
            countryName = "クック諸島"
        Case "GL"
            countryName = "グリーンランド"
        Case "CX"
            countryName = "クリスマス島"
        Case "GD"
            countryName = "グレナダ"
        Case "HR"
            countryName = "クロアチア"
        Case "KY"
            countryName = "ケイマン諸島"
        Case "KE"
            countryName = "ケニア"
        Case "CI"
            countryName = "コートジボワール"
        Case "CC"
            countryName = "ココス（キーリング）諸島"
        Case "CR"
            countryName = "コスタリカ"
        Case "KM"
            countryName = "コモロ"
        Case "CO"
            countryName = "コロンビア"
        Case "CG"
            countryName = "コンゴ共和国"
        Case "CD"
            countryName = "コンゴ民主共和国"
        Case "SA"
            countryName = "サウジアラビア"
        Case "GS"
            countryName = "サウスジョージア・サウスサンドウィッチ諸島"
        Case "WS"
            countryName = "サモア"
        Case "ST"
            countryName = "サントメ・プリンシペ"
        Case "BL"
            countryName = "サン・バルテルミー"
        Case "ZM"
            countryName = "ザンビア"
        Case "PM"
            countryName = "サンピエール島・ミクロン島"
        Case "SM"
            countryName = "サンマリノ"
        Case "MF"
            countryName = "サン・マルタン（フランス領）"
        Case "SL"
            countryName = "シエラレオネ"
        Case "DJ"
            countryName = "ジブチ"
        Case "GI"
            countryName = "ジブラルタル"
        Case "JE"
            countryName = "ジャージー"
        Case "JM"
            countryName = "ジャマイカ"
        Case "GE"
            countryName = "ジョージア"
        Case "SY"
            countryName = "シリア・アラブ共和国"
        Case "SG"
            countryName = "シンガポール"
        Case "SX"
            countryName = "シント・マールテン（オランダ領）"
        Case "ZW"
            countryName = "ジンバブエ"
        Case "CH"
            countryName = "スイス"
        Case "SE"
            countryName = "スウェーデン"
        Case "SD"
            countryName = "スーダン"
        Case "SJ"
            countryName = "スヴァールバル諸島およびヤンマイエン島"
        Case "ES"
            countryName = "スペイン"
        Case "SR"
            countryName = "スリナム"
        Case "LK"
            countryName = "スリランカ"
        Case "SK"
            countryName = "スロバキア"
        Case "SI"
            countryName = "スロベニア"
        Case "SC"
            countryName = "セーシェル"
        Case "GQ"
            countryName = "赤道ギニア"
        Case "SN"
            countryName = "セネガル"
        Case "RS"
            countryName = "セルビア"
        Case "KN"
            countryName = "セントクリストファー・ネイビス"
        Case "VC"
            countryName = "セントビンセントおよびグレナディーン諸島"
        Case "SH"
            countryName = "セントヘレナ・アセンションおよびトリスタンダクーニャ"
        Case "LC"
            countryName = "セントルシア"
        Case "SO"
            countryName = "ソマリア"
        Case "SB"
            countryName = "ソロモン諸島"
        Case "TC"
            countryName = "タークス・カイコス諸島"
        Case "TH"
            countryName = "タイ"
        Case "KR"
            countryName = "大韓民国"
        Case "TW"
            countryName = "中国台湾省（中華民国）"
        Case "TJ"
            countryName = "タジキスタン"
        Case "TZ"
            countryName = "タンザニア"
        Case "CZ"
            countryName = "チェコ"
        Case "TD"
            countryName = "チャド"
        Case "CF"
            countryName = "中央アフリカ共和国"
        Case "CN"
            countryName = "中華人民共和国"
        Case "TN"
            countryName = "チュニジア"
        Case "KP"
            countryName = "朝鮮民主主義人民共和国"
        Case "CL"
            countryName = "チリ"
        Case "TV"
            countryName = "ツバル"
        Case "DK"
            countryName = "デンマーク"
        Case "DE"
            countryName = "ドイツ"
        Case "TG"
            countryName = "トーゴ"
        Case "TK"
            countryName = "トケラウ"
        Case "DO"
            countryName = "ドミニカ共和国"
        Case "DM"
            countryName = "ドミニカ国"
        Case "TT"
            countryName = "トリニダード・トバゴ"
        Case "TM"
            countryName = "トルクメニスタン"
        Case "TR"
            countryName = "トルコ"
        Case "TO"
            countryName = "トンガ"
        Case "NG"
            countryName = "ナイジェリア"
        Case "NR"
            countryName = "ナウル"
        Case "NA"
            countryName = "ナミビア"
        Case "AQ"
            countryName = "南極"
        Case "NU"
            countryName = "ニウエ"
        Case "NI"
            countryName = "ニカラグア"
        Case "NE"
            countryName = "ニジェール"
        Case "JP"
            countryName = "日本"
        Case "EH"
            countryName = "西サハラ"
        Case "NC"
            countryName = "ニューカレドニア"
        Case "NZ"
            countryName = "ニュージーランド"
        Case "NP"
            countryName = "ネパール"
        Case "NF"
            countryName = "ノーフォーク島"
        Case "NO"
            countryName = "ノルウェー"
        Case "HM"
            countryName = "ハード島とマクドナルド諸島"
        Case "BH"
            countryName = "バーレーン"
        Case "HT"
            countryName = "ハイチ"
        Case "PK"
            countryName = "パキスタン"
        Case "VA"
            countryName = "バチカン市国"
        Case "PA"
            countryName = "パナマ"
        Case "VU"
            countryName = "バヌアツ"
        Case "BS"
            countryName = "バハマ"
        Case "PG"
            countryName = "パプアニューギニア"
        Case "BM"
            countryName = "バミューダ"
        Case "PW"
            countryName = "パラオ"
        Case "PY"
            countryName = "パラグアイ"
        Case "BB"
            countryName = "バルバドス"
        Case "PS"
            countryName = "パレスチナ"
        Case "HU"
            countryName = "ハンガリー"
        Case "BD"
            countryName = "バングラデシュ"
        Case "TL"
            countryName = "東ティモール"
        Case "PN"
            countryName = "ピトケアン"
        Case "FJ"
            countryName = "フィジー"
        Case "PH"
            countryName = "フィリピン"
        Case "FI"
            countryName = "フィンランド"
        Case "BT"
            countryName = "ブータン"
        Case "BV"
            countryName = "ブーベ島"
        Case "PR"
            countryName = "プエルトリコ"
        Case "FO"
            countryName = "フェロー諸島"
        Case "FK"
            countryName = "フォークランド（マルビナス）諸島"
        Case "BR"
            countryName = "ブラジル"
        Case "FR"
            countryName = "フランス"
        Case "GF"
            countryName = "フランス領ギアナ"
        Case "PF"
            countryName = "フランス領ポリネシア"
        Case "TF"
            countryName = "フランス領南方・南極地域"
        Case "BG"
            countryName = "ブルガリア"
        Case "BF"
            countryName = "ブルキナファソ"
        Case "BN"
            countryName = "ブルネイ・ダルサラーム"
        Case "BI"
            countryName = "ブルンジ"
        Case "VN"
            countryName = "ベトナム"
        Case "BJ"
            countryName = "ベナン"
        Case "VE"
            countryName = "ベネズエラ・ボリバル共和国"
        Case "BY"
            countryName = "ベラルーシ"
        Case "BZ"
            countryName = "ベリーズ"
        Case "PE"
            countryName = "ペルー"
        Case "BE"
            countryName = "ベルギー"
        Case "PL"
            countryName = "ポーランド"
        Case "BA"
            countryName = "ボスニア・ヘルツェゴビナ"
        Case "BW"
            countryName = "ボツワナ"
        Case "BQ"
            countryName = "ボネール、シント・ユースタティウスおよびサバ"
        Case "BO"
            countryName = "ボリビア多民族国"
        Case "PT"
            countryName = "ポルトガル"
        Case "HK"
            countryName = "香港"
        Case "HN"
            countryName = "ホンジュラス"
        Case "MH"
            countryName = "マーシャル諸島"
        Case "MO"
            countryName = "マカオ"
        Case "MG"
            countryName = "マダガスカル"
        Case "YT"
            countryName = "マヨット"
        Case "MW"
            countryName = "マラウイ"
        Case "ML"
            countryName = "マリ"
        Case "MT"
            countryName = "マルタ"
        Case "MQ"
            countryName = "マルティニーク"
        Case "MY"
            countryName = "マレーシア"
        Case "IM"
            countryName = "マン島"
        Case "FM"
            countryName = "ミクロネシア連邦"
        Case "ZA"
            countryName = "南アフリカ"
        Case "SS"
            countryName = "南スーダン"
        Case "MM"
            countryName = "ミャンマー"
        Case "MX"
            countryName = "メキシコ"
        Case "MU"
            countryName = "モーリシャス"
        Case "MR"
            countryName = "モーリタニア"
        Case "MZ"
            countryName = "モザンビーク"
        Case "MC"
            countryName = "モナコ"
        Case "MV"
            countryName = "モルディブ"
        Case "MD"
            countryName = "モルドバ共和国"
        Case "MA"
            countryName = "モロッコ"
        Case "MN"
            countryName = "モンゴル"
        Case "ME"
            countryName = "モンテネグロ"
        Case "MS"
            countryName = "モントセラト"
        Case "JO"
            countryName = "ヨルダン"
        Case "LA"
            countryName = "ラオス人民民主共和国"
        Case "LV"
            countryName = "ラトビア"
        Case "LT"
            countryName = "リトアニア"
        Case "LY"
            countryName = "リビア"
        Case "LI"
            countryName = "リヒテンシュタイン"
        Case "LR"
            countryName = "リベリア"
        Case "RO"
            countryName = "ルーマニア"
        Case "LU"
            countryName = "ルクセンブルク"
        Case "RW"
            countryName = "ルワンダ"
        Case "LS"
            countryName = "レソト"
        Case "LB"
            countryName = "レバノン"
        Case "RE"
            countryName = "レユニオン"
        Case "RU"
            countryName = "ロシア連邦"
 
    End Select
     
    MsgBox (countryName)
    
End Sub