Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > скрыть столбцы имеющие сумму "0"


Автор: se7petrovich 12.3.2013, 14:54
В таблице необходимо сктыть столбцы имеющие "0" в итого. Что не пробовал не получается, либо скрывает все либо не работает. Итого "оборот 81 стока"

Автор: Akina 12.3.2013, 16:28
А таблица в ворде, надо понимать...

Автор: se7petrovich 12.3.2013, 16:56
Таблица в exele, в ней примерно 50 столбцов, необходимо что-бы скрывались столбцы с H по BS сумма в которых равна "0" . внизи таблицы в 81 строке есть сумма по каждому столбцу.

Автор: Akina 12.3.2013, 17:06
Ну так напиши макрос, который это делает...

Автор: se7petrovich 12.3.2013, 19:48
Если бы руки были "прямые" и хватало знаний, я бы не просил помощи. Сам перепробовал все что умел, но получается либо тупо скрывать столбцы от и до, а с суммой "0" ни как не хочет получаться.

Автор: Akina 12.3.2013, 20:17
Код

Dim i As Integer
For i = 8 To 50
  If Cells(81, i) = 0 Then Columns(i).EntireColumn.Hidden = True
Next

Автор: se7petrovich 14.3.2013, 12:20
В строке 2      For i = 8 To 50 пишет ошибка "invalid outside procedure" Может брость файл для которого нужен макрос? и будет проще сразу смотреть работает или нет.

Добавлено через 12 минут
Вот сам файл в для которого необходим данный макрос. 

Автор: Akina 14.3.2013, 17:45
Цитата(se7petrovich @  14.3.2013,  13:20 Найти цитируемый пост)
пишет ошибка "invalid outside procedure"

Переведи на русский и устрани проблему.

Автор: se7petrovich 15.3.2013, 09:34
На русский я перевел, но ошибку устранить не получается, туплю но результат "0" изменял параметр i от 1 до 2000 и от 0 до... и от 0 до 1, результат тот же. Я понимаю что это должно быть до ужаса просто. Скрыть столдцы от G до BS (к примеру для меня просто) скрыть пустые строки тоже, а с 0 столбцами какой-то хлам, уперся  и все ни туда ни сюда. ПОМОГИТЕ, ЧЕМ ПОЖЕТЕ!!!! SOS!!!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)