Мадхаби хочет напечатать четыре копии рабочего листа, но изменить значение ячейки A7 для каждой копии. Четыре значения: «Оригинал»,

«Дубликат», «Файл» и «Драйвер». При прочих равных данных Мадхаби задается вопросом, как он может изменить текст ячейки A7 во время печати.

Один из возможных подходов — создать четыре разных рабочих листа, содержащих по существу одинаковую информацию. Все листы с 2 по 4 могут ссылаться на ячейки на листе 1, за исключением ячейки A7, которой на каждом листе можно присвоить другое значение («Оригинал»,

«Дублировать» и т. Д.).

Однако лучшим подходом было бы создание быстрого макроса, который можно было бы использовать для печати. Макрос может обрабатывать изменение значения ячейки A7 каждый раз перед печатью рабочего листа. Вот простой пример:

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

Макрос помещает четыре значения, предназначенные для ячейки A7, в массив. Затем макрос проходит по каждому из четырех элементов массива, помещает значение в ячейку A7 и затем распечатывает рабочий лист. Печать выполняется на любом принтере по умолчанию в системе.

Макрос можно легко назначить сочетанию клавиш или панели быстрого доступа (как описано в других ExcelTips), чтобы вы могли быстро распечатать все четыре копии.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9962) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.