[求助]range区域是否全为空值的判断

lost_u

想判断指定的range区域内是否有数据，下面的语句错在哪里？

If Not Range(Cells(i, 3),Cells(i, 11)) Is Empty Then

另外Range(Cells(i, 3),Cells(i, 11)).find 的用法能说说吗？

想要find到的数值的行和列。能直接这样吗？Range(Cells(i, 3),Cells(i, 11)).Find(99)).Row

BobPan

Sub test()
MsgBox IsBlank(Range(Cells(1), Cells(5, 5)))
End Sub

'检查选择是否为空
'注意：如果是判断一个单元格是否为空时，下面代码不能判断正确，请直接使用 IsEmpty
Function IsBlank(Target As Range) As Boolean
    On Error Resume Next
    If Target.SpecialCells(xlCellTypeFormulas) Is Nothing Then
        If Target.SpecialCells(xlCellTypeConstants) Is Nothing Then IsBlank = True
    End If
End Function

'查找数字所在行
'请先在第一列中任意单元格写入50，它查找第一个50的位置，没有50则出错
Sub FindRow()
    MsgBox Application.Match(50, Columns(1), 0)
End Sub

lost_u

很好用，很强大

谢谢

jnmbatang2011

range对象返回为空的表示为何？有知道吗？ 是不是range = nothing ?

mythqiu

BobPan 发表于 2007-12-20 08:39
Sub test()MsgBox IsBlank(Range(Cells(1), Cells(5, 5)))End Sub'检查选择是否为空'注意：如果是判断一个 ...

感谢~~
很好,很好,我用len来类型不对

mythqiu

BobPan 发表于 2007-12-20 08:39
Sub test()MsgBox IsBlank(Range(Cells(1), Cells(5, 5)))End Sub'检查选择是否为空'注意：如果是判断一个 ...

这个代码执行太久了.....
上面我说错了，是程序陷入了循环。我程序用的是数据改变事件激发。导致循环激发。