У меня есть основы R, но макросы Excel намного выше моих возможностей. Я ищу макросы, чтобы автоматизировать необходимость ручного ввода данных для каждой таблицы, показанной на рис. Ниже.
Я хотел бы вежливо попросить макрос, который изменил бы значение всех ячеек в выбранном диапазоне (для номера объекта во всех таблицах (D: G 8, L: O 8, D: G 27, L: O 27) на запрошенное значение. ….. например, «SO 01 40 01» (я знаю, что могут быть изменения в синтаксисе для написания текста или числа, я бы попросил код в обоих случаях). Я буду использовать его в других случаях.
Второй вопрос будет заключаться в том, как изменить количество зеленых ячеек «Number:» линейно для каждой таблицы на печать, например, первая печать 1,2,3,4. второй отпечаток 5,6,7,8. И возможность выбрать начальный номер и количество отпечатков.
Я попытался выполнить поиск в Google, но не нашел простого решения. Только:
Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.
For copynumber = 1 To CopiesCount
With ActiveSheet
.Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
.PrintOut 'Print the sheet
End With
Next copynumber
End Sub
Но это только решение проблемы с количеством отпечатков. В случае присвоения номеров этот код может назначать только 1 номер для каждого отпечатка.
Конечно, прошу прощения за мой английский. Надеюсь, я четко задал вопросы