Есть один лист со списком людей (примерно 200) и есть второй лист, в котором должна автоматически печататься расписка на каждого человека. Как сделать цикл, который бы при нажатии определенной кнопки(её пока нет) создавал расписку по очереди на каждого человека и печатал? Возможно ли это вообще?
Есть один лист со списком людей (примерно 200) и есть второй лист, в котором должна автоматически печататься расписка на каждого человека. Как сделать цикл, который бы при нажатии определенной кнопки(её пока нет) создавал расписку по очереди на каждого человека и печатал? Возможно ли это вообще? Stankoff
Sub prnt() Dim rCell As Range With Sheets(1) For Each rCell In .[a1:a100] If rCell.Value <> "" Then Sheets(2).[a3].Formula = "Данная расписка подтверждает, что Я," & rCell.Value Sheets(2).[a4].Formula = "получила денежную сумму в размере " & rCell.Offset(0, 1).Value
Sheets(2).PrintOut Copies:=1, Collate:=True End If Next End With End Sub
[/vba]
[vba]
Код
Sub prnt() Dim rCell As Range With Sheets(1) For Each rCell In .[a1:a100] If rCell.Value <> "" Then Sheets(2).[a3].Formula = "Данная расписка подтверждает, что Я," & rCell.Value Sheets(2).[a4].Formula = "получила денежную сумму в размере " & rCell.Offset(0, 1).Value
Sheets(2).PrintOut Copies:=1, Collate:=True End If Next End With End Sub
Есть один лист со списком людей (примерно 200) и есть второй лист, в котором должна автоматически печататься расписка на каждого человека. Как сделать цикл, который бы при нажатии определенной кнопки(её пока нет) создавал расписку по очереди на каждого человека и печатал? Возможно ли это вообще?
Можно еще так... [vba]
Код
Sub Печать() Application.ScreenUpdating = False Sheets("Ðàñïèñêà").Select a = 3 b = Cells(1, 3).Value Sheets("Расписка").Select
While Worksheets("Таблица").Cells(a, 2).Value <> 0 Sheets("Расписка").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False c = c + 1 Cells(1, 3).Value = Cells(1, 3).Value + 1 Cells(2, 3).Value = Cells(2, 3).Value + 1 a = a + 1 b = b + 1 Wend Cells(2, 3).Value = 1
Есть один лист со списком людей (примерно 200) и есть второй лист, в котором должна автоматически печататься расписка на каждого человека. Как сделать цикл, который бы при нажатии определенной кнопки(её пока нет) создавал расписку по очереди на каждого человека и печатал? Возможно ли это вообще?
Можно еще так... [vba]
Код
Sub Печать() Application.ScreenUpdating = False Sheets("Ðàñïèñêà").Select a = 3 b = Cells(1, 3).Value Sheets("Расписка").Select
While Worksheets("Таблица").Cells(a, 2).Value <> 0 Sheets("Расписка").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False c = c + 1 Cells(1, 3).Value = Cells(1, 3).Value + 1 Cells(2, 3).Value = Cells(2, 3).Value + 1 a = a + 1 b = b + 1 Wend Cells(2, 3).Value = 1