Vba excel пустое значение в ячейке - Word и Excel - помощь в работе с программами

Via VBA how can I check if a cell is empty from another with specific information?

For example:

If A:A = «product special» And B:B is null Then

C1 = «product special»

Additionally, how can I use a For Each loop on theRange and how can I return the value in the other cell?

asked Nov 13, 2012 at 12:19

Regis SantosRegis Santos

3,3998 gold badges41 silver badges64 bronze badges

You could use IsEmpty() function like this:

...
Set rRng = Sheet1.Range("A10")
If IsEmpty(rRng.Value) Then ...

you could also use following:

If ActiveCell.Value = vbNullString Then ...

answered Nov 13, 2012 at 12:40

IsEmpty() would be the quickest way to check for that.

IsNull() would seem like a similar solution, but keep in mind Null has to be assigned to the cell; it’s not inherently created in the cell.

Also, you can check the cell by:

count()

counta()

Len(range("BCell").Value) = 0

answered Nov 13, 2012 at 12:52

DeafdanDeafdan

3932 silver badges13 bronze badges

This site uses the method isEmpty().

Edit: content grabbed from site, before the url will going to be invalid.

Worksheets("Sheet1").Range("A1").Sort _
    key1:=Worksheets("Sheet1").Range("A1")
Set currentCell = Worksheets("Sheet1").Range("A1")
Do While Not IsEmpty(currentCell)
    Set nextCell = currentCell.Offset(1, 0)
    If nextCell.Value = currentCell.Value Then
        currentCell.EntireRow.Delete
    End If
    Set currentCell = nextCell
Loop

In the first step the data in the first column from Sheet1 will be sort.
In the second step, all rows with same data will be removed.

answered Nov 13, 2012 at 12:23

ReporterReporter

3,8495 gold badges32 silver badges46 bronze badges

Источник

	Подскажите как при помощи VBA определить наличие пустой ячейки (не заполненной = «» в диапазоне (например А1:С300) или ячейки с значением = 0 ?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Нашли, дальше что? Перебрать диапазон/массив и при нахождении пустой/нулевой выйти из цикла с сообщением.

Антон

Пользователь

Сообщений: 617
Регистрация: 01.01.1970

28.01.2014 01:20:21

посредством перебора каждого значения массива и сравнением )

Код

'перебираем строки 
For i=1 to 300 
'перебираем столбцы 
For y=1 to 3 
If cells(i,y).Value="" then 
Msgbox("пустая ячейка") 
Exit for
End if 
If cells(i,y).Value=0 then 
Msgbox("нуль.")  
Exit for 
End if    
Next y   
Next i

Изменено: Антон — 28.01.2014 01:25:02

	Да, если такие ячейки имеются вывести сообщение и прекратить дальнейшее выполнение макроса, если таких ячеек нет продолжить выполнение макроса.

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

28.01.2014 01:28:51

Код

Sub Test()
Dim Rng As Range, rCell As Range
    Set Rng = Range("A1:C300")
    For Each rCell In Rng
        If IsEmpty(rCell) Or rCell = 0 Then
            MsgBox "Найдено в ячейке " & rCell.Address(0, 0), 64, "Для сведения"
            Exit For
        End If
    Next
End Sub

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

28.01.2014 02:01:36

Без цикла, но и без адресов:

Код

Sub Test2()
Dim Rng As Range
    Set Rng = Range("A1:C300")
    x = Application.WorksheetFunction.CountA(Rng)
    y = Application.WorksheetFunction.CountIf(Rng, 0)
    If Rng.Cells.Count <> x Then MsgBox "Есть пустые."
    If y > 0 Then MsgBox "Есть нули."
End Sub

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Я сам — дурнее всякого примера! …

Max.il

Пользователь

Сообщений: 64
Регистрация: 05.12.2018

Юрий М, Юрий, добрый вечер. Развивая тему, если нужно проверить несколько ячеек, к примеру А3, Т16 и Т22, если они пустые — залить эту ячейку красным цветом. Если в ней есть что-то , пропустить. Если во всех ячейках есть данные, то просто прекратить выполнение макроса без вывода сообщения.
Спасибо

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле

Max.il Пользователь Сообщений: 64 Регистрация: 05.12.2018	Юрий М,Нет, т.к. проверка должна осуществляться после макроса.

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

