В даному уроці ми відредагуємо раніше записаний макрос «МояПершаТаблиця». А також подивимося, як виглядає код VBA. Хоча заглиблюватися в детальне вивчення всього, що написано в цьому коді, ми почнемо трохи пізніше.
Для початку, давайте змінимо макрос «МояПершаТаблиця» так, щоб при автоматичному додаванні таблиці на сторнку документа Word у назві колонок записувався інший текст. Тобто, щоб замість «№ п/п», «ПІБ», «Клас» і «Група», в колонках було написано: «Колонка 1», «Колонка 2», «Колонка 3», «Колонка 4».
Алгоритм дій
Крок 1. Перейдіть на Стрічку у вкладку Подання і в групі Макроси клацніть по кнопці Макроси. Якщо ви все зробили правильно, то перед вами має з'явитися вікно «Макроси» зі списком усіх записаних раніше макросів.
Крок 2. Виділяємо макрос «МояПершаТаблиця», клікнувши по ньому лівою кнопкою миші і натискаємо «Змінити». Якщо ви все зробили правильно, то перед вами з'явиться вікно редактора коду VBA.
Крок 3. Зараз, набір символів та слів у цьому вікні, здається для нас чимось жахливим. Але скоро ми почнемо поступово розбиратися в написаному, і подібний код вже не буде нас лякати. Зараз давайте просто знайдемо ті слова, які потрібно замінити. Відшукати ці слова можна візуально (це не так вже й складно). А можна використовувати сполучення клавіш Ctrl+F, щоб викликати вікно пошуку та за його допомогою знайти потрібний рядок коду. Якщо ви шукаєте потрібне слово за допомогою вікна Find, то досить просто ввести текст який треба знайти у поле Find What, залишити зазначеним пункт Curent Module, та натиснути на кнопку Find Next.
Якщо ви все правильно зробили, то знайшли наступні рядки:
- Selection.TypeText Text:="№ п/п"
- Selection.TypeText Text:="ПІБ"
- Selection.TypeText Text:="Клас"
- Selection.TypeText Text:="Група"
Ось у цих рядках і потрібно виконувати заміну тексту. Все, що знаходиться в лапках, ми змінюємо на той текст, який потрібно відобразити в колонках таблиці:
- № п/п меняем на Колонка 1
- ПІБ меняем на Колонка 2
- Клас меняем на Колонка 3
- Група меняем на Колонка 4
Примітка.
Все можна зробити швидше, якщо використовувати вікно Replace (Заміна).
Щоб викликати це вікно, натискаємо клавіші Ctrl+H. У полі Find What вводимо текст, який потрібно знайти (у нашому випадку це № п/п). У полі Replace With вводимо текст, який потрібно вставити замість знайденого (у нашому випадку це буде Колонка 1). Залишаємо зазначеним пункт Curent Module та натискаємо кнопку Replace (це замінить перше знайдене значення з поля Find What), або Replace All (це замінить усі знайдені збіги у тексті, якщо їх декілька).
Після того, як ми внесли всі зміни в код, обов'язково потрібно натиснути Ctrl+S, або натиснути на іконку «Зберегти» в середовищі розробки VBA.
Тепер ми маємо перевірити чи правильно працює наш макрос.
Інтегроване середовище розробки VBA вже можна закрити (просто натискаємо на хрестик «Закрити» у верхньому правому кутку).
Далі все як завжди.
На Стрічці переходимо на вкладку Подання. Клацаємо по кнопці Макроси групи Макроси. Помічаємо макрос МояПершаТаблиця і натискаємо виконати. В результаті перед вами має з'явитися таблиця з чотирма колонками та чотирма рядками, але вже з іншими заголовками колонок: Колонка 1, Колонка 2, Колонка 3, Колонка 4.
Пригостити автора кавою
