Макрос на Excel

Задача:

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

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

Макрос:

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.