Практическое задание по теме Макросы в MS Office 4

Практическое задание по теме Макросы в MS Office 3

Задача об обмене значениями

Условие

Произвести обмен значениями двух переменных без использования третьей

Решение

Предположим, что имеются 2 переменные (А и В), содержащие числа. Для обмена значениями этих переменных достаточно произвести следующие действия:

1. Сложить А и В и результат записать в А
2. Вычесть из А переменную В и записать результат в В.
3. Вычесть из А переменную В и записать результат в А.

Для решения задачи будем считать, что число A записано в ячейку B2, число В - в ячейку C2. Подпишем соответствующим образом эти ячейки и разместим на рабочем листе кнопку с именем cmd_Change и надписью Обменять А и В (рис. 6.)

Рис. 6. Рабочий лист, подготовленный для решения задачи

В листинге 6. вы можете найти программный код для решения задачи, размещенный в обработчике события Click для кнопки cmd_Change

'Сохраняем сумму ячеек в B2

ActiveSheet.Range("B2") = _

ActiveSheet.Range("B2") + _

ActiveSheet.Range("C2")

'Разность сохраняем в С2

ActiveSheet.Range("C2") = _

ActiveSheet.Range("B2") - _

ActiveSheet.Range("C2")

'И еще раз разность в B2

ActiveSheet.Range("B2") = _

ActiveSheet.Range("B2") - _

ActiveSheet.Range("C2")

Листинг 6. Решение задачи

Практическое задание по теме Макросы в MS Office 4