• Home
 · 
• Miscellaneous
 · 
• Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de

Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de

Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de c¨digo postal.

Rate Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Listado de provincias y ciudades autonomas españolas
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'EJEMPLO DE USO
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Sub Form_Load()
'AddProvincias combo1
'End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
    With Combo
        .AddItem "Álava"
        .ItemData(0) = "01"
        .AddItem "Albacete"
        .ItemData(1) = "02"
        .AddItem "Alicante"
        .ItemData(2) = "03"
        .AddItem "Almería"
        .ItemData(3) = "04"
        .AddItem "Asturias"
        .ItemData(4) = "33"
        .AddItem "Ávila"
        .ItemData(5) = "05"
        .AddItem "Badajoz"
        .ItemData(6) = "06"
        .AddItem "Barcelona"
        .ItemData(7) = "08"
        .AddItem "Burgos"
        .ItemData(8) = "09"
        .AddItem "Cáceres"
        .ItemData(9) = "10"
        .AddItem "Cádiz"
        .ItemData(10) = "11"
        .AddItem "Cantabria"
        .ItemData(11) = "39"
        .AddItem "Castellón de la Plana"
        .ItemData(12) = "12"
        .AddItem "Ceuta"
        .ItemData(13) = "51"
        .AddItem "Ciudad Real"
        .ItemData(14) = "13"
        .AddItem "Córdoba"
        .ItemData(15) = "14"
        .AddItem "Coruña, A"
        .ItemData(16) = "15"
        .AddItem "Cuenca"
        .ItemData(17) = "16"
        .AddItem "Girona"
        .ItemData(18) = "17"
        .AddItem "Granada"
        .ItemData(19) = "18"
        .AddItem "Guadalajara"
        .ItemData(20) = "19"
        .AddItem "Guipúzcoa"
        .ItemData(21) = "20"
        .AddItem "Huelva"
        .ItemData(22) = "21"
        .AddItem "Huesca"
        .ItemData(23) = "22"
        .AddItem "Illes Balears"
        .ItemData(24) = "07"
        .AddItem "Jaén"
        .ItemData(25) = "23"
        .AddItem "León"
        .ItemData(26) = "24"
        .AddItem "Lleida"
        .ItemData(27) = "25"
        .AddItem "Lugo"
        .ItemData(28) = "27"
        .AddItem "Madrid"
        .ItemData(29) = "28"
        .AddItem "Málaga"
        .ItemData(30) = "29"
        .AddItem "Melilla"
        .ItemData(31) = "52"
        .AddItem "Murcia"
        .ItemData(32) = "30"
        .AddItem "Navarra"
        .ItemData(33) = "31"
        .AddItem "Ourense"
        .ItemData(34) = "32"
        .AddItem "Palencia"
        .ItemData(35) = "34"
        .AddItem "Palmas,Las"
        .ItemData(36) = "35"
        .AddItem "Pontevedra"
        .ItemData(37) = "36"
        .AddItem "Rioja,La"
        .ItemData(38) = "26"
        .AddItem "Salamanca"
        .ItemData(39) = "37"
        .AddItem "Santa Cruz De Tenerife"
        .ItemData(40) = "38"
        .AddItem "Segovia"
        .ItemData(41) = "40"
        .AddItem "Sevilla"
        .ItemData(42) = "41"
        .AddItem "Soria"
        .ItemData(43) = "42"
        .AddItem "Tarragona"
        .ItemData(44) = "43"
        .AddItem "Teruel"
        .ItemData(45) = "44"
        .AddItem "Toledo"
        .ItemData(46) = "45"
        .AddItem "Valencia"
        .ItemData(47) = "46"
        .AddItem "Valladolid"
        .ItemData(48) = "47"
        .AddItem "Vizcaya"
        .ItemData(49) = "48"
        .AddItem "Zamora"
        .ItemData(50) = "49"
        .AddItem "Zaragoza"
        .ItemData(51) = "50"
    End With
End Sub