Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/разгруппировка всей области+ объединение ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » разгруппировка всей области+ объединение ячеек (Макросы/Sub)
разгруппировка всей области+ объединение ячеек
DisPashy Дата: Среда, 05.06.2019, 23:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Коллеги, добрый день.

Задача следующая: Есть файлы из 1С, которые нужно при помощи макроса быстро обрабатывать, а именно -

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

выдает следующий код:

[vba]
Код
ActiveSheet.Outline.ShowLevels RowLevels:=2
Cells.Select
Selection.Rows.Ungroup
Cells.Select
Range("V9").Activate
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
[/vba]
Последние 11 строк повторяет более 1000 раз, которые закрывается - [vba]
Код
End With
Selection.UnMerge
End Sub
[/vba]

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

И почему в моем макросе, который указал выше последние 11 строк повторяются более 1000 раз.

Спасибо, за понимание, я совсем новичок в этой области.


Сообщение отредактировал DisPashy - Четверг, 06.06.2019, 09:33
 
Ответить
СообщениеКоллеги, добрый день.

Задача следующая: Есть файлы из 1С, которые нужно при помощи макроса быстро обрабатывать, а именно -

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

выдает следующий код:

[vba]
Код
ActiveSheet.Outline.ShowLevels RowLevels:=2
Cells.Select
Selection.Rows.Ungroup
Cells.Select
Range("V9").Activate
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
[/vba]
Последние 11 строк повторяет более 1000 раз, которые закрывается - [vba]
Код
End With
Selection.UnMerge
End Sub
[/vba]

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

И почему в моем макросе, который указал выше последние 11 строк повторяются более 1000 раз.

Спасибо, за понимание, я совсем новичок в этой области.

Автор - DisPashy
Дата добавления - 05.06.2019 в 23:19
китин Дата: Четверг, 06.06.2019, 08:17 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5828
Репутация: 907 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
DisPashy, Оформите ваш пост в соответствии с п.3 Правил форума. пояснялка здесь


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеDisPashy, Оформите ваш пост в соответствии с п.3 Правил форума. пояснялка здесь

Автор - китин
Дата добавления - 06.06.2019 в 08:17
DisPashy Дата: Четверг, 06.06.2019, 09:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

китин, исправил! Спасибо
 
Ответить
Сообщениекитин, исправил! Спасибо

Автор - DisPashy
Дата добавления - 06.06.2019 в 09:34
китин Дата: Четверг, 06.06.2019, 10:39 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 5828
Репутация: 907 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
без файла и с куском кода только так( на коленке),
[vba]
Код
Sub GRUPP()
       lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
       lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
     With Range(Cells(1, 1), Cells(lLastRow, lLastCol))
      On Error Resume Next
            .UnMerge
            .Columns.Ungroup
            .Rows.Ungroup
    End With
End Sub
[/vba]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениебез файла и с куском кода только так( на коленке),
[vba]
Код
Sub GRUPP()
       lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
       lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
     With Range(Cells(1, 1), Cells(lLastRow, lLastCol))
      On Error Resume Next
            .UnMerge
            .Columns.Ungroup
            .Rows.Ungroup
    End With
End Sub
[/vba]

Автор - китин
Дата добавления - 06.06.2019 в 10:39
DisPashy Дата: Четверг, 06.06.2019, 15:34 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

спасибо!
 
Ответить
Сообщениеспасибо!

Автор - DisPashy
Дата добавления - 06.06.2019 в 15:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » разгруппировка всей области+ объединение ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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