Генри хотел бы, чтобы в ячейке содержалось число, которое увеличивается каждый раз при печати копии рабочего листа. Таким образом, если ячейка содержит число 9, и он распечатает 13 копий рабочего листа, каждая копия будет содержать в этой ячейке числа от 9, 10, 11 и до 21.

Как вы могли догадаться, лучше всего делать это с помощью макроса. Все, что нужно сделать, — это распечатать лист сколько угодно раз, увеличивая значение ячейки после каждой печати. В этом случае я предполагаю, что увеличиваемая ячейка — это B7. Следующий макрос будет обрабатывать процесс:

Sub PrintNumberedCopies()

Dim iCopies As Integer     Dim J As Integer     Dim r As Range

' Specify the cell to modify     Set r = Range("B7")



' Get the number of copies.

iCopies = Val(InputBox("Number of copies to print:"))



If iCopies > 0 Then         ' Loop iCopies times, printing once per loop         For J = 1 to iCopies             ActiveSheet.PrintOut             r.Value = r.Value + 1         Next J     End If End Sub

Обратите внимание, что макрос спрашивает пользователя, сколько копий нужно напечатать, а затем он печатает каждую отдельно. После каждой распечатки он увеличивает значение, хранящееся в ячейке B7. Если пользователь вводит что-то, что не соответствует количеству копий, то ничего не печатается.

Помните, что если вы хотите, чтобы номер значения в B7 всегда был актуальным, вам необходимо сохранить книгу через некоторое время после вашей последней печати. Кроме того, если вы печатаете каким-либо способом, отличным от этого макроса, то значение в B7 не будет отражать количество фактически напечатанных копий.

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

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

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

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

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