ZIP codes zijn een numeriek systeem voor de etikettering geografische regio's in de Verenigde Staten . ZIP is een acroniem dat staat voor Zone Improvement Plan , een verwijzing naar het idee dat het gebruik van de vijf cijfers efficiëntie in het leveren van e-mail door het hele land zou toenemen . Het is nuttig om de afstand tussen twee gegeven postcodes vinden voor verschillende doeleinden , zoals reisplanning en logistiek . Vaak zal spread sheets gegevens zoals rondreizen , welke postcodes hebben bevat , dus het kan nuttig zijn om die afstanden met behulp van de meegeleverde postcodes berekenen . Instructies
1 Declare variabelen voor de postcodes u wilt de afstand tussen vinden door in de bovenkant van uw VBA -programma typt u de volgende code : Set
zip1 = " 12345 " < br Set > Zip2 = " 54321 "
type 2 de volgende code onder uw postcode waarden verklaring :
Set objHTTP = CreateObject ( " MSXML2.ServerXMLHTTP " ) < br URL > = " http://maps.google.com/maps/nav?output=js&oe=utf8&q=from : " & zip1 & " + aan : " & Zip2 objHTTP.Open
" GET " , URL , Valse objHTTP.setRequestHeader "User - Agent "
, ' Mozilla/4.0 ( compatible; MSIE 6.0 ; Windows NT 5.0 ) " objHTTP.send
( " " )
3 Druk op F5 om de macro draaien en keren de afstand tussen de twee postcodes .
|
