Questo esempio vi insegna come scambiare due valori in Excel VBA. Avrete spesso bisogno di questa struttura in programmi più complicati, come vedremo in seguito.

Situazione:

Due valori sul foglio di lavoro.

Swap Values in Excel VBA

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

  1. In primo luogo, si dichiara una variabile denominata temperatura di tipo Double.

Dim temp As Double

  1. inizializzare la temperatura variabile con il valore della cella A1.

temp = Range("A1").Value

  1. Ora possiamo tranquillamente scrivere il valore di cella B1 alla cella A1 (abbiamo memorizzato il valore di cella A1 alla temperatura in modo da non perderlo).

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

  1. Infine, scriviamo il valore di cella A1 (scritto a temperatura) per cella B1.

Range("B1").Value = temp

  1. Fare clic sul pulsante di comando per due volte.

Risultato:

Swap Values Result

Swap Values Result