Hvordan beregne avstander mellom postnummer i VBA

July 16

Postnummer er et numerisk system for merking av geografiske regioner i USA. ZIP er et akronym som står for Zone forbedring plan, en referanse til ideen om at å bruke de fem sifrede nummer vil øke effektiviteten i å levere post i hele landet. Det er nyttig å finne avstanden mellom to gitte postnummer for en rekke formål, blant annet reiseplanlegging og logistikk. Ofte vil regneark inneholde data som reiseruter, som har postnummer, så det kan være nyttig å beregne disse avstander ved hjelp av den medfølgende postnummer.

Bruksanvisning

1 Erklærer variablene for zip-koder du ønsker å finne avstanden mellom ved å skrive inn følgende kode i toppen av VBA-programmet:

Sett zip1 = "12345"

Sett zip2 = "54321"

2 Skriv inn følgende kode i henhold til ditt postnummer verdier erklæring:

Sett objHTTP = Create ( "MSXML2.ServerXMLHTTP")

URL = "http://maps.google.com/maps/nav?output=js&oe=utf8&q=from:" & zip1 & "+ til:" & zip2

objHTTP.Open "GET", URL, False

objHTTP.setRequestHeader "User-Agent", "Mozilla / 4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

objHTTP.send ( "")

3 Trykk F5 for å kjøre makroen og returnere avstanden mellom de to zip-koder.

Hint

I stedet for hardt koding verdiene for zip-koder, kan du bruke VBA til å hente brukerundersøkelser og bruke disse verdiene i stedet.