Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как скрыть строку, если в поределенной ячейке - пусто? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как скрыть строку, если в поределенной ячейке - пусто? (Формулы)
Как скрыть строку, если в поределенной ячейке - пусто?
Евгений833 Дата: Среда, 02.10.2013, 13:09 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Добрый день!

Помогите кто чем может - поиск по форуму не дал ответ на мой простой вопрос

Как скрыть строки в определенных ячеках которых нет данных (при нажатии на кнопку)

При нажатии на кнопку
если a1=0 то скрыть эту строку
если a2=0 то скрыть эту строку
если a3=0 то скрыть эту строку
если a4=0 то скрыть эту строку

как-то так :)

помогите пожалуйста)


Сообщение отредактировал Евгений833 - Среда, 02.10.2013, 13:12
 
Ответить
СообщениеДобрый день!

Помогите кто чем может - поиск по форуму не дал ответ на мой простой вопрос

Как скрыть строки в определенных ячеках которых нет данных (при нажатии на кнопку)

При нажатии на кнопку
если a1=0 то скрыть эту строку
если a2=0 то скрыть эту строку
если a3=0 то скрыть эту строку
если a4=0 то скрыть эту строку

как-то так :)

помогите пожалуйста)

Автор - Евгений833
Дата добавления - 02.10.2013 в 13:09
ABC Дата: Среда, 02.10.2013, 13:45 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 397
Репутация: 112 ±
Замечаний: 0% ±

Excel 2007
пусто или 0?
если пусто
[vba]
Код
Sub test()
      Dim i&
      For i = 1 To 100
          If Range("A" & i).Value = "" Then
              Rows(i).EntireRow.Hidden = True
              Else: Rows(i).EntireRow.Hidden = False'
          End If
      Next
End Sub
[/vba]


MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет


Сообщение отредактировал ABC - Среда, 02.10.2013, 13:47
 
Ответить
Сообщениепусто или 0?
если пусто
[vba]
Код
Sub test()
      Dim i&
      For i = 1 To 100
          If Range("A" & i).Value = "" Then
              Rows(i).EntireRow.Hidden = True
              Else: Rows(i).EntireRow.Hidden = False'
          End If
      Next
End Sub
[/vba]

Автор - ABC
Дата добавления - 02.10.2013 в 13:45
Евгений833 Дата: Среда, 02.10.2013, 15:06 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Красота! yes
Спасибо огромное, всё работает! yes


Сообщение отредактировал Евгений833 - Среда, 02.10.2013, 15:07
 
Ответить
СообщениеКрасота! yes
Спасибо огромное, всё работает! yes

Автор - Евгений833
Дата добавления - 02.10.2013 в 15:06
forirish Дата: Вторник, 15.04.2014, 16:23 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
как пытающийся разобраться новичок в VBA, полагаю что если надо скрыть ячейки со значением "0", то строка выглядит так: If Range("A" & i).Value = "0" Then. вопрос вот в чем - если листов несколько, и в каждом надо скрыть строки с нулями, значащие столбцы в которых не совпадают, т е в листе 1 напр. надо скрывать строки с нулями в столбце А, в листе 2 - в столбце С и т.д., видимо куда-то нужно привязать функцию с активной ячейкой, но не знаю куда. кроме того диапазон обработки не должен ограничиваться 100 строками, это опять же в каждом листе свое определенное кол-во записей для обработки. можно ли в этом случае сотворить что-то универсальное для всей книги целиком, например при нажатии пары клавиш. надеюсь понятно написала. заранее огромное спасибо за помощь.
 
Ответить
Сообщениекак пытающийся разобраться новичок в VBA, полагаю что если надо скрыть ячейки со значением "0", то строка выглядит так: If Range("A" & i).Value = "0" Then. вопрос вот в чем - если листов несколько, и в каждом надо скрыть строки с нулями, значащие столбцы в которых не совпадают, т е в листе 1 напр. надо скрывать строки с нулями в столбце А, в листе 2 - в столбце С и т.д., видимо куда-то нужно привязать функцию с активной ячейкой, но не знаю куда. кроме того диапазон обработки не должен ограничиваться 100 строками, это опять же в каждом листе свое определенное кол-во записей для обработки. можно ли в этом случае сотворить что-то универсальное для всей книги целиком, например при нажатии пары клавиш. надеюсь понятно написала. заранее огромное спасибо за помощь.

Автор - forirish
Дата добавления - 15.04.2014 в 16:23
temaram Дата: Четверг, 04.12.2014, 07:31 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
пусто или 0?
если пусто
Sub test()
Dim i&
For i = 1 To 100
If Range("A" & i).Value = "" Then
Rows(i).EntireRow.Hidden = True
Else: Rows(i).EntireRow.Hidden = False'
End If
Next
End Sub


все работает отлично! Спасибо!
У меня еще вопрос!
Нужно что программа просматривала 3 столбца и в строке и если они все пустые, то скрывала всю строку, а если хотя бы одна ячейка заполнена, то оставляла всю строчку. Подскажите пожалуйста как это можно сделать.
[moder]Создайте свою тему, приложите файл с примером в соответствии с Правилами форума. Эта тема закрыта[/moder]
 
Ответить
Сообщение
пусто или 0?
если пусто
Sub test()
Dim i&
For i = 1 To 100
If Range("A" & i).Value = "" Then
Rows(i).EntireRow.Hidden = True
Else: Rows(i).EntireRow.Hidden = False'
End If
Next
End Sub


все работает отлично! Спасибо!
У меня еще вопрос!
Нужно что программа просматривала 3 столбца и в строке и если они все пустые, то скрывала всю строку, а если хотя бы одна ячейка заполнена, то оставляла всю строчку. Подскажите пожалуйста как это можно сделать.
[moder]Создайте свою тему, приложите файл с примером в соответствии с Правилами форума. Эта тема закрыта[/moder]

Автор - temaram
Дата добавления - 04.12.2014 в 07:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как скрыть строку, если в поределенной ячейке - пусто? (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!