ZIP -koder är ett numeriska system för märkning av geografiska regioner i USA . ZIP är en förkortning som står för Zone Improvement Plan , en hänvisning till idén att använda de fem siffriga tal skulle öka effektiviteten i att leverera post i hela landet . Det är nyttigt att hitta avståndet mellan två givna ZIP koder för olika ändamål , bland annat reseplanering , och logistik . Ofta kommer kalkylblad innehåller data, exempelvis resor resvägar , som har postnummer , så det kan vara lämpligt att beräkna dessa avstånd med den medföljande postnummer . Instruktioner
1
Deklarera variabler för postnummer du vill hitta avståndet mellan genom att skriva följande kod i toppen av din VBA -program :
Set zip1 = " 12345 "
Set zip2 = " 54321 "
2
Skriv följande kod i ditt postnummer värden deklaration :
Set objHTTP = CreateObject ( " MSXML2.ServerXMLHTTP " )
URL = " http://maps.google.com/maps/nav?output=js&oe=utf8&q=from : " & zip1 & " + till : " & zip2
objHTTP.Open " GET " , URL , False
objHTTP.setRequestHeader " User-Agent " , " Mozilla/4.0 ( compatible; MSIE 6.0; Windows NT 5.0 ) "
objHTTP.send ( " " ) Addera 3
Tryck F5 för att köra makrot och returnera avståndet mellan de två postnummer .
