нужна помощь задача такая есть пачка документов из 100 листов, нужно распечатать числовую нумерацию на каждом листе с увеличением на 1цу в одном и томже месте на каждом листе, т.е. допустим число 514947 на 1м листе , на другом 51948, на третьем 514949, и т.д. , а при исправлении первого листа соответственно исправлялись все остальные, пример в файлике! или что то можете предложить другое поумнее!
нужна помощь задача такая есть пачка документов из 100 листов, нужно распечатать числовую нумерацию на каждом листе с увеличением на 1цу в одном и томже месте на каждом листе, т.е. допустим число 514947 на 1м листе , на другом 51948, на третьем 514949, и т.д. , а при исправлении первого листа соответственно исправлялись все остальные, пример в файлике! или что то можете предложить другое поумнее!111DIMAN111
Michael_S, что то не понял ничего это то понятно что если первое число изменить то всё изменится по формуле а далее нужно на все сто страниц пронумеровать число автоматически
Michael_S, что то не понял ничего это то понятно что если первое число изменить то всё изменится по формуле а далее нужно на все сто страниц пронумеровать число автоматически111DIMAN111
Сообщение отредактировал 111DIMAN111 - Пятница, 09.01.2015, 16:07
Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True For i = 1 To 100 Cells(2, 6).Value = Cells(2, 6).Value + 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next i End Sub
[/vba]
Может через макрос такого плана? [vba]
Код
Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True For i = 1 To 100 Cells(2, 6).Value = Cells(2, 6).Value + 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next i End Sub
DJ_Marker_MC, это конечно супер, но невозможно остановить печать может как то можно помочь с количествои печати или как то подругому чтобы можно было управлять печатью, Вы господин программист с большой буквы
DJ_Marker_MC, это конечно супер, но невозможно остановить печать может как то можно помочь с количествои печати или как то подругому чтобы можно было управлять печатью, Вы господин программист с большой буквы 111DIMAN111
Application.ScreenUpdating = False ActiveWindow.View = xlPageLayoutView Dim i%, r%, n&, k& k = InputBox("Сколько листов нужно пронумеровать?") n = InputBox("С какого № начать нумерацию?") Cells.Clear Cells(100, 1) = 1 r = ActiveWindow.SelectedSheets.HPageBreaks(1).Location.Row - 1 For i = 1 To k * r Step r Cells(i, "F") = n n = n + 1 Next Cells(100, 1) = Empty
Application.ScreenUpdating = True ActiveWindow.SelectedSheets.PrintOut End Sub
[/vba]
как-то так
[vba]
Код
Sub DIMAN111()
Sub DIMAN111()
Application.ScreenUpdating = False ActiveWindow.View = xlPageLayoutView Dim i%, r%, n&, k& k = InputBox("Сколько листов нужно пронумеровать?") n = InputBox("С какого № начать нумерацию?") Cells.Clear Cells(100, 1) = 1 r = ActiveWindow.SelectedSheets.HPageBreaks(1).Location.Row - 1 For i = 1 To k * r Step r Cells(i, "F") = n n = n + 1 Next Cells(100, 1) = Empty
Application.ScreenUpdating = True ActiveWindow.SelectedSheets.PrintOut End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
нужна помощь задача такая есть пачка документов из 100 листов, нужно распечатать числовую нумерацию на каждом листе с увеличением на 1цу в одном и томже месте на каждом листе, т.е. допустим число 514947 на 1м листе , на другом 51948, на третьем 514949, и т.д. , а при исправлении первого листа соответственно исправлялись все остальные, пример в файлике! или что то можете предложить другое поумнее!
это то понятно что если первое число изменить то всё изменится по формуле а далее нужно на все сто страниц пронумеровать число автоматически
