交換プログラムコード例
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, w As Integer
a = Cells(6, 2) '値代入
b = Cells(7, 2) '値代入
'ａとｂの値交換
w = a 'ａのバックアップ
a = b 'ａの箱の中身は、ｂの値になる。ａの箱にあったもともとの値は消滅するが、ｗの箱に保存してある。
b = w 'ｗの箱に保存してあった値を入力
'交換後のａとｂの値の表示
Cells(10, 2) = a
Cells(11, 2) = b
End Sub
解説
うっかりすると次のようにやってしまいそうです。
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer
a = Cells(6, 2) '値代入
b = Cells(7, 2) '値代入
'ａとｂの値交換
a = b
b = a
'交換後のａとｂの値の表示
Cells(10, 2) = a
Cells(11, 2) = b
End Sub
ところがこれだと
例えば
となってしまい成功しません。なぜでしょうか。
VBでは、変数とは値を入れる箱でした。
そして、個の箱には値は1個しか入れられません。
別の値を入れるともともとの値は出て行ってしまいます。
そして、値は箱の中でしか生きることが出来ませんので、
箱から出ると消滅してしまいます。
この例だと1は消滅してしまいます。
そして、ａにはｂの値2が入っています。
すると、次のｂ＝ａはまったく意味がありません。
そこで、ａの値を一時保存しておく、もう一つの箱ｗを用意する必要があります。
ａ＝８
ｂ＝３
ｗ＝ａ
ａ＝ｂ
