Условие проверки пустоты применительно одновременно к двум столбцам

@Blame · Регистрация: 24.12.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте!

Подскажите, пожалуйста, где ошибка в моем коде.
Необходимо записать условие на проверку пустоты столбцов A и D одновременно по всем строкам, начиная со 2-ой.

Visual Basic
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
If IsEmpty(Range("A2:A")) = True And IsEmpty(Range("D2:D")) = True Then
MsgBox "empty"
Else
MsgBox "not empty"
End If
End Sub

Ругаеся на Range("A2:A").
Изменила ради эксперимента на Range("A2:A100"), выдает, что столбец пуст, хотя в нем есть данные.
В чем я ошибаюсь?

________
Спасибо!

@sulfur · 04.06.2012, 09:58

вот так надо:

Visual Basic
1
2
3
4
5
6
7
8
9
Dim obFounded As Range
Set obFounded = Union([A:A], [D:D]).Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious)
If obFounded Is Nothing Then
    MsgBox "empty"
ElseIf obFounded.Row = 1 Then
    MsgBox "empty"
Else
    MsgBox "not empty"
End If

Добавлено через 2 минуты
а IsEmpty согласно справке проверяет инициализирована ли переменная. Range он проверять не умеет, видимо, но и ошибку не выдает =/

@ikki · 04.06.2012, 10:11

если функции IsEmpty подсунуть диапазон, то она проверяет только первую ячейку.

Dragokas · 04.06.2012, 22:25

Сообщение от Blame

одновременно по всем строкам

sulfur, не правильно работает, т.к. сначала находит значение заголовка D, а оно в строке № 1 (скрин).

Вот мой вариант:

Visual Basic
1
2
3
4
5
If [A1].End(xlDown).Row = Rows.Count And [D1].End(xlDown).Row = Rows.Count Then
    MsgBox "empty"
Else
    MsgBox "not empty"
End If

@sulfur · 05.06.2012, 01:23

спасибо, не знал про такую особенность

Кстати, в порядке теоретического замечания:

Visual Basic
1
2
3
4
5
6
Cells(Rows.Count, 1).Value = "12d"
If [A1].End(xlDown).Row = Rows.Count And [D1].End(xlDown).Row = Rows.Count Then
    MsgBox "empty"
Else
    MsgBox "not empty"
End If

тут твой код ошибется, сказав "empty" =)
Продолжаем искать красивое рабочее решение этой сложнейшей задачи?

Я завтра еще подумаю

@ikki · 05.06.2012, 01:40

Visual Basic
1
2
3
Function IsRngEmpty(r As Range) As Boolean
  IsRngEmpty = r.Find("*") Is Nothing
End Function

красиво?

Dragokas · 05.06.2012, 01:40

Я знаю, я просто считал, что до такого извращения (заполнение ВСЕЙ колонки или с конца) не дойдет. Ну тогда уж так:

Visual Basic
1
2
3
4
5
If [A1].End(xlDown).Row = Rows.Count And [D1].End(xlDown).Row = Rows.Count and Cells(Rows.Count, 1)=empty and Cells(Rows.Count, 4)=empty Then
    MsgBox "empty"
Else
    MsgBox "not empty"
End If

Сообщение от sulfur

Я завтра еще подумаю

Думай, не вмешиваюсь... =)

ikki_cf... опередил) , ну в общем-то прав: sulfur, тебе всего лишь нужно Union=ом объединять не всю колонку A и D, а начиная со 2-й ячейки.

@ikki · 05.06.2012, 01:48

Diskretor, sulfur, извините, что вмешался в ваш поединок

+

@sulfur · 05.06.2012, 01:56

ikki_cf, да какой поединок, мне до камрада Diskretor еще расти и расти =))))

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	04.06.2012, 10:11
	если функции IsEmpty подсунуть диапазон, то она проверяет только первую ячейку. 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	05.06.2012, 01:48
	Diskretor, sulfur, извините, что вмешался в ваш поединок + 0

@sulfur 200 / 98 / 2 Регистрация: 24.09.2011 Сообщений: 261
	05.06.2012, 01:56
	ikki_cf, да какой поединок, мне до камрада Diskretor еще расти и расти =)))) 1