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

Вход

Регистрация

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

 

= Мир MS Excel/Как можно скрыть пустую строку? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как можно скрыть пустую строку? (Макросы/Sub)
Как можно скрыть пустую строку?
Helazerd Дата: Суббота, 02.03.2019, 17:16 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
[vba]
Код
Добрый день.
Дана таблица с данными. Как можно реализовать определение пустой строки и скрытие? Проверка идёт от ячейки A1,A2,A3,A4 и B1,B2 и даны ещё заполненные ячейки. Если значения в этих столбцах(A1,A2,A3,A4 и B1,B2) пустые, то скрыть строку.

Проверка ячеек
[vba][code]Sub excample()
If IsEmpty(Range("A1,A2,A3,A4,B1,B2")) = True Then
MsgBox "Ячейки пустые"
Else
MsgBox "Ячейка не пустые"
End If
End Sub
[/vba]
Как можно скрыть пустую строку? Не полностью.[vba]
Код
[/code][/vba]
[/vba]


Сообщение отредактировал Helazerd - Суббота, 02.03.2019, 20:04
 
Ответить
Сообщение[vba]
Код
Добрый день.
Дана таблица с данными. Как можно реализовать определение пустой строки и скрытие? Проверка идёт от ячейки A1,A2,A3,A4 и B1,B2 и даны ещё заполненные ячейки. Если значения в этих столбцах(A1,A2,A3,A4 и B1,B2) пустые, то скрыть строку.

Проверка ячеек
[vba][code]Sub excample()
If IsEmpty(Range("A1,A2,A3,A4,B1,B2")) = True Then
MsgBox "Ячейки пустые"
Else
MsgBox "Ячейка не пустые"
End If
End Sub
[/vba]
Как можно скрыть пустую строку? Не полностью.[vba]
Код
[/code][/vba]
[/vba]

Автор - Helazerd
Дата добавления - 02.03.2019 в 17:16
RAN Дата: Суббота, 02.03.2019, 17:23 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
скрыть пустую строку? Не полностью.

А как вы себе это представляете?


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
скрыть пустую строку? Не полностью.

А как вы себе это представляете?

Автор - RAN
Дата добавления - 02.03.2019 в 17:23
parovoznik Дата: Суббота, 02.03.2019, 18:09 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
 
Ответить
СообщениеКросс
http://www.cyberforum.ru/vba/thread2412048.html

Автор - parovoznik
Дата добавления - 02.03.2019 в 18:09
Nic70y Дата: Суббота, 02.03.2019, 18:16 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
А как вы себе это представляете?
Андрей, ну взрослый человек,
а такие глупые вопросы задаешь.
Часть строки скрыть, а часть показать.
Тут главный вопрос в какой пропорции.


ЮMoney 41001841029809
 
Ответить
Сообщение
А как вы себе это представляете?
Андрей, ну взрослый человек,
а такие глупые вопросы задаешь.
Часть строки скрыть, а часть показать.
Тут главный вопрос в какой пропорции.

Автор - Nic70y
Дата добавления - 02.03.2019 в 18:16
Pelena Дата: Суббота, 02.03.2019, 19:05 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Файл с примером помог бы в понимании проблемы.
А то не совсем понятно, все указанные ячейки должны быть пустыми одновременно или каждую отдельно проверять?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФайл с примером помог бы в понимании проблемы.
А то не совсем понятно, все указанные ячейки должны быть пустыми одновременно или каждую отдельно проверять?

Автор - Pelena
Дата добавления - 02.03.2019 в 19:05
Helazerd Дата: Суббота, 02.03.2019, 19:24 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
[vba]
Код
[vba][code]Нужно сделать проверку на то, есть ли данные в ячейке A1:A4,B1:B2 и если нету, то скрыть несколько ячеек, например A,B5; A,B6; A,B7; A,B8; A,B9; A,B10; A,B11.
Проверка
If Application.CountA(Range("A1:A4,B1:B2")) = 0 Then
MsgBox "Ячейки пустые"
Else
MsgBox "Ячейки не пустые"
End If
[/vba][/code][/vba]
К сообщению приложен файл: 3__.xlsx (10.0 Kb)


Сообщение отредактировал Helazerd - Суббота, 02.03.2019, 20:04
 
Ответить
Сообщение[vba]
Код
[vba][code]Нужно сделать проверку на то, есть ли данные в ячейке A1:A4,B1:B2 и если нету, то скрыть несколько ячеек, например A,B5; A,B6; A,B7; A,B8; A,B9; A,B10; A,B11.
Проверка
If Application.CountA(Range("A1:A4,B1:B2")) = 0 Then
MsgBox "Ячейки пустые"
Else
MsgBox "Ячейки не пустые"
End If
[/vba][/code][/vba]

Автор - Helazerd
Дата добавления - 02.03.2019 в 19:24
Pelena Дата: Суббота, 02.03.2019, 19:45 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Helazerd, оформите код тегами. Для этого в режиме правки поста выделите код и нажмите кнопку #


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеHelazerd, оформите код тегами. Для этого в режиме правки поста выделите код и нажмите кнопку #

Автор - Pelena
Дата добавления - 02.03.2019 в 19:45
Pelena Дата: Суббота, 02.03.2019, 20:40 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Опять-таки не совсем понятно строки скрывать с 5 по 11 или все заполненные. Сделала для всех
К сообщению приложен файл: 3_.xlsm (18.7 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеОпять-таки не совсем понятно строки скрывать с 5 по 11 или все заполненные. Сделала для всех

Автор - Pelena
Дата добавления - 02.03.2019 в 20:40
Helazerd Дата: Суббота, 02.03.2019, 20:45 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Опять-таки не совсем понятно строки скрывать с 5 по 11 или все заполненные. Сделала для всех

Спасибо.
 
Ответить
Сообщение
Опять-таки не совсем понятно строки скрывать с 5 по 11 или все заполненные. Сделала для всех

Спасибо.

Автор - Helazerd
Дата добавления - 02.03.2019 в 20:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как можно скрыть пустую строку? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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