Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как группировать через столбик или строчку
 
#1
28.04.2015 11:51:27
Таблица разбита на поля план и факт. как сворачивать все планы или факты?
ПланФактПланФактПланФактПланФактПланФактПланФакт
 
 
 
#2
28.04.2015 12:03:05
можно макросом. если в заголовке "план" - то или скрываем, или наоборот.
F1 творит чудеса
 
 
 
#3
28.04.2015 12:16:04
оу! в заголовках недели!
 
 
 
#4
28.04.2015 12:42:00
макросом (чтобы скрыть План):
соответственно, чтобы скрыть Факт, заменяете в тексте макроса "План" на "Факт"
Код
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.04.2015 12:43:05
 
 
 
#5
28.04.2015 12:55:03
Код
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 указываем, что нужно скрыть.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#6
28.04.2015 13:14:30
Настройте "Представления" на вкладке "Вид" Но если макросы разрешены, то лучше макросом ☺
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
Страницы: 1
Наверх