この例では、Excel VBAで2つの値を交換する方法を教えています。私たちは、後に見るようにあなたは、多くの場合、より複雑なプログラムではこのような構造が必要になります。

状況:

ワークシート上の2つの値。

Swap Values in Excel VBA

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

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.。

結果:

Swap Values Result

Swap Values Result