Дата: Понедельник, 10.03.2014, 15:43 |
Сообщение № 1
Группа: Гости
Доброго времени суток! С макросами столкнулся совсем недавно, поэтому очень нужна помощь. На форумах ответа найти не смог. Задача такова: необходимо макросом скрыть определенные столбцы (в макросе прописано сначала зануление столбцов и затем их группировка. В целом все работает, однако проблема в том, что макрос типа Columns("B:C").Select Selection.Columns.Group группирует только на уровень вперед, т.е. если столбец уже был сгруппирован, то он группируется на уровень выше. Получается что все столбцы группируются на разный уровень. Как сделать так, чтобы группировка этих столбцов была на одном уровне? Надеюсь понятно объяснил
Доброго времени суток! С макросами столкнулся совсем недавно, поэтому очень нужна помощь. На форумах ответа найти не смог. Задача такова: необходимо макросом скрыть определенные столбцы (в макросе прописано сначала зануление столбцов и затем их группировка. В целом все работает, однако проблема в том, что макрос типа Columns("B:C").Select Selection.Columns.Group группирует только на уровень вперед, т.е. если столбец уже был сгруппирован, то он группируется на уровень выше. Получается что все столбцы группируются на разный уровень. Как сделать так, чтобы группировка этих столбцов была на одном уровне? Надеюсь понятно объяснил Начинающий
Дата: Понедельник, 10.03.2014, 16:08 |
Сообщение № 3
Группа: Гости
For fff = 10 To 170 hhh = Cells(1012, fff).Value If hhh = "у" Then Columns(fff).Select Selection.ClearContents Selection.Columns.Group End If Next fff вот отрывок макроса. Он зануляет и группирует столбцы по критерию "у". Но некоторые столбцы уже включены в группировку изначально, а некоторые не сгруппированные. Получается, что часть столбцов макросом группируются до первого уровня, а часть до второго.
For fff = 10 To 170 hhh = Cells(1012, fff).Value If hhh = "у" Then Columns(fff).Select Selection.ClearContents Selection.Columns.Group End If Next fff вот отрывок макроса. Он зануляет и группирует столбцы по критерию "у". Но некоторые столбцы уже включены в группировку изначально, а некоторые не сгруппированные. Получается, что часть столбцов макросом группируются до первого уровня, а часть до второго.Начинающий
Начинающий гость, регистрируйтесь и выкладывайте файл-пример (только не забудьте в правила заглянуть). Без вашего примера говорить не о чем - только гадать...
upd. возможно поможет такая "добавка": [vba]
Код
For fff = 10 To 170 hhh = Cells(1012, fff).Value If hhh = "у" Then Columns(fff).Select Selection.ClearContents On Error Resume Next Selection.Columns.Ungroup '"добавка" Selection.Columns.Group End If Next fff
[/vba]
Начинающий гость, регистрируйтесь и выкладывайте файл-пример (только не забудьте в правила заглянуть). Без вашего примера говорить не о чем - только гадать...
upd. возможно поможет такая "добавка": [vba]
Код
For fff = 10 To 170 hhh = Cells(1012, fff).Value If hhh = "у" Then Columns(fff).Select Selection.ClearContents On Error Resume Next Selection.Columns.Ungroup '"добавка" Selection.Columns.Group End If Next fff
Sub q() a = Columns(Selection.Address(0, 0)).OutlineLevel Selection.Columns.Group If Columns(Selection.Address(0, 0)).OutlineLevel > a Then Columns(Selection.Address(0, 0)).OutlineLevel = a End Sub
[/vba]
[vba]
Код
Sub q() a = Columns(Selection.Address(0, 0)).OutlineLevel Selection.Columns.Group If Columns(Selection.Address(0, 0)).OutlineLevel > a Then Columns(Selection.Address(0, 0)).OutlineLevel = a End Sub