SwapVar (2)
Sub Swappa(X As Variant, Y As Variant) Dim K As Variant K=X X=Y Y=K End Sub
Sub Swappa(X As Variant, Y As Variant)
Dim K As Variant
K=X
X=Y
Y=K
End Sub
( swapvar2.html )- by Paolo Puglisi
- Modifica del 17/12/2023