Сообщений в теме: 4

[348tom]

Кто подскажет как автоматически(макрос или скрипт) скрывать колонки в таблице Excel только те которые имеют в определенной строке нулевые значения

[Jmd]

попробуй записать макрос. Главная трудность будет - критерии отбора колонок, чтобы Excel понял.
для определения ненужных колонок можно попробовать использовать "условное форматирование", а так - не сталкивался за ненадобностью, не могу сказать точнее.

[348tom]

Получается что каждый раз бывают разные колонки.
Выглядет это так: примерно 150 отображенных колонок; в определеные строки разных колонок заносятся данные(цифры) примерно 15-30 колонок, остальные пустые, но они могут находиться не попорядку, их необходимо скрыть и распечатать.
А есть еще таблица с кучей строк (порядка 500) и тоже заполняется только часть (10-15), а остальные необходимо срывать.

[Sandrik]

348tom (28.03.2006, 10:27) писал:

Получается что каждый раз бывают разные колонки.
Выглядет это так: примерно 150 отображенных колонок; в определеные строки разных колонок заносятся данные(цифры) примерно 15-30 колонок, остальные пустые, но они могут находиться не попорядку, их необходимо скрыть и распечатать.
А есть еще таблица с кучей строк (порядка 500) и тоже заполняется только часть (10-15), а остальные необходимо срывать.

Попробуй так:
Sub xxx()
Dim rinda As Integer
Dim no, lidz As Integer
Dim i As Integer

rinda = Worksheets("dati").Cells(2, 3).Value

If rinda <> 0 Then

no = Worksheets("dati").Cells(3, 3).Value
lidz = Worksheets("dati").Cells(3, 3).Value

If no <= lidz Then

For i = no To lidz
If (Cells(rinda, i).Value = "") Or (Cells(rinda, i) = 0) Then
Columns(i).Hidden = True
End If

Next i
End If

End If
MsgBox rinda

End Sub

Данные (в какой строке искать пустые и с какой по какую колонти скрывать) берутся из листа "Dati":
rinda - в какой строке искать пустые
no - с какой колонки скрывать
lidz - по какую колонку проверять

[348tom]

Sandrik
Спасибо за ответ.
Наконец-то получил что-то. Хотя у меня ничего не получается как это применить практически.
Может я Вам небольшую табличку сброшу на мыло а Вы укажите на ней конкретно что и как?
С уважением Том.