Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как группировать через столбик или строчку
 
Таблица разбита на поля план и факт. как сворачивать все планы или факты?
ПланФактПланФактПланФактПланФактПланФактПланФакт
 
можно макросом. если в заголовке "план" - то или скрываем, или наоборот.
F1 творит чудеса
 
оу! в заголовках недели!
 
макросом (чтобы скрыть План):
соответственно, чтобы скрыть Факт, заменяете в тексте макроса "План" на "Факт"
Код
Sub HidePlan()
Application.ScreenUpdating = False    ' отключаем обновление экрана

Dim col As Range, nextcol As Range
ТекстДляПоиска = "План"    ' будем скрывать столбцы с таким текстом

' перебираем все столбцы на листе
For Each col In ActiveSheet.UsedRange.Columns
    ' если в столбце найден искомый текст
    If Not col.Find(ТекстДляПоиска, , xlFormulas, xlPart) Is Nothing Then
        ' добавляем столбец в диапазон для скрытия
        If nextcol Is Nothing Then Set nextcol = col Else Set nextcol = Union(nextcol, col)
    End If
Next
'если подходящие столбцы найдены - скрываем их
If Not nextcol Is Nothing Then nextcol.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub
Изменено: anyarceva - 28 Апр 2015 12:43:05
 
Код
Option Explicit

Sub PlanFakt()
Dim FirstCol As Range
Dim FoundCell As Range
Dim AllCols As Range

With Rows(2)
Set FirstCol = .Find(Cells(1, 1))
If FirstCol Is Nothing Then
MsgBox "Не найдено" 'Ячейки указанного формата не найдены"
Exit Sub
End If
Set AllCols = FirstCol
Set FoundCell = FirstCol
Do
Set FoundCell = .FindNext(after:=FoundCell)
Set AllCols = Union(FoundCell, AllCols)
  If FoundCell.Address = FirstCol.Address Then Exit Do
Loop
End With
AllCols.Select
Selection.EntireColumn.Hidden = True
End Sub
В ячейке А1 указываем, что нужно скрыть.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Настройте "Представления" на вкладке "Вид" Но если макросы разрешены, то лучше макросом ☺
Страницы: 1
Читают тему (гостей: 1)