ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пуст ли диапазон?
11 сообщений из 11, страница 1 из 1
Пуст ли диапазон?
    #32961184
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
Доброго всем времени суток!

Есть выделенный диапазон ячеек, как определить пуст ли он, то есть пусты ли все ячейки выделенного диапазона?

Думал, что поможет
Код: plaintext
IsEmpty(Selection)
но оказалось нет!

Спасибо!
...
Рейтинг: 0 / 0
15.03.2005, 15:37
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32961637
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
типа этого:
Код: plaintext
1.
2.
3.
4.
'определяем число отобранных записей
    For i =  2  To  6 
        answer = Application.WorksheetFunction.CountA(Range(Cells( 3 , i), Cells( 7 , i)))
        If d < answer Then d = answer
    Next
...
Рейтинг: 0 / 0
15.03.2005, 17:44
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32961661
AndreyK1970
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyK1970
Гость
Можно попробовать примерно это -

=ЕСЛИ(ИЛИ(ЕОШИБКА(СУММ(B4:B8));СУММ(B4:B8)>0);1;0)

проверка идет по сумме, если в диапазоне не числа - сработает ошибка, если числа - сумма будет больше нуля
...
Рейтинг: 0 / 0
15.03.2005, 17:54
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32961745
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Selection.Rows.Count * Selection.Columns.Count = WorksheetFunction.CountBlank(Selection)
...
Рейтинг: 0 / 0
15.03.2005, 18:29
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32961844
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
Всем спасибо за помощь, воспользуюсь вариантов, который прислал big-duke, на мой взгляд дилетанта в написании макросов Excel, он кажется предпочтительнее.
...
Рейтинг: 0 / 0
15.03.2005, 19:19
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32962141
LongS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongS
Участник
Я бы сделал так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim c As Range

Set c = Selection.Find("*")
If c Is Nothing Then
MsgBox "Пусто"
Else
c.Select
End If

Вариант big-duke выдаёт ошибку если Selection не является прямоугольной областью выделения.
...
Рейтинг: 0 / 0
16.03.2005, 08:13
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32962192
LongS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongS
Участник
А вариант от marvan пожалуй лучше, если так переписать
Код: plaintext
1.
if Application.CountA(Selection)= 0  then ...
...
Рейтинг: 0 / 0
16.03.2005, 09:00
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32962210
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
Доброе утро, LongS.

Вариант от марван я пробовал еще до того, как задал вопрос, но он не сработал, почему-то он не выдает ноль, хотя я точно знаю, что диапазон пуст!
А вот ваш вариант еще попробую - для интереса, Что же касается варианта от Big-duke, то он подходит так как диапазон как раз и является прямоугольным и иным в моей задаче быть не может.

Однако, вам большое спасибо за внимание к моей проблеме!
...
Рейтинг: 0 / 0
16.03.2005, 09:11
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32962295
LongS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongS
Участник
Доброе утро.
Тогда можно немного и его упростить
Код: plaintext
1.
Selection.Count = WorksheetFunction.CountBlank(Selection)
...
Рейтинг: 0 / 0
16.03.2005, 09:43
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32962350
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
LongS, не знаю почему, но ваш последний вариант не срабатывает, если вам интересно, что я там вообще нагородил то есть тема "Помогите новичку!!!" там я привел весь код макроса.
...
Рейтинг: 0 / 0
16.03.2005, 10:01
| Ответить | Цитировать | Написать  
Пуст ли диапазон?
    #32962612
LongS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongS
Участник
Да, с автофильтром код не рабоатет.
Еще все варианты не работают, если есть сктрытые строки, но это уже больше теоретический интерес.
...
Рейтинг: 0 / 0
16.03.2005, 11:07
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пуст ли диапазон?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]