УФ сработает и после макроса. А макрос написать не смогу: нет у меня файла, где имеются перечисленные Вами ячейки ))
Вы бы уточнили: три ячейки — это только для примера? А по факту? И как макрос должен понять, какие именно ячейки проверять? Где-то есть список этих ячеек?

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

#13

27.05.2019 23:32:23

Нет ответа…

Код
Dim rCell As Range For Each rCell In Range("A3, T16, T22") If rCell = "" Then rCell.Interior.ColorIndex = 3 Else rCell.Interior.ColorIndex = xlNone End If Next

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#14

27.05.2019 23:39:10

Цитата
Max.il написал: к примеру

Код
Sub qq() Dim r As Range Set r = [a1:c3] On Error Resume Next r.SpecialCells(4).Interior.ColorIndex = 3 End Sub

Max.il Пользователь Сообщений: 64 Регистрация: 05.12.2018	RAN, Юрий М, Мужчины, спасибо, что помогаете . Искренняя благодарность.

Николай Китаев

Пользователь

Сообщений: 2
Регистрация: 01.01.1970

#16

17.12.2021 13:26:01

Цитата
написал: Подскажите как при помощи VBA определить наличие пустой ячейки

Такая конструкция не работает: If cells(i,y).Value=»» then….

А так — должно работать:
If IsEmpty(cells(i,y).Value) = True Then ……., где К — переменная содержащая или несодержащая значение, или переменная, содержащая адрес ячейки Cell, которую проверяем.

Изменено: Николай Китаев — 17.12.2021 14:07:17

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Николай Китаев, с момента создания темы прошло почти 8 лет, а ТС был последний раз почти 2 года назад — в курсе?

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

	Ничего страшного. Можно считать, что памятка для себя. Тем более проверка вида cells(i,y).Value=»» не работает.

БМВ

Модератор

Сообщений: 21378
Регистрация: 28.12.2016

Excel 2013, 2016

#19

17.12.2021 14:19:40

Цитата
Николай Китаев написал: Тем более проверка вида cells(i,y).Value=»» не работает.

докажите.

По вопросам из тем форума, личку не читаю.

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Если вас что-то не устраивает, то не нужно поднимать со дна старую тему, тем более, что спросить автора не получится — создайте свою и там всё подробно опишите и/или спросите

И тут гляньте:

VBA. UDF. Функция для проверки значения на строку нулевой длины «=»»»

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#21

17.12.2021 23:29:31

Цитата
Николай Китаев написал: If IsEmpty(cells(i,y).Value) = True Then ……., где К — переменная

И где К? )

Источник

Перейти к содержимому

Макрос проверки заполнения ячеек.

Периодически при создании различных макросов в VBA Excel возникает потребность в том, чтобы алгоритм макроса самостоятельно определял, пуста ли ячейка или заполнена данными.

Далее приведем несколько простых макросов для определения заполнения ячейки данными и разберем принцип их работы. Фрагменты этих макросов вы можете добывать в свой код для реализации проверки заполнения ячеек.

Рассмотрим несколько вариантов VBA алгоритмов:

Алгоритм для строго определенной ячейки с применением её адреса.

Пример для ячейки с адресом B6:

Private Sub CommandButton1_Click() ‘наименование алгоритма
If IsEmpty(Range(«B6»)) = True Then ‘условие, если ячейка пустая, то
MsgBox («В ячейке нет данных») ‘вывод сообщения, что в ячейке нет данных
Else ‘в противном случае
MsgBox («Данные внесены в ячейку») ‘вывод сообщения, что в ячейке есть данные
End If ‘конец блока «если»
End Sub ‘конец алгоритма

Алгоритм для выделенной (активной) ячейки :

Private Sub CommandButton1_Click() ‘наименование алгоритма
If IsEmpty(ActiveCell) = True Then ‘условие, если активная ячейка (ActiveCell) пустая, то
MsgBox («В ячейке нет данных») ‘вывод сообщения, что в ячейке нет данных
Else ‘в противном случае
MsgBox («Данные внесены в ячейку») ‘вывод сообщения, что в ячейке есть данные
End If ‘конец блока «если»
End Sub ‘конец алгоритма

Еще один способ определения в примере для активной ячейки, но можно использовать и для конкретной ячейки с адресом.

Private Sub CommandButton1_Click() ‘наименование алгоритма
If Len(ActiveCell) Then ‘если активная ячейка заполнена данными (имеет объем информации)
MsgBox («Данные внесены в ячейку») ‘вывод сообщения, что в ячейке есть данные
Else ‘в противном случае
MsgBox («Ячейка пустая») ‘вывод сообщения, что в ячейке нет данных
End If ‘конец блока «если»
End Sub ‘конец алгоритма

Источник

3 / 3 / 0

Регистрация: 20.07.2012

Сообщений: 27

24.07.2012, 12:50. Показов 39045. Ответов 12

Какое значение содержит поле value у пустой ячейки?

призрак

3261 / 889 / 119

Регистрация: 11.05.2012

Сообщений: 1,702

Записей в блоге: 2

24.07.2012, 13:00

empty

~~Апострофф~~

Заблокирован

24.07.2012, 13:01

Visual Basic

1 2	[A1].clear MsgBox TypeName([A1].Value)

Dragokas

17992 / 7618 / 890

Регистрация: 25.12.2011

Сообщений: 11,351

Записей в блоге: 17

24.07.2012, 13:20

vbNullString или «»

Visual Basic

[A1].clear
If [A1].Value = vbNullString Then MsgBox "ïóñòî"
If [A1].Value = "" Then MsgBox "ïóñòî"
If Len([A1]) = 0 Then MsgBox "ïóñòî"

ikki

призрак

3261 / 889 / 119

Регистрация: 11.05.2012

Сообщений: 1,702

Записей в блоге: 2

24.07.2012, 13:27

Dragokas, это ни о чем не говорит
на самом деле — там Empty
а вот сравнение Empty с «» или с 0 может дать True
проверить легко

Visual Basic

Sub f()
  [a1].Clear
  Stop
End Sub

доходим до stop и смотрим в Wathes значение для [a1].value

Dragokas

17992 / 7618 / 890

Регистрация: 25.12.2011

Сообщений: 11,351

Записей в блоге: 17

24.07.2012, 21:31

ikki, согласен.

Добавлено через 7 часов 18 минут
Все же не совсем вогласен.

Не уверен, что конечная цель для ТС может быть достигнута столь категоричным ответом.
Да, пустая ячейка содержит EMPTY, но само Empty не является однозначным признаком того, что она пуста, т.к. 0 (ноль) возвращает тоже самое.
Испробуйте:

Visual Basic

1
2
3

[A1].clear
[A1]=0
if [A1]=Empty then debug.print "Пустая?"

Поэтому для проверки пустоты пульзуюсь только любым из кодов, представленных в посте № 4.

Не по теме:

Сегодня, последовав совету, чуть не удалил людей из приемной комиссии :D, благо функцию сделал интерактивную.

~~Апострофф~~

Заблокирован

24.07.2012, 21:45

Сообщение было отмечено SatanaXIII как решение

Решение

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

Visual Basic

1	if [A1]=Empty then debug.print "Пустая?"

Это не доказательство пустоты клетки!
А вот это доказательство

Visual Basic

1	If IsEmpty([A1]) Then Debug.Print "Пустая!!!"

17992 / 7618 / 890

Регистрация: 25.12.2011

Сообщений: 11,351

Записей в блоге: 17

24.07.2012, 22:02

Вроде работает стабильно.

IsEmpty(expression)
The required expression argument is a Variant containing a numeric or string expression. However, because IsEmpty is used to determine if individual variables are initialized, the expression argument is most often a single variable name.
Remarks
IsEmpty returns True if the variable is uninitialized, or is explicitly set to Empty; otherwise, it returns False. False is always returned if expression contains more than one variable. IsEmpty only returns meaningful information for variants.

Получается пустые (или очищенные) ячейки считаются де-факто неициализированными.

~~Апострофф~~

Заблокирован

24.07.2012, 22:12

Есть ещё варианты, но не думаю, что они краше

Visual Basic

1 2	If VarType([A1].Value) = vbEmpty Then Debug.Print "Пустая!" If TypeName([A1].Value) = "Empty" Then Debug.Print "Пустая?"

1 / 1 / 0

Регистрация: 10.10.2016

Сообщений: 23

05.11.2016, 19:58

а подскажите плиз не пустой тогда ячейки? если Find то там ясно что «*» а например If там ячейка А1 содержит какой либо текст, как указать?
Заранее благодарен!

Dragokas

17992 / 7618 / 890

Регистрация: 25.12.2011

Сообщений: 11,351

Записей в блоге: 17

05.11.2016, 20:00

Visual Basic

1	if instr(1, [A1], "текст", vbtextcompare) <> 0 then

vbtextcompare — это если нужно сравнение без учёта регистра букв.

Казанский

15136 / 6410 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

05.11.2016, 20:12

sashaoren, проще всего было бы сказать

Visual Basic

1	If VarType([A1].Value) <> vbEmpty Then 'непустая

Но ячейка может содержать пустую строку. Для практических применений такая ячейка считается пустой, но ее Value имеет тип String. Чтобы при проверке такая ячейка считалась пустой, можно написать так:

Visual Basic

1
2
3

If Len([A1].Value) > 0 Then 'непустая
'или короче
If Len([A1].Value) Then 'непустая

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

06.11.2016, 12:29

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

например If там ячейка А1 содержит какой либо текст

— тоже возможны варианты для «среднего»пользователя. Т.к. ячейка может содержать одно, а пользователь может видеть «какой либо текст»…
Тогда корректнее проверять именно .text:

Visual Basic

1	if instr(1, [A1].text, "текст", vbtextcompare) <> 0 then

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.11.2016, 12:29

Помогаю со студенческими работами здесь

Проверить ячейки в столбце на какое-либо значение, не зная их количества
как проверить ячейки в столбце на какое либо значение, не зная какое количество ячеек заполнено в…

Как узнать какое значение ячейки массива больше, больше 2-x значений
Есть массив в нем все значения int есть ли какая функция что бы узнать какое значение больше и…

Получить значение ячейки, зная, что у другой ячейки в этой строке — максимальное значение
Да, может заголовок не очень, но я не знаю как лучше вкратце описать проблему.
В общем, у меня…

0 вместо пустой ячейки
День добрый!
Помогите, сделать так, что-бы когда я добавляю новую запись, пустые ячейки оставались…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Home / VBA / VBA Check IF a Cell is Empty + Multiple Cells

To check if a cell is empty you can use VBA’s ISEMPTY function. In this function, you need to use the range object to specify the cell that you want to check, and it returns true if that cell is empty, otherwise false. You can use a message box or use a cell to get the result.

Start with the function name “IsEmpty”.
Specify the cell that you want to check.
Use a message box or a cell to get the result value.
In the end, run the code.

MsgBox IsEmpty(Range("A1"))

Check IF Multiple Cells Empty

If you want to check and count the empty cells from a range when you need to loop through each cell in the range.

Sub vba_check_empty_cells()

Dim i As Long
Dim c As Long
Dim myRange As Range
Dim myCell As Range

Set myRange = Range("A1:A10")

For Each myCell In myRange
    c = c + 1   
    If IsEmpty(myCell) Then
        i = i + 1
    End If   
Next myCell   

MsgBox _
"There are total " & i & " empty cell(s) out of " & c & "."

End Sub

The above code loops through each cell in the range A1:A10 and check each cell one by one using the ISEMPTY function if it’s empty or not.

And for each empty cell it takes a count, and in the end, shows a message box with the total number of cells and empty cells out of that.

Use the following code if you want to highlight empty cells as well.

Dim i As Long
Dim c As Long
Dim myRange As Range
Dim myCell As Range

Set myRange = Range("A1:A10")

For Each myCell In myRange '
    c = c + 1
    If IsEmpty(myCell) Then
        myCell.Interior.Color = RGB(255, 87, 87)
        i = i + 1
    End If
Next myCell

MsgBox _
"There are total " & i & " empty cell(s) out of " & c & "."

Макрос проверки заполнения ячеек.

Алгоритм для строго определенной ячейки с применением её адреса.

Алгоритм для выделенной (активной) ячейки :

Еще один способ определения в примере для активной ячейки, но можно использовать и для конкретной ячейки с адресом.

Решение

Check IF Multiple Cells Empty

More Tutorials