Скрытие столбцов по условию - Microsoft Office Excel

snake980 · 08.02.2008, 16:21

Помогите в написании макроса. Нужно чтобы перед тем как напечатать документ на листе скрывались колонки если значение в ячейке равно 0.
В строке 1 со столбца В до столбца N находятся значения, так вот если значение =0 то столбец нужно скрыть -- помогите кто может плиз, а после печати сново открывать.

Insainer · 09.02.2008, 07:44

См. файл. Модуль 1 скрывает, модуль 2 раскрывает

SAS888 · 10.02.2008, 07:44

Предлагаю более простой вариант.
Просто выводите лист на печать (или предварительный просмотр). Нужные столбцы будут скрыты.
Чтобы вновь отобразить их, достаточно выбрать любую ячейку в строке 1.

snake980 · 11.02.2008, 11:44

Отлично - все работает! Спасибо!

slabazanin · 25.02.2008, 10:15

А как упрятать "нулевые" строки?
С уважением С.

SAS888 · 25.02.2008, 11:17

Следующий код скроет все пустые строки листа.

Код:

Dim i As Long
    For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
        If Rows(i).Text = "" Then Rows(i).Hidden = True
    Next

slabazanin · 26.02.2008, 16:52

Спасибо, SAS888!

08.02.2008, 16:21	#1
snake980 Новичок Джуниор Регистрация: 08.02.2008 Сообщений: 2	Скрытие столбцов по условию Помогите в написании макроса. Нужно чтобы перед тем как напечатать документ на листе скрывались колонки если значение в ячейке равно 0. В строке 1 со столбца В до столбца N находятся значения, так вот если значение =0 то столбец нужно скрыть -- помогите кто может плиз, а после печати сново открывать.

25.02.2008, 10:15	#5
slabazanin Новичок Джуниор Регистрация: 25.02.2008 Сообщений: 2	Сокрытие строк А как упрятать "нулевые" строки? С уважением С.

25.02.2008, 11:17	#6
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Следующий код скроет все пустые строки листа. Код: `Dim i As Long For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Rows(i).Text = "" Then Rows(i).Hidden = True Next` Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
объединение таблиц по условию	rexec	Microsoft Office Excel	2	25.05.2008 15:42
выделение листов по условию	Bronyk	Microsoft Office Excel	5	11.03.2008 19:40
? Помогите с переносом данных по условию	Ural-666	Microsoft Office Excel	3	29.11.2007 22:54
Скрытие ненужных строк/столбцов	Bayers	Microsoft Office Excel	4	19.10.2007 12:05
Удаление строк массива по условию	Lexakazanskij	Паскаль, Turbo Pascal, PascalABC.NET	9	12.09.2007 20:32

11.02.2008, 11:44	#4
snake980 Новичок Джуниор Регистрация: 08.02.2008 Сообщений: 2	Отлично - все работает! Спасибо!

26.02.2008, 16:52	#7
slabazanin Новичок Джуниор Регистрация: 25.02.2008 Сообщений: 2	Спасибо, SAS888!