Scambiare il valore di due variabili

Se si esegue una seria programmazione macro, alla fine arriverà il momento in cui si desidererà scambiare i valori memorizzati in due variabili. In alcune versioni di BASIC, ci sono comandi che gestiscono questo. Invece, VBA ti lascia alle istruzioni standard. La seguente tecnica dovrebbe funzionare per la maggior parte delle casistiche:

TempNum = MyNum1
MyNum1 = MyNum2
MyNum2 = TempNum

 

Come probabilmente puoi vedere dai nomi delle variabili di esempio, questo codice lavora con variabili numeriche. Funzionerà altrettanto bene con le variabili stringa, se si utilizza la stessa tecnica. Una volta completato, i valori in MyNum1 e MyNum2 sono stati scambiati e TempNum non ha importanza poiché era intesa (con questa tecnica) come una variabile temporanea comunque.

Se preferisci non utilizzare una variabile temporanea (per qualsiasi motivo), puoi utilizzare il seguente codice per scambiare due stringhe:

MyString1 = MyString1 & MyString2
MyString2 = Left(MyString1, Len(MyString1) - Len(MyString2))
MyString1 = Right(MyString1, Len(MyString1) - Len(MyString2))

 

Ti è stato utile?