Come calcolare le distanze tra codici postali in VBA

March 12

CAP sono un sistema numerico per l'etichettatura regioni geografiche negli Stati Uniti. ZIP è un acronimo che sta per Zone Piano di Miglioramento, un riferimento all'idea che utilizzando i cinque numeri di cifra aumenterebbe l'efficienza nella consegna della posta in tutto il paese. È utile per trovare la distanza tra due date CAP per una varietà di scopi, tra cui la pianificazione viaggi, e logistica. Spesso, fogli di calcolo conterrà i dati come gli itinerari di viaggio, che hanno codici di avviamento postale, quindi potrebbe essere utile per calcolare le distanze utilizzando i codici di avviamento postale in dotazione.

istruzione

1 Dichiarare le variabili per i codici di avviamento postale che si desidera trovare la distanza tra digitando il seguente codice nella parte superiore del vostro programma di VBA:

Set ZIP1 = "12345"

Set zip2 = "54321"

2 Digitare il seguente codice sotto la zip dichiarazione di valori di codice:

Set objHttp = CreateObject ( "MSXML2.ServerXMLHTTP")

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

objHTTP.Open "GET", URL, False

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

objHTTP.send ( "")

3 Premere F5 per eseguire la macro e tornare la distanza tra i due codici di avviamento postale.

Consigli e avvertenze

  • Invece di difficile codifica i valori per i codici di avviamento postale, è possibile utilizzare VBA per recuperare l'input dell'utente e utilizzare tali valori, invece.