Практическое задание: Использование макросов в MS Excel.

1. Первый рабочий лист назовем «испытания». Уменьшим на нем ширину столбцов до значения 1, вместо установленного по умолчанию (Формат, столбец, Стандартная ширина, 1, ОК). Два столбца ВА и ВВ следует расширить вручную для вывода итоговых результатов.

2. Область (В3:АY22) заполним единицами, получится 1000 клеток. Чтобы в дальнейшем было удобно ссылаться на этот диапазон ячеек, присвоим ему. Предварительно выделив, собственное имя (Вставка, Имя, Присвоить, (область_наблюдения), Добавить, ОК).

3. Для подсчета количества единиц в области наблюдения в ячейке ВВ1 мы можем использовать функцию СЧЕТЕСЛИ, указывая на ее диалоговой карточке в соответствующем поле имя всего диапазона просматриваемых ячеек (Вставка, Имя, Вставить, (выбираем из списка имен нужное), ОК). Получится формула = СЧЕТЕСЛИ (область_наблюдения; 1), согласно которой в ячейку ВВ1 будет выводиться интересующее нас число не распавшихся еще на данный момент атомов.

4. Создадим вспомогательную область для проведения испытаний (Правка, Перейти, область_наблюдения, ОК, Копировать, (на В26), Вставить, Esc). Теперь уже и формулы можно вводить беспрепятственно. Нужно ввести формулу = ЕСЛИ(В3=1; ОКРУГЛ(СЛЧИС(); 0)) один раз, в соответствующую В3 ячейку В26. а затем растиражировать ее по всему полю (В26:АY45). Вновь созданной области присвоим имя – «лаборатория».

5. Первый макрос запишем для копирования значений из нижней области в верхнюю. Его можно вызвать в любой момент нажатием сочетания клавиш Ctrl+q. Экран мигает черным – это сработает выделение верхней области при переходе к ней (нижняя тоже мигнет, но почти незаметно). Во время вставки в «область_наблюдения» числовых значений, скопированных из №лаборатории», ячейки последней будут заново пересчитаны по случайному закону, предоставляя свежий материал для последующих операций.

Сервис, Макрос, Начать запись (вводим имя: снизу_вверх), Tab, (вводим букву для вызова: латинскую q), ОК Правка. Перейти, лаборатория, ОК Копировать, Правка, Перейти, область_наблюдения, ОК Правка, Специальная вставка. Значение, ОК, Esc (вертикальная прокрутка листа вверх до щелчка по клетке ВВ1) (прав. к л. мыши – протяжка ВВ1 за рамку в ВВ4), Копировать только значения Сервис, Остановить запись	ü ï ý тело макроса ï þ
Второй макрос, который будет вызываться сочетанием клавиш Ctrl+z, запишем для восстановления исходного состояния. Сервис, Макрос, Начать запись (вводим имя: в_исходное_состояние), Tab, (вводим букву для вызова: латинскую z), ОК (щелчок по клетке В3, Ввод в нее числа 1) (протяжка левой кнопкой мыши за уголок вправо до AY3 включительно) (протяжка левой кнопкой мыши за уголок вниз до стрелки 22 включительно) (выделение диапазона ВВ4:ВВ23), Delete, щелчок по клетке ВВ1) Сервис, Остановить запись.	ü ï ý тело макроса þ
Второй рабочий лист назовем «Статистика». Присвоим области (ВВ4:ВВ23) листа «испытания» собственное имя «результат_опыта», а области (D4:D23) – имя «для_усреднения». Третий макрос, который будет вызываться сочетанием клавиш Ctrl+s, запишем для накопления полученных данных. Сервис, Макрос, Начать запись (вводим имя: добавить_к_статистике), Tab, (вводим букву для вызова: латинскую s), ОК (щелчок по ярлыку «Испытания», а затем по ячейке В3), (набор с клавиатуры цифры 1) (щелчок по кнопке ввода в строке формул) Копировать, (выбор «область_наблюдения» в раскрывающемся списке имен) Вставить, Esc, (выбор «результат_опыта» в списке имен) Копировать, (выбор «для_усреднения» в списке имен), Вставить (выбор «результат_опыта» в списке имен), Delete, щелчок по клетке ВВ1) Сервис, Остановить запись.	ü ï ý тело макроса ï þ

6. Чтобы внести изменения в текст макроса, нужно запустить программу VBA (Сервис, Макросы, (выбираем имя макроса), Изменить).

В макрос «снизу_вверх» нужно внести следующие изменения (дописать новые строки, т.е. выделенные жирным шрифтом):

Sub снизу_вверх ()

‘

‘снизу_вверх Макрос

‘Макрос записан 23.10.2002 (Zevs)

‘

‘сочетание клавиш: Ctrl+q

‘

For n = 0 to 19

Application. Goto Reference:= «лаборатория»

Selection. Copy

Application. Goto Reference:= «область_наблюдения»

Selection. PasteSpecial Paste:= xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application. CutCopyMode = False

Active Window. SmallScroll Down:=-2

Range(“BB1”). Select

Range(“BB1”). Copy

Range(“BB1”). Offset (n, 0). Select

Selection. PasteSpecial Paste:=xlValues, Operation;=xlNone, SkipBlanks:=False, Transpose;=False

Application. CutCopyMode = False

Next

End Sub

В макрос «добавить_к-статистике» нужно внести следующие изменения (дописать новые строки, т.е. выделенные жирным шрифтом):

Sub добавить_к_статистике ()

‘

‘добавить_к_статистике Макрос

‘Макрос записан 23.10.2002 (Zevs)

‘

‘сочетание клавиш: Ctrl+s

‘

Дата добавления: 2015-07-25