エクセルVBAでのスワップ値
この例では、Excel VBAで2つの値を交換する方法を教えています。私たちは、後に見るようにあなたは、多くの場合、より複雑なプログラムではこのような構造が必要になります。
状況:
ワークシート上の2つの値。
ワークシート上のコマンドボタンを配置し、次のコード行を追加します。
1.まず、我々は、double型のTEMPという変数を宣言します。
Dim temp As Double
2.私たちは、セルA1の値を変数tempを初期化します。
temp = Range("A1").Value
3.今、私たちは、安全に、セルA1(我々はそれを失うことはありませんので、我々は一時に、セルA1の値を格納している)に、セルB1の値を書き込むことができます。
Range("A1").Value = Range("B1").Value
4.最後に、我々はセルB1にセルA1(一時に書き込まれた)の値を書き込みます。
Range("B1").Value = temp
コマンドボタンを2回クリック5.。
結果: