Tecnología

Inicio

Cómo calcular distancias entre los códigos postales en VBA

March 4

códigos postales son un sistema numérico para el etiquetado de las regiones geográficas en los Estados Unidos. ZIP es un acrónimo que significa para el Plan de Mejora de zona, una referencia a la idea de que el uso de los cinco números de dos dígitos que aumentaría la eficiencia en la entrega de correo en todo el país. Es útil para encontrar la distancia entre dos códigos postales dadas para una variedad de propósitos, incluyendo la planificación de viajes, y la logística. A menudo, las hojas de cálculo se contienen datos como los itinerarios de viaje, que tienen códigos postales, por lo que pueden ser útiles para calcular esas distancias usando los códigos postales proporcionados.

Instrucciones

1 Declarar variables para los códigos postales que desea encontrar la distancia entre escribiendo el siguiente código en la parte superior de su programa de VBA:

Establecer ZIP1 = "12345"

Establecer ZIP2 = "54321"

2 Escriba el siguiente código debajo de la postal declaración de valores de código:

Establecer objHTTP = CreateObject ( "MSXML2.ServerXMLHTTP")

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

objHTTP.Open "GET", URL, Falso

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

objHTTP.send ( "")

3 Presione F5 para ejecutar la macro y volver la distancia entre los dos códigos postales.

Consejos y advertencias

  • En lugar de difícil codificar los valores de los códigos postales, puede utilizar VBA para recuperar la entrada del usuario y el uso de esos valores en su lugar.