перенос объединенных ячеек

[ewe007]

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

[Дмитрий Щербаков(The_Prist)]

Здравствуйте.
Как понять? На какой край? Какой страницы? Что значит "не разбивалась, но попадали на следующую"? Или перенос не разбиение? Или разбиение тогда что? Вы прочитайте свое сообщение и скажите - понять можно?

В порядке интуиции: Правая кнопка мыши на ячейке-Формат ячеек-вкладка Выравнивание-галка на Переносить по словам

[ewe007]

Здравствуйте.
Как понять? На какой край? Какой страницы? Что значит "не разбивалась, но попадали на следующую"? Или перенос не разбиение? Или разбиение тогда что? Вы прочитайте свое сообщение и скажите - понять можно?

В порядке интуиции: Правая кнопка мыши на ячейке-Формат ячеек-вкладка Выравнивание-галка на Переносить по словам

когда представляешь книгу в виде "разметки страницы", т.е. как будет выводится на печать
не устраивает что иногда текст из объединенной  ячейки раскидывается на 2 страницы, чего не понятного?)

[Дмитрий Щербаков(The_Prist)]

Чего непонятного

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

чего не понятного?)

Ну раз так...Мне не очень хочется общаться с таким подходом с Вашей стороны. Где написано про режим страницы в первом сообщении? Раз Вам все так понятно из своего первого сообщения, то я буду считать, что я ответил на Ваш вопрос в своем сообщении. В нем тоже все понятно написано.

[ewe007]

Чего непонятного

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

чего не понятного?)

Ну раз так...Мне не очень хочется общаться с таким подходом с Вашей стороны. Где написано про режим страницы в первом сообщении? Раз Вам все так понятно из своего первого сообщения, то я буду считать, что я ответил на Ваш вопрос в своем сообщении. В нем тоже все понятно написано.

к чему флуд разводить - нет ответа так и скажите
конечно наверно гораздо полезнее и веселее выдернуть из общего контекста цитату и красиво обидеться)
а вообще если бы я написал лист, а не страница, тогда согласен - непонятно было бы
и если вы такой специалист в "качественном формулировании вопросов" было бы очень интересно увидеть вашу версию, чтоб потом ее в гугль засунуть и посмотреть что он на это скажет))

[Дмитрий Щербаков(The_Prist)]

Флуд? Еще раз перечитайте свое первое сообщение, уважаемый ewe007 и скажите: где Вы в нем указали, что проблема возникает "когда представляешь книгу в виде "разметки страницы""? Просто покажите, ткните носом, а потом уже говорите в мой адрес и про флуд, и про обидется и про "нет ответа так и скажите".
И да: я гораздо лучше и качественнее могу составить вопрос. Но к Вам это отношения не имеет. Если Вы не можете - это Ваши проблемы.

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

[ewe007]

Флуд? Еще раз перечитайте свое первое сообщение, уважаемый ewe007 и скажите: где Вы в нем указали, что проблема возникает "когда представляешь книгу в виде "разметки страницы""? Просто покажите, ткните носом, а потом уже говорите в мой адрес и про флуд, и про обидется и про "нет ответа так и скажите".
И да: я гораздо лучше и качественнее могу составить вопрос. Но к Вам это отношения не имеет. Если Вы не можете - это Ваши проблемы.

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

я как раз ничего и не выдергиваю, копирую в полном объеме, лень по другому
флуд это когда совсем не по теме, был вопрос - либо замечание по поводу формулировки (конкретное), либо ответ
а так, Вас любезный это не касается, бла-бла-бла, я бог экселя, но это уйдет в могилу со мной. и вообще я такое могу, но не буду ибо это не мой упрочение
вопрос не соответствует нормам-правилам. вежливо укажите на это подав положительный пример
а ввязываться в бесполезную дисскусию прикрываясь Вы и Вам с большой буквы админу не с лица
сорри, понял, что здесь в принципе квалифицированного ответа не получить
извиняюсь за дерзость, показалось, что тут смогут подсказать
ошибся
странный форум

[Юрий М]

ewe007, формулируйте правильно свой вопрос, и не будет таких коллизий. Ведь Вы действительно ни словом не обмолвились про режим "разметка страницы".

[Дмитрий Щербаков(The_Prist)]

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

