VBA – РАБОЧИЙ ЯЗЫК EXCEL
Дальнейшее изложение материала ориентировано на читателя, ознакомленного с программированием на Visual Basic .
Перед запуском макрорекордера следует подготовить рабочий лист, произведя все действия, которые не нужно включать в процедуру. Это такие действия, как создание нового рабочего листа или перемещение в конкретную часть листа. Когда Вы начнете запись, все, что Вы сделаете в Excel, будет записано в процедуре.
1. Создайте на пользовательском диске d свою рабочую папку.
2. Запустите Excel и откройте лист Лист1 , если открыт другой.
3. Сохраните файл под именем VBA .xls в своей рабочей папке.
4. Выполните команду Сервис, Макрос, Начать запись.
5. В появившемся диалоговом окне Запись макроса (рис. 1), установите параметры записываемой процедуры. В поле Имя макроса введите имя процедуры Расчет_стоимости .
6. В поле Описание следует ввести текст, поясняющий назначение процедуры. Введите в этом поле: Процедура, вычисляющая стоимость с учетом скидки .
7. Поле Сочетание клавиш предназначено для записи символа, нажатие на который при нажатой клавише Ctrl приведет к запуску процедуры. Это поле Вы не заполняйте.
8. Оставьте без изменения остальные параметры диалогового окна и щелкните на кнопке ОК. Появится кнопка Остановить запись на плавающей панели инструментов.
На этом подготовка к записи макроса закончена. Теперь все следующие производимые действия будут записаны и интерпретированы как инструкции VBA. Будут записаны все нажатия клавиш клавиатуры и кнопок мыши до тех пор, пока не будет нажата кнопка Остановить запись.
9. Выполните команду Сервис, Параметры.
10. Чтобы выключить отображение сетки, раскройте вкладку Вид и сбросьте флажок Сетка. Щелкните на кнопке ОК.
11. Выделите ячейку B5 и введите текст Розничная цена: и нажмите клавишу Enter .
12. Выделите ячейку C5 и выполните команду Формат, Ячейки.
13. Раскройте вкладку Защита и сбросьте флажок Защищаемая ячейка. Эти изменения отменят защиту выделенной ячейки от изменения ее содержимого, т.е. позже, когда Вы защитите от изменений весь рабочий лист, данные в этой ячейке можно будет изменять.
14. Раскройте вкладку Число и выберите формат Денежный с двумя разрядами дробной части и символом денежной единицы р ., использующий выделение красным цветом для отрицательных значений. Затем щелкните на кнопке ОК.
15. Выделите ячейку B7 , введите текст Цена с учетом скидки: и нажмите клавишу Enter .
16. Выделите ячейку B9 , введите текст Размер скидки: и нажмите клавишу Enter .
17. Расширьте столбец B до такой степени, чтобы текст в ячейке B7 полностью отображался внутри столбца B . Для этого поместите указатель мыши на вертикальную черту между заголовками столбцов B и C и перетащите ее.
18. Выделите диапазон ячеек B5:B9 и установите в них выравнивание текста по правому краю. Для этого выберите команду Формат, Ячейки. Раскройте вкладку Выравнивание. В раскрывшемся списке по горизонтали выделите элемент по правому краю и щелкните на кнопке ОК.
19. Выделите ячейку C7 и выберите команду Формат, Ячейки. Раскройте вкладку Число и выберите формат Денежный с двумя разрядами дробной части и символом денежной единицы р., использующий выделение красным цветом для отрицательных значений. Затем щелкните на кнопке ОК.
21. Выделите ячейку C9 и выберите команду Формат, Ячейки. Раскройте вкладку Число и выберите формат Процентный с двумя разрядами дробной части. Затем щелкните на кнопке ОК.
22. Задайте размер вкладки, введя значение 0,05 в ячейку C9 и нажав клавишу Enter .
Рис. 2. Вид рабочего листа перед окончанием записи
23. Чтобы защитить ячейки рабочего листа от изменений, выберите команду Сервис, Защита, Защитить лист. В появившемся окне Защитить лист щелкните на кнопке ОК. Ваш рабочий лист теперь должен выглядеть так, как показано на рис. 2.
24. Для остановки записи щелкните на кнопке Остановить запись на плавающей панели инструментов, которая появилась на рабочем листе в начале записи.
25. Проверьте правильность работы созданной Вами таблицы. Введите в ячейку C5 значение 100 и нажмите клавишу Enter . В ячейке C7 должен появиться результат 95,00р. , а в ячейке C5 отобразиться значение 100,00р .
26. Теперь можно посмотреть на процедуру, которая получилась в результате записи. Для этого выполните команду Сервис, Макрос, Макросы.
27. Выделите имя макроса в предлагаемом списке и щелкните на кнопке Изменить.
28. Появится окно редактора Visual Basic , в котором откроется окно с кодом процедуры (рис. 3). Обратите внимание: Visual Basic здесь не является отдельным приложением. Он входит в состав Excel.
Рис. 3. Окно редактора Visual Basic с кодом записанной процедуры
Расчет_стоимости
29. Сравните этот код с выполненными Вами действиями при записи процедуры. Вы должны заметить, что каждому выполненному Вами действию соответствует одна или более строк процедуры.
Первое, что Вы сделали, когда начали запись процедуры – отключили отображение сетки активного рабочего листа. Этому действию соответствует строка процедуры:
Следующие две строки программного кода Вашей процедуры активизируют ячейку B5 и помещают в нее текст «Розничная цена :»
Следующие четыре строки выделяют ячейку C5 , затем применяют к ней числовой формат, снимают защиту ячейки и скрытие формул, действующие после защиты листа:
Последнюю из этих инструкций можно удалить, поскольку важно лишь снять защиту ячейки. Значение же ее свойства Hidden (скрытый) нам безразлично.
Следующие четыре инструкции вставляют текст в ячейки B7 и B9 :
Следующая далее строка программного кода процедуры выполняет выделение столбца B и изменяет его ширину:
Можно выделить один или более столбцов с помощью метода Columns (столбцы). Ссылка на столбцы является аргументом этого метода. Затем можно использовать свойство ColumnWidth (ширина столбца) текущего выделения, чтобы установить ширину выделенных столбцов. Аналогичным образом можно выделить одну или несколько строк с помощью метода Rows (строки).
Сравните инструкции дальнейшей части кода процедуры с выполненными Вами действиями при записи процедуры. После сделанного пояснения кода процедуры Вам должно быть понятно назначение инструкций этой заключительной части кода процедуры.
Как в Excel скопировать значения без фоновых формул — Электромотоциклы и электроскутеры Skaut
Во всех версиях Excel, начиная от 2007, скопировать значения ячеек без фоновых формул можно сделать достаточно легко. Выделите желаемую ячейку с скопируйте ее содержимое. Теперь нажмите правой кнопкой мыши на ту область, куда вы хотите перенести данные, и в контекстном меню выберите опцию «Параметры вставки».
