在Excel VBA交换价值
这个例子教你如何在Excel VBA交换两个值。你会经常需要更复杂的程序这个结构,我们将在后面看到。
现状:
工作表上的两个值。
将工作表上的一个命令按钮并添加以下代码行:
1.首先,我们声明一个名为Double类型的临时变量。
Dim temp As Double
2.我们初始化变量temp以单元格A1的值。
temp = Range("A1").Value
3.现在我们可以放心地写B1单元格的值的单元格A1(我们所储存的A1单元格的值来临时,所以我们不会失去它)。
Range("A1").Value = Range("B1").Value
4.最后,我们写单元格A1(写入温度)的细胞B1的值。
Range("B1").Value = temp
5.单击命令按钮两次。
结果: