Всем доброе время суток! Пытаюсь спрятать строчки которые содержат 0. Пытался сам,не чего не получаеться =(( . Приходиться руками скрывать перед печатью,потом опять раскрывать,вбить новый заказ и всё заново. Может формула есть?! На форуме находил то,что надо,тока с кнопкой.Пытался сделать,не получилось( Файл прилогаю ,надо в столбце где количество спрятать с 0.
Всем доброе время суток! Пытаюсь спрятать строчки которые содержат 0. Пытался сам,не чего не получаеться =(( . Приходиться руками скрывать перед печатью,потом опять раскрывать,вбить новый заказ и всё заново. Может формула есть?! На форуме находил то,что надо,тока с кнопкой.Пытался сделать,не получилось( Файл прилогаю ,надо в столбце где количество спрятать с 0.hicio
А как его заделать? Может раскажите,по подробнее? Очень нужно! Печатать много надо. С макросом не имел дела,даже не знаю что и куда вставлять и писать((( Их не надо удолять,а тока скрывать.
А как его заделать? Может раскажите,по подробнее? Очень нужно! Печатать много надо. С макросом не имел дела,даже не знаю что и куда вставлять и писать((( Их не надо удолять,а тока скрывать.hicio
Сообщение отредактировал hicio - Вторник, 15.11.2011, 00:06
Да печать надо 40-50 листов,раз в неделю. Но раз в месяц надо пропичатать (товар)листов 150-200,смотря сколько было заказов за месяц( И желательно,что бы автоматом работало. Заказ вбивается автоматом через формулы( в D1 ставлю номер наклодной и заказ сам прописывается ,распечатал потом следующий заказ. И так по кругу)
Да печать надо 40-50 листов,раз в неделю. Но раз в месяц надо пропичатать (товар)листов 150-200,смотря сколько было заказов за месяц( И желательно,что бы автоматом работало. Заказ вбивается автоматом через формулы( в D1 ставлю номер наклодной и заказ сам прописывается ,распечатал потом следующий заказ. И так по кругу)hicio
Чтобы макрос сработал, нужно какое-либо событие. автомат все равно должен от чего-то сработать, так ведь? В данном случае - нажатие кнопки. Возможные варианты: комбинация клавиш или кнопка в меню Excel.
Чтобы макрос сработал, нужно какое-либо событие. автомат все равно должен от чего-то сработать, так ведь? В данном случае - нажатие кнопки. Возможные варианты: комбинация клавиш или кнопка в меню Excel.VictorM
1. Если в Вашем рабочем файле вы создали кнопку - у нее уже будет другое имя и соответственно другой исходный код. 2. Код макроса находится непосредственно в коде рабочего листа. Следовательно его нужно тоже перенести в Вашу книгу. 3. В макросе присутствуют некоторые значения
Code
i = 21 'номер строки, с которой начнется обработка If Cells(i, 10).Value = 0 Then ' прячем или показываем строки с нулевым значением , 10 - номер столбца, в котором ищем нулевое значение
если в рабочем файле у вас не так - нужно изменить
1. Если в Вашем рабочем файле вы создали кнопку - у нее уже будет другое имя и соответственно другой исходный код. 2. Код макроса находится непосредственно в коде рабочего листа. Следовательно его нужно тоже перенести в Вашу книгу. 3. В макросе присутствуют некоторые значения
Code
i = 21 'номер строки, с которой начнется обработка If Cells(i, 10).Value = 0 Then ' прячем или показываем строки с нулевым значением , 10 - номер столбца, в котором ищем нулевое значение
если в рабочем файле у вас не так - нужно изменитьVictorM
Ну и можно сделать вот так еще. Помещаем этот код в модуле кода. Создаем на панели управления пару кнопок и присваиваем им эти 2 макроса. И радуемся)))
Code
Sub СкрытьНулевые() Application.ScreenUpdating = False ' отключаем обновление экрана во время выполнения макроса i = 21 'номер строки, с которой начнется обработка While Not IsEmpty(Cells(i, 10)) ' проверяем каждую строчку пока не встретимся с пустым значением т.е. концом списка If Cells(i, 10).Value = 0 Then ' прячем или показываем строки с нулевым значением Rows(i).Hidden = True ' зависимости от значения в ячейке столбца "Кол" Else ' и в зависимости от положения кнопки Rows(i).Hidden = False End If i = i + 1 Wend Application.ScreenUpdating = False ' включаем обновление экрана во время выполнения макроса End Sub Sub Отобразить() Cells.EntireRow.Hidden = False ' режим отображения всех строк в том числе и с нулем End Sub
Или можно присвоить комбинацию клавиш
Ну и можно сделать вот так еще. Помещаем этот код в модуле кода. Создаем на панели управления пару кнопок и присваиваем им эти 2 макроса. И радуемся)))
Code
Sub СкрытьНулевые() Application.ScreenUpdating = False ' отключаем обновление экрана во время выполнения макроса i = 21 'номер строки, с которой начнется обработка While Not IsEmpty(Cells(i, 10)) ' проверяем каждую строчку пока не встретимся с пустым значением т.е. концом списка If Cells(i, 10).Value = 0 Then ' прячем или показываем строки с нулевым значением Rows(i).Hidden = True ' зависимости от значения в ячейке столбца "Кол" Else ' и в зависимости от положения кнопки Rows(i).Hidden = False End If i = i + 1 Wend Application.ScreenUpdating = False ' включаем обновление экрана во время выполнения макроса End Sub Sub Отобразить() Cells.EntireRow.Hidden = False ' режим отображения всех строк в том числе и с нулем End Sub
Доброе время суток! Как не пытался но чет не получается у меня( Не вкуриваю ни как((( Вставляю в этот лист таблицу,который до этого рабочий был,и все не работает( Посмотрите,что я делаю не так.
Доброе время суток! Как не пытался но чет не получается у меня( Не вкуриваю ни как((( Вставляю в этот лист таблицу,который до этого рабочий был,и все не работает( Посмотрите,что я делаю не так.hicio
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
