Navigation
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
More options
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A useful class property for International IS0 country codes
Office / VBA General
A useful class property for International IS0 country codes
by
Chance1234
Posted
(Edited
)
Correct as of 29/09/2007
To demonstrate,
set up a class called countryexample
Copy paste the following
Create a user form with a cbo box named cbo_box1 with two columns and then add the following code to the form
activate event
[/code]
To demonstrate,
set up a class called countryexample
Copy paste the following
Code:
Public Property Get COUNTRY_LIST() As Variant
Dim arr_country(243, 1) As Variant
arr_country(0, 0) = "AF"
arr_country(0, 1) = "AFGHANISTAN"
arr_country(1, 0) = "AX"
arr_country(1, 1) = "+LAND ISLANDS"
arr_country(2, 0) = "AL"
arr_country(2, 1) = "ALBANIA"
arr_country(3, 0) = "DZ"
arr_country(3, 1) = "ALGERIA"
arr_country(4, 0) = "AS"
arr_country(4, 1) = "AMERICAN SAMOA"
arr_country(5, 0) = "AD"
arr_country(5, 1) = "ANDORRA"
arr_country(6, 0) = "AO"
arr_country(6, 1) = "ANGOLA"
arr_country(7, 0) = "AI"
arr_country(7, 1) = "ANGUILLA"
arr_country(8, 0) = "AQ"
arr_country(8, 1) = "ANTARCTICA"
arr_country(9, 0) = "AG"
arr_country(9, 1) = "ANTIGUA AND BARBUDA"
arr_country(10, 0) = "AR"
arr_country(10, 1) = "ARGENTINA"
arr_country(11, 0) = "AM"
arr_country(11, 1) = "ARMENIA"
arr_country(12, 0) = "AW"
arr_country(12, 1) = "ARUBA"
arr_country(13, 0) = "AU"
arr_country(13, 1) = "AUSTRALIA"
arr_country(14, 0) = "AT"
arr_country(14, 1) = "AUSTRIA"
arr_country(15, 0) = "AZ"
arr_country(15, 1) = "AZERBAIJAN"
arr_country(16, 0) = "BS"
arr_country(16, 1) = "BAHAMAS"
arr_country(17, 0) = "BH"
arr_country(17, 1) = "BAHRAIN"
arr_country(18, 0) = "BD"
arr_country(18, 1) = "BANGLADESH"
arr_country(19, 0) = "BB"
arr_country(19, 1) = "BARBADOS"
arr_country(20, 0) = "BY"
arr_country(20, 1) = "BELARUS"
arr_country(21, 0) = "BE"
arr_country(21, 1) = "BELGIUM"
arr_country(22, 0) = "BZ"
arr_country(22, 1) = "BELIZE"
arr_country(23, 0) = "BJ"
arr_country(23, 1) = "BENIN"
arr_country(24, 0) = "BM"
arr_country(24, 1) = "BERMUDA"
arr_country(25, 0) = "BT"
arr_country(25, 1) = "BHUTAN"
arr_country(26, 0) = "BO"
arr_country(26, 1) = "BOLIVIA"
arr_country(27, 0) = "BA"
arr_country(27, 1) = "BOSNIA AND HERZEGOVINA"
arr_country(28, 0) = "BW"
arr_country(28, 1) = "BOTSWANA"
arr_country(29, 0) = "BV"
arr_country(29, 1) = "BOUVET ISLAND"
arr_country(30, 0) = "BR"
arr_country(30, 1) = "BRAZIL"
arr_country(31, 0) = "IO"
arr_country(31, 1) = "BRITISH INDIAN OCEAN TERRITORY"
arr_country(32, 0) = "BN"
arr_country(32, 1) = "BRUNEI DARUSSALAM"
arr_country(33, 0) = "BG"
arr_country(33, 1) = "BULGARIA"
arr_country(34, 0) = "BF"
arr_country(34, 1) = "BURKINA FASO"
arr_country(35, 0) = "BI"
arr_country(35, 1) = "BURUNDI"
arr_country(36, 0) = "KH"
arr_country(36, 1) = "CAMBODIA"
arr_country(37, 0) = "CM"
arr_country(37, 1) = "CAMEROON"
arr_country(38, 0) = "CA"
arr_country(38, 1) = "CANADA"
arr_country(39, 0) = "CV"
arr_country(39, 1) = "CAPE VERDE"
arr_country(40, 0) = "KY"
arr_country(40, 1) = "CAYMAN ISLANDS"
arr_country(41, 0) = "CF"
arr_country(41, 1) = "CENTRAL AFRICAN REPUBLIC"
arr_country(42, 0) = "TD"
arr_country(42, 1) = "CHAD"
arr_country(43, 0) = "CL"
arr_country(43, 1) = "CHILE"
arr_country(44, 0) = "CN"
arr_country(44, 1) = "CHINA"
arr_country(45, 0) = "CX"
arr_country(45, 1) = "CHRISTMAS ISLAND"
arr_country(46, 0) = "CC"
arr_country(46, 1) = "COCOS (KEELING) ISLANDS"
arr_country(47, 0) = "CO"
arr_country(47, 1) = "COLOMBIA"
arr_country(48, 0) = "KM"
arr_country(48, 1) = "COMOROS"
arr_country(49, 0) = "CG"
arr_country(49, 1) = "CONGO"
arr_country(50, 0) = "CD"
arr_country(50, 1) = "CONGO, THE DEMOCRATIC REPUBLIC OF THE"
arr_country(51, 0) = "CK"
arr_country(51, 1) = "COOK ISLANDS"
arr_country(52, 0) = "CR"
arr_country(52, 1) = "COSTA RICA"
arr_country(53, 0) = "CI"
arr_country(53, 1) = "COTE D'IVOIRE"
arr_country(54, 0) = "HR"
arr_country(54, 1) = "CROATIA"
arr_country(55, 0) = "CU"
arr_country(55, 1) = "CUBA"
arr_country(56, 0) = "CY"
arr_country(56, 1) = "CYPRUS"
arr_country(57, 0) = "CZ"
arr_country(57, 1) = "CZECH REPUBLIC"
arr_country(58, 0) = "DK"
arr_country(58, 1) = "DENMARK"
arr_country(59, 0) = "DJ"
arr_country(59, 1) = "DJIBOUTI"
arr_country(60, 0) = "DM"
arr_country(60, 1) = "DOMINICA"
arr_country(61, 0) = "DO"
arr_country(61, 1) = "DOMINICAN REPUBLIC"
arr_country(62, 0) = "EC"
arr_country(62, 1) = "ECUADOR"
arr_country(63, 0) = "EG"
arr_country(63, 1) = "EGYPT"
arr_country(64, 0) = "SV"
arr_country(64, 1) = "EL SALVADOR"
arr_country(65, 0) = "GQ"
arr_country(65, 1) = "EQUATORIAL GUINEA"
arr_country(66, 0) = "ER"
arr_country(66, 1) = "ERITREA"
arr_country(67, 0) = "EE"
arr_country(67, 1) = "ESTONIA"
arr_country(68, 0) = "ET"
arr_country(68, 1) = "ETHIOPIA"
arr_country(69, 0) = "FK"
arr_country(69, 1) = "FALKLAND ISLANDS (MALVINAS)"
arr_country(70, 0) = "FO"
arr_country(70, 1) = "FAROE ISLANDS"
arr_country(71, 0) = "FJ"
arr_country(71, 1) = "FIJI"
arr_country(72, 0) = "FI"
arr_country(72, 1) = "FINLAND"
arr_country(73, 0) = "FR"
arr_country(73, 1) = "FRANCE"
arr_country(74, 0) = "GF"
arr_country(74, 1) = "FRENCH GUIANA"
arr_country(75, 0) = "PF"
arr_country(75, 1) = "FRENCH POLYNESIA"
arr_country(76, 0) = "TF"
arr_country(76, 1) = "FRENCH SOUTHERN TERRITORIES"
arr_country(77, 0) = "GA"
arr_country(77, 1) = "GABON"
arr_country(78, 0) = "GM"
arr_country(78, 1) = "GAMBIA"
arr_country(79, 0) = "GE"
arr_country(79, 1) = "GEORGIA"
arr_country(80, 0) = "DE"
arr_country(80, 1) = "GERMANY"
arr_country(81, 0) = "GH"
arr_country(81, 1) = "GHANA"
arr_country(82, 0) = "GI"
arr_country(82, 1) = "GIBRALTAR"
arr_country(83, 0) = "GR"
arr_country(83, 1) = "GREECE"
arr_country(84, 0) = "GL"
arr_country(84, 1) = "GREENLAND"
arr_country(85, 0) = "GD"
arr_country(85, 1) = "GRENADA"
arr_country(86, 0) = "GP"
arr_country(86, 1) = "GUADELOUPE"
arr_country(87, 0) = "GU"
arr_country(87, 1) = "GUAM"
arr_country(88, 0) = "GT"
arr_country(88, 1) = "GUATEMALA"
arr_country(89, 0) = "GG"
arr_country(89, 1) = "GUERNSEY"
arr_country(90, 0) = "GN"
arr_country(90, 1) = "GUINEA"
arr_country(91, 0) = "GW"
arr_country(91, 1) = "GUINEA-BISSAU"
arr_country(92, 0) = "GY"
arr_country(92, 1) = "GUYANA"
arr_country(93, 0) = "HT"
arr_country(93, 1) = "HAITI"
arr_country(94, 0) = "HM"
arr_country(94, 1) = "HEARD ISLAND AND MCDONALD ISLANDS"
arr_country(95, 0) = "VA"
arr_country(95, 1) = "HOLY SEE (VATICAN CITY STATE)"
arr_country(96, 0) = "HN"
arr_country(96, 1) = "HONDURAS"
arr_country(97, 0) = "HK"
arr_country(97, 1) = "HONG KONG"
arr_country(98, 0) = "HU"
arr_country(98, 1) = "HUNGARY"
arr_country(99, 0) = "IS"
arr_country(99, 1) = "ICELAND"
arr_country(100, 0) = "IN"
arr_country(100, 1) = "INDIA"
arr_country(101, 0) = "ID"
arr_country(101, 1) = "INDONESIA"
arr_country(102, 0) = "IR"
arr_country(102, 1) = "IRAN, ISLAMIC REPUBLIC OF"
arr_country(103, 0) = "IQ"
arr_country(103, 1) = "IRAQ"
arr_country(104, 0) = "IE"
arr_country(104, 1) = "IRELAND"
arr_country(105, 0) = "IM"
arr_country(105, 1) = "ISLE OF MAN"
arr_country(106, 0) = "IL"
arr_country(106, 1) = "ISRAEL"
arr_country(107, 0) = "IT"
arr_country(107, 1) = "ITALY"
arr_country(108, 0) = "JM"
arr_country(108, 1) = "JAMAICA"
arr_country(109, 0) = "JP"
arr_country(109, 1) = "JAPAN"
arr_country(110, 0) = "JE"
arr_country(110, 1) = "JERSEY"
arr_country(111, 0) = "JO"
arr_country(111, 1) = "JORDAN"
arr_country(112, 0) = "KZ"
arr_country(112, 1) = "KAZAKHSTAN"
arr_country(113, 0) = "KE"
arr_country(113, 1) = "KENYA"
arr_country(114, 0) = "KI"
arr_country(114, 1) = "KIRIBATI"
arr_country(115, 0) = "KP"
arr_country(115, 1) = "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF"
arr_country(116, 0) = "KR"
arr_country(116, 1) = "KOREA, REPUBLIC OF"
arr_country(117, 0) = "KW"
arr_country(117, 1) = "KUWAIT"
arr_country(118, 0) = "KG"
arr_country(118, 1) = "KYRGYZSTAN"
arr_country(119, 0) = "LA"
arr_country(119, 1) = "LAO PEOPLE'S DEMOCRATIC REPUBLIC"
arr_country(120, 0) = "LV"
arr_country(120, 1) = "LATVIA"
arr_country(121, 0) = "LB"
arr_country(121, 1) = "LEBANON"
arr_country(122, 0) = "LS"
arr_country(122, 1) = "LESOTHO"
arr_country(123, 0) = "LR"
arr_country(123, 1) = "LIBERIA"
arr_country(124, 0) = "LY"
arr_country(124, 1) = "LIBYAN ARAB JAMAHIRIYA"
arr_country(125, 0) = "LI"
arr_country(125, 1) = "LIECHTENSTEIN"
arr_country(126, 0) = "LT"
arr_country(126, 1) = "LITHUANIA"
arr_country(127, 0) = "LU"
arr_country(127, 1) = "LUXEMBOURG"
arr_country(128, 0) = "MO"
arr_country(128, 1) = "MACAO"
arr_country(129, 0) = "MK"
arr_country(129, 1) = "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF"
arr_country(130, 0) = "MG"
arr_country(130, 1) = "MADAGASCAR"
arr_country(131, 0) = "MW"
arr_country(131, 1) = "MALAWI"
arr_country(132, 0) = "MY"
arr_country(132, 1) = "MALAYSIA"
arr_country(133, 0) = "MV"
arr_country(133, 1) = "MALDIVES"
arr_country(134, 0) = "ML"
arr_country(134, 1) = "MALI"
arr_country(135, 0) = "MT"
arr_country(135, 1) = "MALTA"
arr_country(136, 0) = "MH"
arr_country(136, 1) = "MARSHALL ISLANDS"
arr_country(137, 0) = "MQ"
arr_country(137, 1) = "MARTINIQUE"
arr_country(138, 0) = "MR"
arr_country(138, 1) = "MAURITANIA"
arr_country(139, 0) = "MU"
arr_country(139, 1) = "MAURITIUS"
arr_country(140, 0) = "YT"
arr_country(140, 1) = "MAYOTTE"
arr_country(141, 0) = "MX"
arr_country(141, 1) = "MEXICO"
arr_country(142, 0) = "FM"
arr_country(142, 1) = "MICRONESIA, FEDERATED STATES OF"
arr_country(143, 0) = "MD"
arr_country(143, 1) = "MOLDOVA, REPUBLIC OF"
arr_country(144, 0) = "MC"
arr_country(144, 1) = "MONACO"
arr_country(145, 0) = "MN"
arr_country(145, 1) = "MONGOLIA"
arr_country(146, 0) = "ME"
arr_country(146, 1) = "MONTENEGRO"
arr_country(147, 0) = "MS"
arr_country(147, 1) = "MONTSERRAT"
arr_country(148, 0) = "MA"
arr_country(148, 1) = "MOROCCO"
arr_country(149, 0) = "MZ"
arr_country(149, 1) = "MOZAMBIQUE"
arr_country(150, 0) = "MM"
arr_country(150, 1) = "MYANMAR"
arr_country(151, 0) = "NA"
arr_country(151, 1) = "NAMIBIA"
arr_country(152, 0) = "NR"
arr_country(152, 1) = "NAURU"
arr_country(153, 0) = "NP"
arr_country(153, 1) = "NEPAL"
arr_country(154, 0) = "NL"
arr_country(154, 1) = "NETHERLANDS"
arr_country(155, 0) = "AN"
arr_country(155, 1) = "NETHERLANDS ANTILLES"
arr_country(156, 0) = "NC"
arr_country(156, 1) = "NEW CALEDONIA"
arr_country(157, 0) = "NZ"
arr_country(157, 1) = "NEW ZEALAND"
arr_country(158, 0) = "NI"
arr_country(158, 1) = "NICARAGUA"
arr_country(159, 0) = "NE"
arr_country(159, 1) = "NIGER"
arr_country(160, 0) = "NG"
arr_country(160, 1) = "NIGERIA"
arr_country(161, 0) = "NU"
arr_country(161, 1) = "NIUE"
arr_country(162, 0) = "NF"
arr_country(162, 1) = "NORFOLK ISLAND"
arr_country(163, 0) = "MP"
arr_country(163, 1) = "NORTHERN MARIANA ISLANDS"
arr_country(164, 0) = "NO"
arr_country(164, 1) = "NORWAY"
arr_country(165, 0) = "OM"
arr_country(165, 1) = "OMAN"
arr_country(166, 0) = "PK"
arr_country(166, 1) = "PAKISTAN"
arr_country(167, 0) = "PW"
arr_country(167, 1) = "PALAU"
arr_country(168, 0) = "PS"
arr_country(168, 1) = "PALESTINIAN TERRITORY, OCCUPIED"
arr_country(169, 0) = "PA"
arr_country(169, 1) = "PANAMA"
arr_country(170, 0) = "PG"
arr_country(170, 1) = "PAPUA NEW GUINEA"
arr_country(171, 0) = "PY"
arr_country(171, 1) = "PARAGUAY"
arr_country(172, 0) = "PE"
arr_country(172, 1) = "PERU"
arr_country(173, 0) = "PH"
arr_country(173, 1) = "PHILIPPINES"
arr_country(174, 0) = "PN"
arr_country(174, 1) = "PITCAIRN"
arr_country(175, 0) = "PL"
arr_country(175, 1) = "POLAND"
arr_country(176, 0) = "PT"
arr_country(176, 1) = "PORTUGAL"
arr_country(177, 0) = "PR"
arr_country(177, 1) = "PUERTO RICO"
arr_country(178, 0) = "QA"
arr_country(178, 1) = "QATAR"
arr_country(179, 0) = "RE"
arr_country(179, 1) = "REUNION"
arr_country(180, 0) = "RO"
arr_country(180, 1) = "ROMANIA"
arr_country(181, 0) = "RU"
arr_country(181, 1) = "RUSSIAN FEDERATION"
arr_country(182, 0) = "RW"
arr_country(182, 1) = "RWANDA"
arr_country(183, 0) = "SH"
arr_country(183, 1) = "SAINT HELENA"
arr_country(184, 0) = "KN"
arr_country(184, 1) = "SAINT KITTS AND NEVIS"
arr_country(185, 0) = "LC"
arr_country(185, 1) = "SAINT LUCIA"
arr_country(186, 0) = "PM"
arr_country(186, 1) = "SAINT PIERRE AND MIQUELON"
arr_country(187, 0) = "VC"
arr_country(187, 1) = "SAINT VINCENT AND THE GRENADINES"
arr_country(188, 0) = "WS"
arr_country(188, 1) = "SAMOA"
arr_country(189, 0) = "SM"
arr_country(189, 1) = "SAN MARINO"
arr_country(190, 0) = "ST"
arr_country(190, 1) = "SAO TOME AND PRINCIPE"
arr_country(191, 0) = "SA"
arr_country(191, 1) = "SAUDI ARABIA"
arr_country(192, 0) = "SN"
arr_country(192, 1) = "SENEGAL"
arr_country(193, 0) = "RS"
arr_country(193, 1) = "SERBIA"
arr_country(194, 0) = "SC"
arr_country(194, 1) = "SEYCHELLES"
arr_country(195, 0) = "SL"
arr_country(195, 1) = "SIERRA LEONE"
arr_country(196, 0) = "SG"
arr_country(196, 1) = "SINGAPORE"
arr_country(197, 0) = "SK"
arr_country(197, 1) = "SLOVAKIA"
arr_country(198, 0) = "SI"
arr_country(198, 1) = "SLOVENIA"
arr_country(199, 0) = "SB"
arr_country(199, 1) = "SOLOMON ISLANDS"
arr_country(200, 0) = "SO"
arr_country(200, 1) = "SOMALIA"
arr_country(201, 0) = "ZA"
arr_country(201, 1) = "SOUTH AFRICA"
arr_country(202, 0) = "GS"
arr_country(202, 1) = "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS"
arr_country(203, 0) = "ES"
arr_country(203, 1) = "SPAIN"
arr_country(204, 0) = "LK"
arr_country(204, 1) = "SRI LANKA"
arr_country(205, 0) = "SD"
arr_country(205, 1) = "SUDAN"
arr_country(206, 0) = "SR"
arr_country(206, 1) = "SURINAME"
arr_country(207, 0) = "SJ"
arr_country(207, 1) = "SVALBARD AND JAN MAYEN"
arr_country(208, 0) = "SZ"
arr_country(208, 1) = "SWAZILAND"
arr_country(209, 0) = "SE"
arr_country(209, 1) = "SWEDEN"
arr_country(210, 0) = "CH"
arr_country(210, 1) = "SWITZERLAND"
arr_country(211, 0) = "SY"
arr_country(211, 1) = "SYRIAN ARAB REPUBLIC"
arr_country(212, 0) = "TW"
arr_country(212, 1) = "TAIWAN, PROVINCE OF CHINA"
arr_country(213, 0) = "TJ"
arr_country(213, 1) = "TAJIKISTAN"
arr_country(214, 0) = "TZ"
arr_country(214, 1) = "TANZANIA, UNITED REPUBLIC OF"
arr_country(215, 0) = "TH"
arr_country(215, 1) = "THAILAND"
arr_country(216, 0) = "TL"
arr_country(216, 1) = "TIMOR-LESTE"
arr_country(217, 0) = "TG"
arr_country(217, 1) = "TOGO"
arr_country(218, 0) = "TK"
arr_country(218, 1) = "TOKELAU"
arr_country(219, 0) = "TO"
arr_country(219, 1) = "TONGA"
arr_country(220, 0) = "TT"
arr_country(220, 1) = "TRINIDAD AND TOBAGO"
arr_country(221, 0) = "TN"
arr_country(221, 1) = "TUNISIA"
arr_country(222, 0) = "TR"
arr_country(222, 1) = "TURKEY"
arr_country(223, 0) = "TM"
arr_country(223, 1) = "TURKMENISTAN"
arr_country(224, 0) = "TC"
arr_country(224, 1) = "TURKS AND CAICOS ISLANDS"
arr_country(225, 0) = "TV"
arr_country(225, 1) = "TUVALU"
arr_country(226, 0) = "UG"
arr_country(226, 1) = "UGANDA"
arr_country(227, 0) = "UA"
arr_country(227, 1) = "UKRAINE"
arr_country(228, 0) = "AE"
arr_country(228, 1) = "UNITED ARAB EMIRATES"
arr_country(229, 0) = "GB"
arr_country(229, 1) = "UNITED KINGDOM"
arr_country(230, 0) = "US"
arr_country(230, 1) = "UNITED STATES"
arr_country(231, 0) = "UM"
arr_country(231, 1) = "UNITED STATES MINOR OUTLYING ISLANDS"
arr_country(232, 0) = "UY"
arr_country(232, 1) = "URUGUAY"
arr_country(233, 0) = "UZ"
arr_country(233, 1) = "UZBEKISTAN"
arr_country(234, 0) = "VU"
arr_country(234, 1) = "VANUATU"
arr_country(235, 0) = "VE"
arr_country(235, 1) = "VENEZUELA"
arr_country(236, 0) = "VN"
arr_country(236, 1) = "VIET NAM"
arr_country(237, 0) = "VG"
arr_country(237, 1) = "VIRGIN ISLANDS, BRITISH"
arr_country(238, 0) = "VI"
arr_country(238, 1) = "VIRGIN ISLANDS, U.S."
arr_country(239, 0) = "WF"
arr_country(239, 1) = "WALLIS AND FUTUNA"
arr_country(240, 0) = "EH"
arr_country(240, 1) = "WESTERN SAHARA"
arr_country(241, 0) = "YE"
arr_country(241, 1) = "YEMEN"
arr_country(242, 0) = "ZM"
arr_country(242, 1) = "ZAMBIA"
arr_country(243, 0) = "ZW"
arr_country(243, 1) = "ZIMBABWE"
COUNTRY_LIST = arr_country
Erase arr_country
End PropertyCreate a user form with a cbo box named cbo_box1 with two columns and then add the following code to the form
activate event
Code:
Dim countrytest as NEW countryexample
cbo_box1.list = countrytest.COUNTRY_LIST[/code]
Please Note: 1 is Bad, 10 is Good :-)
Part and Inventory Search
-
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.