Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пуст ли диапазон? / 11 сообщений из 11, страница 1 из 1
15.03.2005, 15:37:48
    #32961184
kms_
kms_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Доброго всем времени суток!

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

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

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2005, 17:44:31
    #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:54:17
    #32961661
AndreyK1970
AndreyK1970
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Можно попробовать примерно это -

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

проверка идет по сумме, если в диапазоне не числа - сработает ошибка, если числа - сумма будет больше нуля
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2005, 18:29:36
    #32961745
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Selection.Rows.Count * Selection.Columns.Count = WorksheetFunction.CountBlank(Selection)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2005, 19:19:57
    #32961844
kms_
kms_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Всем спасибо за помощь, воспользуюсь вариантов, который прислал big-duke, на мой взгляд дилетанта в написании макросов Excel, он кажется предпочтительнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 08:13:56
    #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, 09:00:09
    #32962192
LongS
LongS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
А вариант от marvan пожалуй лучше, если так переписать
Код: plaintext
1.
if Application.CountA(Selection)= 0  then ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 09:11:40
    #32962210
kms_
kms_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Доброе утро, LongS.

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

Однако, вам большое спасибо за внимание к моей проблеме!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 09:43:55
    #32962295
LongS
LongS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Доброе утро.
Тогда можно немного и его упростить
Код: plaintext
1.
Selection.Count = WorksheetFunction.CountBlank(Selection)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 10:01:34
    #32962350
kms_
kms_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
LongS, не знаю почему, но ваш последний вариант не срабатывает, если вам интересно, что я там вообще нагородил то есть тема "Помогите новичку!!!" там я привел весь код макроса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 11:07:38
    #32962612
LongS
LongS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пуст ли диапазон?
Да, с автофильтром код не рабоатет.
Еще все варианты не работают, если есть сктрытые строки, но это уже больше теоретический интерес.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пуст ли диапазон? / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2186173]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 187ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 192ms
total:  452ms
x
x
Закрыть


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