Este ejemplo le enseña cómo intercambiar dos valores en Excel VBA. A menudo tendrá esta estructura en programas más complicados, como veremos más adelante.

Situación:

Dos valores en la hoja de trabajo.

Swap Values in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declaramos una variable llamada temperatura de tipo double.

Dim temp As Double

  1. inicializar la variable temporal con el valor de la celda A1.

temp = Range("A1").Value

  1. Ahora podemos escribir con seguridad el valor de la celda B1 a la celda A1 (que hemos almacenado el valor de la celda A1 a la temperatura por lo que no perderá).

Range("A1").Value = Range("B1").Value

  1. Por último, se escribe el valor de la celda A1 (escrito a la temperatura) a la celda B1.

Range("B1").Value = temp

  1. Haga clic en el botón de comando dos veces.

Resultado:

Swap Values Result

Swap Values Result