Этот пример учит, как поменять местами два значения в Excel VBA. Вы часто будете нуждаться в этой структуре в более сложных программах, как мы увидим позже.

Ситуация:

Два значения на листе.

Swap Values in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, мы объявляем переменную Temp типа Double.

Dim temp As Double

  1. Мы инициализируем переменную температуру со значением ячейки A1.

temp = Range("A1").Value

  1. Теперь можно смело записать значение ячейки B1 в ячейку A1 (мы сохранили значение ячейки A1 до температуры, поэтому мы не будем терять его).

Range("A1").Value = Range("B1").Value

  1. Наконец, мы записать значение ячейки A1 (написанном Temp) к ячейке B1.

Range("B1").Value = temp

  1. Нажмите кнопку команды в два раза.

Результат:

Swap Values Result

Swap Values Result