End Sub. 20. Анализируя код, можно заметить, что первые 16 строк осуществляют последовательный выбор ячеек столбца A и ввод в них текстовой информации

20. Анализируя код, можно заметить, что первые 16 строк осуществляют последовательный выбор ячеек столбца A и ввод в них текстовой информации. Но данный фрагмент кода можно упростить, заменив каждую пару операторов одним оператором. Например, два оператора

Range("A2").Select

ActiveCell.FormulaR1C1 = "Зарплата"

можно заменить одним оператором:

Range("A2").Value = "Зарплата"

Аналогичные замены могут быть выполнены и для остальных 14 строк.

21. Осуществите вышеприведенную замену, а также замените другие 14 строк кода.

22. Сохраните изменения.

23. Переключитесь на рабочую книгу Excel и проверьте работоспособность макроса.

24. Проверив работоспособность внесенных изменений, вернитесь в Microsoft Visual Basic для внесения следующих изменений.

25. Замените операторы

Range("B8").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-2]C)"

одним оператором:

Range("B8").FormulaLocal = " =СУММ(B2:B6)"

26. Сохраните изменения.

27. Переключитесь на рабочую книгу Excel и проверьте работоспособность макроса.

28. Убедившись в работоспособности макроса, среду Visual Basic можно закрыть, оставив открытой только книгу Excel.

Осталось снабдить макрос кнопкой на панели инструментов для возможности его упрощенного запуска (не через пункт меню).

29. Выберите команду Вид → Панели инструментов → Настройка, где выбираем вкладку Панели инструментов (Рис.17.4).

30. На этой вкладке нажимаем кнопку «Создать», и открываем диалоговое окно «Создание панели инструментов» (Рис.17.5).

31. Задаем в этом окне название кнопки для макроса и нажимаем ОК.

32. Созданная панель инструментов отображается в списке панелей инструментов. Остается добавить в нее соответствующие команды, для чего переходим на вкладку «Команды» (Рис.17.6).

33. Выбираем Настраиваемую кнопку и перетаскиваем ее на расположенную рядом с окном появившуюся панель.

34. В активизировавшейся кнопке «Изменить выделенный объект» выбираем команду «Назначить макрос». Открывается одноименное окно (Рис.17.7).

35. Выбираем соответствующий макрос (в нашем случае «Моя_таблица») и нажимаем ОК.

36. Перетаскиваем созданную панель инструментов к верхней части открытого окна программы Excel, располагая ее рядом с открытыми панелями (Рис.17.8).

37. Проверьте работоспособность созданной панели инструментов.

38. Сохраните изменения в файле под именем ЛР 17.3.xls.

Дата добавления: 2014-12-23