как скрыть столбец?

[gemach]

Как в Exele скрыть столбцы, в которых кроме цифры находятся ячейки с цифрой 0?
Например:
столбец №1 столбец №2 столбец №3
"Имя столбца" "Имя столбца" "Имя столбца"
аргумент1 3 0 27
аргумент2 153 0 0
аргумент3 0 0 1

в данном примере нужно скрыть только столбец №2.
Пожалуйста помогите!

[rok]

А в столбцах число ипи текст? И как я понял скрыть если 0, а если 00 то не скрывать-так?

[gemach]

Текст в столбце только в заголовке столбца, остальные строки столбца цифры в числовом формате.Поэтому если в столбце во всех строках нули, не считая заголовка, то столбец необходимо скрыть.Если хотя бы в одной строке столбца есть число не равное нулю, столбец скрывать не нужно.
Мой ISQ:218-648-168

[Чудовище под кроватью]

Код: Выделить всё

Sub Hide_Col()
Dim ColCounter As Long, RowCounter As Long, _
ColumnsCount As Long, RowsCount As Long
Application.ScreenUpdating =False

With ActiveSheet
ColumnsCount = UsedRange.Columns.Count
RowsCount = UsedRange.Rows.Count
End With

For ColCounter = 2 To ColumnsCount
For RowCounter = 2 To RowsCount
  If Cells(RowCounter,ColCounter) <> 0 then
   exit for
  Elseif RowCounter = RowsCount then
   Columns(ColCounter).Hidden = True
  end if
Next
Next
Application.ScreenUpdating = True
End Sub

Вроде так - берем столбец, пробегаем по его строкам. Если не нашли ничего, отличного от нуля, прячем столбец. Если нашли, оставляем столбец в покое и переходим к следующему.

[Tanya]

Код: Выделить всё

Sub Hide_Col()
Dim i As Long, RowsCount As Long
Application.ScreenUpdating = False
With ActiveSheet
  RowsCount = .UsedRange.Rows.Count
  For i = 2 To .UsedRange.Columns.Count
    .Columns(i).Hidden = _
      (WorksheetFunction.Sum(.Range(.Cells(2, i), .Cells(RowsCount, i))) = 0)
  Next
End With
Application.ScreenUpdating = True
End Sub

[Чудовище под кроватью]

Код: Выделить всё

Sub Hide_Col()
Dim i As Long, RowsCount As Long
Application.ScreenUpdating = False
With ActiveSheet
  RowsCount = .UsedRange.Rows.Count
  For i = 2 To .UsedRange.Columns.Count
    .Columns(i).Hidden = _
      (WorksheetFunction.Sum(.Range(.Cells(2, i), .Cells(RowsCount, i))) = 0)
  Next
End With
Application.ScreenUpdating = True
End Sub

Если я правильно понял, имеем:
1) Для каждого столбца вместо N операций сравнения (N - количество строк) - N операций сложения и одну операцию сравнения.
2) Неверный результат, если в таблице будут отрицательные числа.
3) Явное указание на активный лист, хотя он и так берется по умолчанию.
Я не прав?

З.Ы.: хотя, конечно, использование листа быстрее. Если нет отрицательных чисел, этот способ быстрее при большом количестве ячеек.

[gemach]

чего-то у меня ничего не получается, можно отправить пример c Exeleм на почту. gemach@mail.ru?

[Чудовище под кроватью]

отправил

[gemach]

Это я тут стормозил. Всёё работает. Спасибо!

[gemach]

'выбираем данные
Private Sub ComboBox1_GotFocus()
ComboBox1.List = Worksheets(3).Range("i2:i300").Value
End Sub

'указываем куда подставлять выбранные данные
Private Sub ComboBox1_LostFocus()
Worksheets("Меню").Range("a4") = ComboBox1
End Sub

А как второй макрос заставить подсталять всю строку, выбранную в первом макросе по первому столбцу?