Определить пустая или нет ячейка — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Вариант I, II, III
 
If IsEmpty(Range("A1")) = True Then
   MsgBox "Ячейка пустая"
Else
   MsgBox "Ячейка непустая"
End If
 
If VarType(Range("A1")) = vbEmpty Then
   MsgBox "Ячейка пустая"
Else
   MsgBox "Ячейка непустая"
End If
 
If TypeName(Range("A1").Value) = "Empty" Then
   MsgBox "Ячейка пустая"
Else
   MsgBox "Ячейка непустая"
End If
Совет: Если Вы хотите получить корректный результат проверки, то не используйте сравнение, типа = "" или = Empty, так как ячейка может содержать, например, формулу которая возвращает ""
Сравнение же с пустой строкой <> "" можно использовать, если Вам необходимо проверить содержит ли ячейка значение, отличное от ""

Похожие записи/страницы:

Leave a Comment