Конечно ошиблись. Я Вас два раза попросил показать "Где написано про режим страницы в первом сообщении?". Где ответ на этот вопрос? У Вас его нет, т.к. Вы не можете указать этого. Т.к. нет этого в первом сообщении и соответственно Ваше "чего не понятного?" звучит совершенно необоснованно.

когда представляешь книгу в виде "разметки страницы", т.е. как будет выводится на печать
не устраивает что иногда текст из объединенной  ячейки раскидывается на 2 страницы, чего не понятного?)

Именно Ваше "чего не понятного?" сразу настраивает на негатив к Вам, т.к. про режим разметки Вы не указали в первом сообщении. Нигде. И Ваше "чего не понятного?" соответственно звучит как насмешка. Только непонятно над чем - над Вашим неумением вопрос задать? Если уж сами забыли указать - то почему надо делать дураков из других?
И я нигде не давал намека на то, что Бог Excel-я - я даже не давал намека на то, что знаю его лучше Вас. Все это Ваше надуманное и высосанное из пальца. Я лишь написал, что если Вы считате что все понятно, то я дал верный ответ, т.к. именно так понял, как Вы преподнесли.

И интересный у Вас подход:

был вопрос - либо замечание по поводу формулировки (конкретное), либо ответ

Т.е. сами Вы не считаете нужным задавать конкретный вопрос, зато от других на свои неконкретные вопросы требуете конкретных ответов. Замечание Вам нужно? Я Вам дал ответ, который единственный тогда в моем понимании подходил под описанную проблему и задал вопросы, надеясь получить более конкретное описание проблемы. В ответ получил насмешку. Не посчитал нужным пытаться решить проблему человеку, который не дав конкретных данных по проблеме заранее насмехается над теми, к кому обратился за помощью. Здесь Вам никто ничем не обязан.

P.S. Вас не удивляет то, что Вы еще не получили ответ на свой вопрос ни от одного из более чем 900 участников форума? Думаете проблема во всех них, а не в Вас? Если так - то советую задуматься серьезно, кто же из нас действительно считает себя Богом. Подуймате, действительно ли форум странный....

Искренне желаю Вам удачи на других форумах. Здесь я Вас обидел и явно больше не увижу.

[ewe007]

ewe007, формулируйте правильно свой вопрос, и не будет таких коллизий. Ведь Вы действительно ни словом не обмолвились про режим "разметка страницы".

извините, но страница - она и есть страница
будь это режим "разметка страницы" или страница в смысле одна сторона листа при печати, смысл вопроса от этого не поменяется
если есть еще какое-то значение слова страница, готов принести еще больше и больше извинений)

[Дмитрий Щербаков(The_Prist)]

Хорошо. Мне тоже без разницы листом назовете или страницей. Ключевое здесь - это вид листа. Если обычный вид, то ячейки никак не могут обрезаться или еще что-то, т.к. лист получается неделимым целым даже визуально. До самой последней ячейки листа. При установлении же вида "Разметка страницы" лист визуально разделяется на печатные страницы. И понять весь смысл Вашего вопроса никак нельзя без знания того, что все это у Вас именно в этом режиме.

По теме: надо определять сначала строку, на которую попадает разрыв страницы и уже потом определять - надо ли сместить строку или нет(точнее это будет скорее всего вставка новой строки на место разрыва). Это возможно только макросом. Если устроит вариант макросом - то можно подумать более детально.

[ewe007]

Хорошо. Мне тоже без разницы листом назовете или страницей. Ключевое здесь - это вид листа. Если обычный вид, то ячейки никак не могут обрезаться или еще что-то, т.к. лист получается неделимым целым даже визуально. До самой последней ячейки листа. При установлении же вида "Разметка страницы" лист визуально разделяется на печатные страницы. И понять весь смысл Вашего вопроса никак нельзя без знания того, что все это у Вас именно в этом режиме.

По теме: надо определять сначала строку, на которую попадает разрыв страницы и уже потом определять - надо ли сместить строку или нет(точнее это будет скорее всего вставка новой строки на место разрыва). Это возможно только макросом. Если устроит вариант макросом - то можно подумать более детально.

все же если рассуждать правильно, то страница это то, что выводится на печать на одной стороне листа  (бумажного)
"разметка страницы" всего лишь инструмент показывающий это, а не какое-то агрегатное состояние листа (экселевкого)

