копирование страниц на другой лист - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/копирование страниц на другой лист - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » копирование страниц на другой лист (Макросы/Sub)

копирование страниц на другой лист

Дата: Четверг, 13.11.2014, 12:19 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

для подготовки документа на печать нужно документ, разделенный на страницы скопировать в определенном порядке на другой лист - подобную тему создал здесь - но однозначного ответа пока нет..
в приере 1 лист это документ исходник - 2 лист результат

К сообщению приложен файл: 8566482-1-.xls (21.0 Kb)

Ответить

Дата: Четверг, 13.11.2014, 21:41 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

luny, сказано же: Excel - это не программа для вёрстки текста.
Причём здесь ваш "результат"?
Вы свой "результат" можете руками нарисовать в любой другой программе (ибо желаете точного вида - а это обеспечивает только снимок)? Кстати, понятие "нарисовать" не означает, что вы действительно должны рисовать собственными руками на бумажном листе, а затем выкладывать "снимок" ~~этого непотр~~... извиняюсь. Хотя бы изобразите фото/скрин имеющегося у вас готового красивого вида.
А затем подумайте - "а точно ли этот именно вид был РАСПЕЧАТАН прямо из Excel?"

И затем пойдите туда и ещё раз правильно сформулируйте вашу проблему.

Хотя, если уж быть точным, - ваша "проблемка" здесь вряд ли будет решена. Потому вы желаете иметь конечный "визуальный" результат. Что к Excel не имеет отношения вообще.

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Дата: Пятница, 14.11.2014, 00:05 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

AndreTM,

Цитата luny, 13.11.2014 в 12:19, в сообщении № 1

в приере 1 лист это документ исходник - 2 лист результат

вы там ничего не поняли и тут не внимательно читаете... - если вам не интересно не мешайте...- а то дойдет до того что начнете говорить ну зачем использовать комп есть же калькулятор и деление столбиком... - Я ХОЧУ РЕШИТЬ ВОПРОС ИМЕННО ТАК - НЕ МОЖЕТЕ ПОМОЧЬ - ПРОХОДИТЕ МИМО!

Ответить

Дата: Пятница, 14.11.2014, 00:42 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

luny, я, конечно, хотел промолчать... НО

Цитата luny, 13.11.2014 в 12:19, в сообщении № 1

нужно документ, разделенный на страницы скопировать в определенном порядке на другой лист

Какие страницы?
Если вы не в курсе - на "страницы для печати" Excel может разделить лист книги только перед печатью. На ваш принтер. У нас ваших принтеров нет. Делайте выводы.
Да, конечно, можно заранее заложиться на определённые ограничения. Например, на "этикетку 20*80мм", что явно влезет при тесте в любой софтовый драйвер принтера на лист A4. Но никак не в вашу тему...
Вы до сих пор не желаете понять - любой отвечающий здесь сразу же помог бы вам перераспределить любые данные каким угодно вам методом. Но вы же упорно не желаете понять, что даже ваши примеры у нас выглядят не так, как у вас. Ибо у нас НЕТУ ВАШИХ ПРИНТЕРОВ, ~~итить~~ ~~Абанамат, Алексей~~ Не, итить лучше. Ибо включает в себя не только не только направление, но и прямую сексуальность

(и без нарушения Правил, меж прочим...)

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Пятница, 14.11.2014, 00:54

Ответить

Дата: Пятница, 14.11.2014, 01:08 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 6 ±

Замечаний: 0% ±

Excel 2010

Цитата AndreTM, 14.11.2014 в 00:42, в сообщении № 4

Но вы же упорно не желаете понять, что даже ваши примеры у нас выглядят не так, как у вас.

Я думаю что не хватает (хотя тут всё и так прозрачно) визуального примера...

Цитата luny, 14.11.2014 в 00:05, в сообщении № 3

Я ХОЧУ РЕШИТЬ ВОПРОС ИМЕННО ТАК

А вот один из моих принтеров несогласен с вашим разделением по страницам (Canon MG 2400 Series)

Ответить

Дата: Пятница, 14.11.2014, 01:55 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 6 ±

Замечаний: 0% ±

Excel 2010

