для подготовки документа на печать нужно документ, разделенный на страницы скопировать в определенном порядке на другой лист - подобную тему создал здесь - но однозначного ответа пока нет.. в приере 1 лист это документ исходник - 2 лист результат
для подготовки документа на печать нужно документ, разделенный на страницы скопировать в определенном порядке на другой лист - подобную тему создал здесь - но однозначного ответа пока нет.. в приере 1 лист это документ исходник - 2 лист результатluny
luny, сказано же: Excel - это не программа для вёрстки текста. Причём здесь ваш "результат"? Вы свой "результат" можете руками нарисовать в любой другой программе (ибо желаете точного вида - а это обеспечивает только снимок)? Кстати, понятие "нарисовать" не означает, что вы действительно должны рисовать собственными руками на бумажном листе, а затем выкладывать "снимок" этого непотр... извиняюсь. Хотя бы изобразите фото/скрин имеющегося у вас готового красивого вида. А затем подумайте - "а точно ли этот именно вид был РАСПЕЧАТАН прямо из Excel?"
И затем пойдите туда и ещё раз правильно сформулируйте вашу проблему.
Хотя, если уж быть точным, - ваша "проблемка" здесь вряд ли будет решена. Потому вы желаете иметь конечный "визуальный" результат. Что к Excel не имеет отношения вообще.
luny, сказано же: Excel - это не программа для вёрстки текста. Причём здесь ваш "результат"? Вы свой "результат" можете руками нарисовать в любой другой программе (ибо желаете точного вида - а это обеспечивает только снимок)? Кстати, понятие "нарисовать" не означает, что вы действительно должны рисовать собственными руками на бумажном листе, а затем выкладывать "снимок" этого непотр... извиняюсь. Хотя бы изобразите фото/скрин имеющегося у вас готового красивого вида. А затем подумайте - "а точно ли этот именно вид был РАСПЕЧАТАН прямо из Excel?"
И затем пойдите туда и ещё раз правильно сформулируйте вашу проблему.
Хотя, если уж быть точным, - ваша "проблемка" здесь вряд ли будет решена. Потому вы желаете иметь конечный "визуальный" результат. Что к Excel не имеет отношения вообще.AndreTM
в приере 1 лист это документ исходник - 2 лист результат
вы там ничего не поняли и тут не внимательно читаете... - если вам не интересно не мешайте...- а то дойдет до того что начнете говорить ну зачем использовать комп есть же калькулятор и деление столбиком... - Я ХОЧУ РЕШИТЬ ВОПРОС ИМЕННО ТАК - НЕ МОЖЕТЕ ПОМОЧЬ - ПРОХОДИТЕ МИМО!
в приере 1 лист это документ исходник - 2 лист результат
вы там ничего не поняли и тут не внимательно читаете... - если вам не интересно не мешайте...- а то дойдет до того что начнете говорить ну зачем использовать комп есть же калькулятор и деление столбиком... - Я ХОЧУ РЕШИТЬ ВОПРОС ИМЕННО ТАК - НЕ МОЖЕТЕ ПОМОЧЬ - ПРОХОДИТЕ МИМО!luny
нужно документ, разделенный на страницы скопировать в определенном порядке на другой лист
Какие страницы? Если вы не в курсе - на "страницы для печати" Excel может разделить лист книги только перед печатью. На ваш принтер. У нас ваших принтеров нет. Делайте выводы. Да, конечно, можно заранее заложиться на определённые ограничения. Например, на "этикетку 20*80мм", что явно влезет при тесте в любой софтовый драйвер принтера на лист A4. Но никак не в вашу тему... Вы до сих пор не желаете понять - любой отвечающий здесь сразу же помог бы вам перераспределить любые данные каким угодно вам методом. Но вы же упорно не желаете понять, что даже ваши примеры у нас выглядят не так, как у вас. Ибо у нас НЕТУ ВАШИХ ПРИНТЕРОВ, ититьАбанамат, Алексей Не, итить лучше. Ибо включает в себя не только не только направление, но и прямую сексуальность (и без нарушения Правил, меж прочим...)
нужно документ, разделенный на страницы скопировать в определенном порядке на другой лист
Какие страницы? Если вы не в курсе - на "страницы для печати" Excel может разделить лист книги только перед печатью. На ваш принтер. У нас ваших принтеров нет. Делайте выводы. Да, конечно, можно заранее заложиться на определённые ограничения. Например, на "этикетку 20*80мм", что явно влезет при тесте в любой софтовый драйвер принтера на лист A4. Но никак не в вашу тему... Вы до сих пор не желаете понять - любой отвечающий здесь сразу же помог бы вам перераспределить любые данные каким угодно вам методом. Но вы же упорно не желаете понять, что даже ваши примеры у нас выглядят не так, как у вас. Ибо у нас НЕТУ ВАШИХ ПРИНТЕРОВ, ититьАбанамат, Алексей Не, итить лучше. Ибо включает в себя не только не только направление, но и прямую сексуальность (и без нарушения Правил, меж прочим...)AndreTM
Skype: andre.tm.007 Donate: Qiwi: 9517375010
Сообщение отредактировал AndreTM - Пятница, 14.11.2014, 00:54
Sub City() Dim i As Long, LastRow As Long, n As Long Dim a() As Long LastRow = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row 'Последняя ячейка в столбце В ReDim a(LastRow) For i = 1 To LastRow If Left(Sheets(1).Cells(i, 2), 5) = "ГОРОД" Then 'номер строки городов в массив a(n) = i n = n + 1 End If Next i ReDim Preserve a(n - 1) 'обрезаем лишние элементы массива End Sub
[/vba]
А вот дальше что вам нуно....незнаю.
[vba]
Код
Sub City() Dim i As Long, LastRow As Long, n As Long Dim a() As Long LastRow = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row 'Последняя ячейка в столбце В ReDim a(LastRow) For i = 1 To LastRow If Left(Sheets(1).Cells(i, 2), 5) = "ГОРОД" Then 'номер строки городов в массив a(n) = i n = n + 1 End If Next i ReDim Preserve a(n - 1) 'обрезаем лишние элементы массива End Sub
Если вы не в курсе - на "страницы для печати" Excel может разделить лист книги только перед печатью.
вы наверное в бронетанковых служите - то у вас прмеров нет то еще что то - я может для вас америку открою - не падайте в обморок - документ можно разделить на странице еще до отправки на печать - руками например или макросом...
sorcerer, дело не в принтере...- это я прощелкал когда писал примечание... - ВИНОВАТ...
Если вы не в курсе - на "страницы для печати" Excel может разделить лист книги только перед печатью.
вы наверное в бронетанковых служите - то у вас прмеров нет то еще что то - я может для вас америку открою - не падайте в обморок - документ можно разделить на странице еще до отправки на печать - руками например или макросом...
sorcerer, дело не в принтере...- это я прощелкал когда писал примечание... - ВИНОВАТ...luny
документ можно разделить на странице еще до отправки на печать - ... макросом...
Пруф? Код? Я-то как-раз служил не в бронетанковых. Связистом служил... Для тех, кто в бронетанковых - ваше понятия "страница", "поля", "размещение" - могут применяться только по отношнию в устройству вывода. Которое как раз неизвестно "коду общего назначения". А если устройство известно - будьте добры, покажите, как вы с ним общаетесь...
документ можно разделить на странице еще до отправки на печать - ... макросом...
Пруф? Код? Я-то как-раз служил не в бронетанковых. Связистом служил... Для тех, кто в бронетанковых - ваше понятия "страница", "поля", "размещение" - могут применяться только по отношнию в устройству вывода. Которое как раз неизвестно "коду общего назначения". А если устройство известно - будьте добры, покажите, как вы с ним общаетесь...AndreTM
Skype: andre.tm.007 Donate: Qiwi: 9517375010
Сообщение отредактировал AndreTM - Пятница, 14.11.2014, 21:31
AndreTM, а вы перед тем как это написать поиском пытались воспользоваться - даже на этом форуме полно тем на подобные вопросы - не позортесь ей богу
AndreTM, а вы перед тем как это написать поиском пытались воспользоваться - даже на этом форуме полно тем на подобные вопросы - не позортесь ей богуluny
sorcerer, пока ни чем не занимался - встречали комиссию на роботе ну - если вы прочитали обе темы и не поняли... - ну пусть еще одно объяснение вам поможет
документ разбит на страницы - надо скопировать содержание 1 страницы в ячейки начиная с В1 другого листа или книги.. ...........................................................................содержание 2 страницы в ячейки начиная с Е1 ...........................................................................содержание 3 страницы в ячейки начиная с В31 ...........................................................................содержание 4 страницы в ячейки начиная с Е31 И ТД вопрос вот еще в чем - как дать понять макросу что это именно 10 страница или еще какая - должно быть какое то обращение (я имею ввиду например как к ячейке, строке ипр.) - эксель то страницы размечает - если нет то надо двигаться диапазонами от границы страницы к границе - можно объединить процесс разбивки макросом на страницы и копирования это будет гораздо проще т.к. будет известен адресс первой и последней строки в каждой странице.. НО - злобный админ может дать по попе - 1 тема 1 вопрос
sorcerer, пока ни чем не занимался - встречали комиссию на роботе ну - если вы прочитали обе темы и не поняли... - ну пусть еще одно объяснение вам поможет
документ разбит на страницы - надо скопировать содержание 1 страницы в ячейки начиная с В1 другого листа или книги.. ...........................................................................содержание 2 страницы в ячейки начиная с Е1 ...........................................................................содержание 3 страницы в ячейки начиная с В31 ...........................................................................содержание 4 страницы в ячейки начиная с Е31 И ТД вопрос вот еще в чем - как дать понять макросу что это именно 10 страница или еще какая - должно быть какое то обращение (я имею ввиду например как к ячейке, строке ипр.) - эксель то страницы размечает - если нет то надо двигаться диапазонами от границы страницы к границе - можно объединить процесс разбивки макросом на страницы и копирования это будет гораздо проще т.к. будет известен адресс первой и последней строки в каждой странице.. НО - злобный админ может дать по попе - 1 тема 1 вопросluny
Сообщение отредактировал luny - Суббота, 15.11.2014, 10:22
мне кажеться что можно сделать счетчик копирований так сказать t - если t нечет то вставлять в ряд В строка N. если t четное то вставлять в ряд Е строка N - как вариант... - ну может вдруг у кого есть еще какие идеи...
мне кажеться что можно сделать счетчик копирований так сказать t - если t нечет то вставлять в ряд В строка N. если t четное то вставлять в ряд Е строка N - как вариант... - ну может вдруг у кого есть еще какие идеи...luny
обращение непосредственно к странице таки есть нашел не скажу где т.к. нельзя макрос для печати чет/нечет страниц [vba]
Код
Sub Print_Odd_Even() Dim Totalpages As Long Dim StartPage As Long Dim Page As Integer StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных ' Или используйте диалог для ввода 'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных") Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") For Page = StartPage To Totalpages Step 2 ActiveSheet.PrintOut from:=Page, To:=Page Next End Sub
[/vba]
Печатаются нечентные страницы Меняю в коде с 1 на 2 печатаются четные страницы
обращение непосредственно к странице таки есть нашел не скажу где т.к. нельзя макрос для печати чет/нечет страниц [vba]
Код
Sub Print_Odd_Even() Dim Totalpages As Long Dim StartPage As Long Dim Page As Integer StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных ' Или используйте диалог для ввода 'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных") Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") For Page = StartPage To Totalpages Step 2 ActiveSheet.PrintOut from:=Page, To:=Page Next End Sub
[/vba]
Печатаются нечентные страницы Меняю в коде с 1 на 2 печатаются четные страницыluny
Сообщение отредактировал Serge_007 - Четверг, 20.11.2014, 17:08
спасибо пану Pelena был создан макрос по разбивке документа на страницы по условию здесь там есть две переменные которые задают начало и конец станицы - можно плясать от них - но обращаться нопосредственно к самой странице как мне кажеться лучше..
спасибо пану Pelena был создан макрос по разбивке документа на страницы по условию здесь там есть две переменные которые задают начало и конец станицы - можно плясать от них - но обращаться нопосредственно к самой странице как мне кажеться лучше..luny
Sub ДляПечати() Dim Ks&, An&, Ak&, En&, Ek&, Ws&, A&, E&, i& Ks = Range("A" & Rows.Count).End(xlUp).Row 'к-во строк в базе An = 1 'начало строки в кол.А En = 1 'начало строки в кол.Е Ws = 30 'всего строк на страницу For i = 1 To Ks Ak = Ak + Ws For A = An To Ak If Cells(i, 1) = "" Then Sheets("Лист2").Cells(A, 3) = Cells(i, 2) Else Sheets("Лист2").Cells(A, 2) = Cells(i, 1) Sheets("Лист2").Cells(A, 3) = Cells(i, 2) End If i = i + 1 If Cells(i, 1) = "" Or A = Ak Then An = An + Ws Exit For End If Next Ek = Ek + Ws For E = En To Ek If Cells(i, 1) = "" Then Sheets("Лист2").Cells(E, 6) = Cells(i, 2) Else Sheets("Лист2").Cells(E, 5) = Cells(i, 1) Sheets("Лист2").Cells(E, 6) = Cells(i, 2) End If If Cells(i + 1, 1) = "" Or E = Ek Then En = En + Ws Exit For End If i = i + 1 Next Next Sheets("Лист2").Select End Sub
[/vba]
Набросал алгоритм по примеру 1-го поста:
[vba]
Код
Sub ДляПечати() Dim Ks&, An&, Ak&, En&, Ek&, Ws&, A&, E&, i& Ks = Range("A" & Rows.Count).End(xlUp).Row 'к-во строк в базе An = 1 'начало строки в кол.А En = 1 'начало строки в кол.Е Ws = 30 'всего строк на страницу For i = 1 To Ks Ak = Ak + Ws For A = An To Ak If Cells(i, 1) = "" Then Sheets("Лист2").Cells(A, 3) = Cells(i, 2) Else Sheets("Лист2").Cells(A, 2) = Cells(i, 1) Sheets("Лист2").Cells(A, 3) = Cells(i, 2) End If i = i + 1 If Cells(i, 1) = "" Or A = Ak Then An = An + Ws Exit For End If Next Ek = Ek + Ws For E = En To Ek If Cells(i, 1) = "" Then Sheets("Лист2").Cells(E, 6) = Cells(i, 2) Else Sheets("Лист2").Cells(E, 5) = Cells(i, 1) Sheets("Лист2").Cells(E, 6) = Cells(i, 2) End If If Cells(i + 1, 1) = "" Or E = Ek Then En = En + Ws Exit For End If i = i + 1 Next Next Sheets("Лист2").Select End Sub