конкретная ситуация:
сметная программа экспортирует сметы-акты в эксель
при этом первые столбцы всегда состоят из простых ячеек, а далее могут встречаться сложные, соответственно когда они попадают на стык страниц получается "некрасиво"
то, что настройками это не решить и сам догадывался, но по идее это очень часто встречающаяся проблема, макросов для нее должно быть написанно-перенаписанно
при этом поиск по интернетам ничего не дал
и мой вопрос попробовать вам сформулировать данный вопрос так, чтоб можно было корректно загнать в поисковик иронией не являлся

[Дмитрий Щербаков(The_Prist)]

Вот честно, такое ощущение, что Вы даже не пытаетесь понять то, что я пишу: если нет разметки страницы - то нет разделения объединенной ячейки. Я даже понять не могу как может разделиться объединенная ячейка в обычном режиме. Я не говорил, что это состояние листа - я написал "лист визуально разделяется на печатные страницы". Вы хоть постарайтесь разницу уловить. Пощелкайте и поизменяйте режимы и посмотрите: увидите Вы разбиение объединенной ячейки в обычном режиме или нет А потом взляните на свой первый вопрос со стороны человека, не знающего в каком режиме у Вас лист Excel находится.
И я не говорил, что Вы найдете ответ в Интернете - довольно специфический вопрос. Думаю, Вы заблуждаетесь, считая, что подобных макросов море.
Надо видеть Ваш пример данных. Чтобы четко понимать, что и как делать. Писать на догадках код не вижу смысла. Приложите пример и будем думать.

P.S. Ваш "вопрос попробовать вам сформулировать данный вопрос так, чтоб можно было корректно загнать в поисковик" больше все же являлся именно иронией, судя по обращению:

и если вы такой специалист в "качественном формулировании вопросов" было бы очень интересно увидеть вашу версию, чтоб потом ее в гугль засунуть и посмотреть что он на это скажет))

И я не имел ввиду запрос в Google - я имел ввиду написание вопроса именно в теме данного форума. А Вы все по своему перевернули.[/color]

[ewe007]

Вот честно, такое ощущение, что Вы даже не пытаетесь понять то, что я пишу: если нет разметки страницы - то нет разделения объединенной ячейки. Я даже понять не могу как может разделиться объединенная ячейка в обычном режиме.

очень даже легко, экспортировал файл из программы открыл и на печать его, иногда с предварительным просмотром иногда нет)
в случаях когда для людей эксель средство вывода из сторонних программ  нормальная практика
уверен многие и не знают что есть разные режимы

если же говорить о конкретном примере, то это программа А0, довольно-таки распространенная на территории этой страны, поэтому полагал что не все тихо мучаются с этим
сам на ней не работаю, поэтому по проблеме могу судить только по файлам (экселевским) к-е мне скидывают
выглядит это безобразие примерно так
могу и сам файлик куда-нибудь

[Дмитрий Щербаков(The_Prist)]

Эх...Да я и сам знаю как выглядит то, о чем Вы говорите. Ладно, проехали. Все равно Вы не поймете, что я Вам тут сказать хочу.

Что касаемо самой проблемы: не так проста, как кажется. С разгону не подъедешь.
Но вот такой вариант предложить могу:

Код:

Sub Make_Pages_Breack()
    Dim rUsRng As Range, li As Long, lCnt As Long
    Set rUsRng = Range("A1", Cells.SpecialCells(11))
    For li = 1 To rUsRng.Rows.Count
        If rUsRng.Rows(li).PageBreak <> xlNone Then
            If rUsRng.Cells(li, 1).MergeCells Then
            lCnt = li - Cells(li, 1).MergeArea.Row
                If lCnt > 0 Then Rows(li - lCnt).Resize(lCnt).Insert: lCnt = 0
            End If
        End If
    Next li
End Sub

Подгонит разрывы так, чтобы объединенные ячейки не "разрывались". Сразу оговорюсь - проверяет объединенные ячейки только в первом столбце.

P.S. Забыл сказать - перед запуском макроса необходимо отобразить разбиение на страницы. Это можно сделать и макросом первой строкой - ActiveSheet.DisplayPageBreaks = True

[ewe007]

P.S. Забыл сказать - перед запуском макроса необходимо отобразить разбиение на страницы. Это можно сделать и макросом первой строкой - ActiveSheet.DisplayPageBreaks = True

