4632@bk.ru
а также всё, что можно найти в Интернет…
Реклама
Рейтинг@Mail.ru
Для слабовидящих

Макрос на Excel

Задача:

Распечатать из MS Excel бланки, где на одном листе меняются три числа.

excel7000

Область печати задана заранее

Макрос:

Sub pechat7000()

‘ pechat7000 Макрос

‘ Макрос записан 08.05.2014 (Admin)

‘ Сочетание клавиш: Ctrl+b

nachalo = Range(«D2»).Value

konec = Range(«D3»).Value

For rrr = nachalo To konec Step 3

nom7001 = rrr + 1

Range(«A2»).Value = nom7001

nom7002 = rrr + 2

Range(«A4»).Value = nom7002

nom7003 = rrr + 3

Range(«A6»).Value = nom7003

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next rrr

End Sub

 Скачать

If you found an error, highlight it and press Shift + Enter or click here to inform us.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *