определение пустого диапазона

[Bape}l{ka]

народ, подскажите пожалуйста, что неправильно

надо: если выделенный диапазон, т.е. каждая клетка этого диапазона пустая, то закрасить этот диапазон

вот код:

   
For RowC = FirstRow To MaxRow
               
        If IsEmpty(Selection.Range) Then                    'РУГАЕТСЯ ЗДЕСЬ
            Selection.Range.Interior.Color = 3
        End If
        
        Selection.Offset(rowOffset:=1, columnOffset:=0).Select   'сдвиг выделения на строку вниз
 
Next RowC

[kuklp]

Public Sub qq()
    Dim i&
    For i = 1 To 20
            Rows(i).Interior.ColorIndex = Abs((WorksheetFunction.CountA(Rows(i).Cells) = 0) * 3)
    Next
End Sub

[IgorGO]

If Selection.Address = Selection.SpecialCells(xlCellTypeBlanks).Address Then Selection.Interior.Color = 3

[Казанский]

> если выделенный диапазон, т.е. каждая клетка этого диапазона пустая, то закрасить этот диапазон

Попробуйте

if selection.text="" then selection.interior.colorindex=3

[IgorGO]

Казанский, попробовал...
если отмечено больше 1 ячейки:
Run-time error 94
Invalid use of Null
это только у меня так?

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

[Казанский]

Игорь,
у меня нет ошибки (2007)!
Попробуй

If Null = "" Then

Из справки по If

Condition: A numeric expression or string expression that evaluates to True or False. If condition is Null, condition is treated as False

Если в ячейках разный текст, св-во Text возвращает Null. Null при сравнении с чем угодно дает Null, который для If равносилен False, что нам и нужно.

[Bape}l{ka]

у меня 2003
спасибо большое всем, попробую..

IgorGO - возьму наверно ваше за основу, отключу другие ошибки)

Если в ячейках разный текст, св-во Text возвращает Null. Null при сравнении с чем угодно дает Null, который для If равносилен False, что нам и нужно.

это не поняла..

[Bape}l{ka]

в итоге сделала так:

'Определение пустых диапазонов (просто считаем кол-во ячеек в диапазоне, если все пустые, то красим)
Dim FirstCol as Integer, MaxCol as Integer, FirstRow as Integer, MaxRow as Long
Dim CellCount as Long  'кол-во ячеек
Dim ColmCount as Integer   'кол-во колонок в диапазоне
CellCount = 0
ColmCount = 0
ColmCount = Selection.Columns.Count

For Roww = FirstRow To MaxRow
    For Colm = FirstCol To MaxCol
    
        If IsEmpty(Cells(Roww, Colm)) Then CellCount = CellCount + 1
        If ColmCount = CellCount Then Range(Cells(Roww, FirstCol), Cells(Roww, MaxCol)).Interior.ColorIndex = 3
    
    Next Colm
    'MsgBox ColmCount & " и " & CellCount
    CellCount = 0
 
Next Roww