спасибо
но почему-то если документ в обычном виде все происходит раза в 3 быстрее, чем в режиме "просмотра страницы"
даже скорее можно сказать, что в режиме просмотра это занимает неприлично много времени, уже думал что повис)

[Дмитрий Щербаков(The_Prist)]

Тут дело такое, что хотя бы удостоверьтесь потом, что правильно все перенеслось. А думать, да - будет дольше в этом режиме.

[Alex_ST]

Дмитрий,
решение интересное и, бывает, действительно нужное.
Ведь в Excel'e в отличие от Word'a нет настройки таблицы "не разбивать ячейку при переносе на другую страницу" (за точность названия не ручаюсь, но как-то так по смыслу).
Только вот почему необходимо ограничиваться одним столбцом? Может все ячейки строки в UsedRange имеет смысл просматривать?

[Дмитрий Щербаков(The_Prist)]

Алексей - я не претендовал на полностью отработанное решение. Я лишь показал принцип. Если будет время - добью до "универсального" этот код.

[YuriF]

Что касаемо самой проблемы: не так проста, как кажется. С разгону не подъедешь.
Но вот такой вариант предложить могу:

Код:

Sub Make_Pages_Breack()
    Dim rUsRng As Range, li As Long, lCnt As Long
    Set rUsRng = Range("A1", Cells.SpecialCells(11))
    For li = 1 To rUsRng.Rows.Count
        If rUsRng.Rows(li).PageBreak <> xlNone Then
            If rUsRng.Cells(li, 1).MergeCells Then
            lCnt = li - Cells(li, 1).MergeArea.Row
                If lCnt > 0 Then Rows(li - lCnt).Resize(lCnt).Insert: lCnt = 0
            End If
        End If
    Next li
End Sub

Подгонит разрывы так, чтобы объединенные ячейки не "разрывались". Сразу оговорюсь - проверяет объединенные ячейки только в первом столбце.

Димитрий,
первым делом, спасибо за код.
А можно его оптимизировать? Отключение и включение нижепреведенных апликаций не сильно ускоряет процесс.

Код:

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

[YuriF]

У меня с таким кодом работает быстрее

spoiler for Hiden:

Код: (vb)

Private Sub()
Dim sh As Worksheet
Dim NextPageBreakNumber As Long
Dim PageBreakFirstLine  As Object
Dim LineNumber As Long
Set sh = ThisWorkbook.ActiveSheet
ActiveWindow.View = xlPageBreakPreview
sh.ResetAllPageBreaks
NextPageBreakNumber = 1
While NextPageBreakNumber <= sh.HPageBreaks.Count
    Set PageBreakFirstLine = sh.HPageBreaks(NextPageBreakNumber).Location
    LineNumber = PageBreakFirstLine.Row
    If sh.Cells(LineNumber, 1).MergeCells = True Then
        Set sh.HPageBreaks(NextPageBreakNumber).Location = sh.Cells(sh.Cells(LineNumber, 1).MergeArea.Row, 1)
    End If
    NextPageBreakNumber = NextPageBreakNumber + 1
Wend
End Sub

[Alex_ST]

с таким кодом

Грамотно (кроме Private Sub(), конечно )!
В первый раз вижу работу с коллекцией HPageBreaks. Надо взять на заметку. Вдруг пригодится.
А по поводу кода, то для удобства пользователя хорошо бы сначала запоминать в дополнительной Integer-переменной текущий вид (их всего 2 возможно: xlNormalView := 1 и xlPageBreakPreview := 2), а после отработки макроса восстанавливать его.

[Дмитрий Щербаков(The_Prist)]

В первый раз вижу работу с коллекцией HPageBreaks

может потому, что она не всегда правильно перестраивается после назначения новых разрывов?

[Alex_ST]

она не всегда правильно перестраивается после назначения новых разрывов

Не знаю, не пробовал.
Т.е. даже метод sh.ResetAllPageBreaks не уверенно помогает?

[Дмитрий Щербаков(The_Prist)]

метод sh.ResetAllPageBreaks не уверенно помогает

он помогает. но ведь после него идет переопределение при помощи Location - вот тут могут начаться глюки. А могу и не начаться.

[Alex_ST]

А могу и не начаться.

Спасибо. Учтём если вдруг придётся использовать (и склероз не помешает)