[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

[/vba]

А вот дальше что вам нуно....незнаю.

Ответить

Дата: Пятница, 14.11.2014, 19:31 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

AndreTM,

Цитата AndreTM, 14.11.2014 в 00:42, в сообщении № 4

Если вы не в курсе - на "страницы для печати" Excel может разделить лист книги только перед печатью.

вы наверное в бронетанковых служите - то у вас прмеров нет то еще что то - я может для вас америку открою - не падайте в обморок - документ можно разделить на странице еще до отправки на печать - руками например или макросом...

sorcerer, дело не в принтере...- это я прощелкал когда писал примечание... - ВИНОВАТ...

Ответить

Дата: Пятница, 14.11.2014, 21:26 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Цитата luny, 14.11.2014 в 19:31, в сообщении № 7

документ можно разделить на странице еще до отправки на печать - ... макросом...

Пруф? Код?
Я-то как-раз служил не в бронетанковых. Связистом служил...
Для тех, кто в бронетанковых - ваше понятия "страница", "поля", "размещение" - могут применяться только по отношнию в устройству вывода. Которое как раз неизвестно "коду общего назначения". А если устройство известно - будьте добры, покажите, как вы с ним общаетесь...

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Пятница, 14.11.2014, 21:31

Ответить

Дата: Пятница, 14.11.2014, 21:54 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Андрей, ну что ты человеку уже во второй теме объясняешь одно и то же?

Цитата luny, 14.11.2014 в 00:05, в сообщении № 3

Я ХОЧУ РЕШИТЬ ВОПРОС ИМЕННО ТАК

Если нельзя, но очень хочется, пусть делает.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 14.11.2014, 22:35 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

AndreTM, а вы перед тем как это написать поиском пытались воспользоваться - даже на этом форуме полно тем на подобные вопросы - не позортесь ей богу

Ответить

Дата: Пятница, 14.11.2014, 23:43 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 6 ±

Замечаний: 0% ±

Excel 2010

Ребят не превращайте тему в поле боя! Модеров на вас нет

luny есть успехи? (самому стало интересно как вы это реализуете)
Сам полностью ваш вопрос не понял

Ответить

Дата: Суббота, 15.11.2014, 07:25 | Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

sorcerer, пока ни чем не занимался - встречали комиссию на роботе
ну - если вы прочитали обе темы и не поняли... - ну пусть еще одно объяснение вам поможет

документ разбит на страницы - надо скопировать содержание 1 страницы в ячейки начиная с В1 другого листа или книги..
...........................................................................содержание 2 страницы в ячейки начиная с Е1
...........................................................................содержание 3 страницы в ячейки начиная с В31
...........................................................................содержание 4 страницы в ячейки начиная с Е31
И ТД
вопрос вот еще в чем - как дать понять макросу что это именно 10 страница или еще какая - должно быть какое то обращение (я имею ввиду например как к ячейке, строке ипр.) - эксель то страницы размечает - если нет то надо двигаться диапазонами от границы страницы к границе - можно объединить процесс разбивки макросом на страницы и копирования это будет гораздо проще т.к. будет известен адресс первой и последней строки в каждой странице.. НО - злобный админ может дать по попе - 1 тема 1 вопрос

Сообщение отредактировал luny - Суббота, 15.11.2014, 10:22

Ответить

Дата: Понедельник, 17.11.2014, 19:06 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

как правильно указать перебор номеров ячеек для копирования В1,Е1,В31,Е31.....

Ответить

Дата: Вторник, 18.11.2014, 10:30 | Сообщение № 14

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

мне кажеться что можно сделать счетчик копирований так сказать t - если t нечет то вставлять в ряд В строка N. если t четное то вставлять в ряд Е строка N - как вариант...
- ну может вдруг у кого есть еще какие идеи...

Ответить

Дата: Четверг, 20.11.2014, 17:07 | Сообщение № 15

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

обращение непосредственно к странице таки есть
нашел не скажу где т.к. нельзя
макрос для печати чет/нечет страниц
[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 печатаются четные страницы

Сообщение отредактировал Serge_007 - Четверг, 20.11.2014, 17:08

Ответить

Дата: Четверг, 20.11.2014, 17:11 | Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата luny, 20.11.2014 в 17:07, в сообщении № 15

нашел не скажу где т.к. нельзя

Почему нельзя?
Чужой код взломан?

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Четверг, 20.11.2014, 17:16 | Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

RAN, пункт 5к

Ответить

Дата: Четверг, 20.11.2014, 17:19 | Сообщение № 18

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

спасибо пану Pelena был создан макрос по разбивке документа на страницы по условию здесь
там есть две переменные которые задают начало и конец станицы - можно плясать от них - но обращаться нопосредственно к самой странице как мне кажеться лучше..

Ответить

Дата: Четверг, 20.11.2014, 17:22 | Сообщение № 19

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата

k - выкладывать ссылки на другие ресурсы, если они напрямую не связаны с обсуждаемой проблемой и не содержат её решения

связано? да
решение содержит? да
в чем нарушение?

PS может там и еще что ценное есть?

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 20.11.2014, 17:24

Ответить

Дата: Четверг, 20.11.2014, 23:49 | Сообщение № 20

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Набросал алгоритм по примеру 1-го поста:

Сообщение отредактировал Wasilic - Четверг, 20.11.2014, 23:54

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » копирование страниц на другой лист (Макросы/Sub)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!