...那么... If Range("a1:d13") = "" Then...我这样打他说类型不匹配...

发布网友 发布时间：2024-10-23 20:11

我来回答

共5个回答

热心网友 时间：2024-11-22 10:55

改成
If Range("a1:d13").formular = ""
试试

热心网友 时间：2024-11-22 11:01

用工作表函数判断。
if Application.WorksheetFunction.Counta(range("A1:D13")=0
如果A1:D3的非空单元格数等于0 表示全为空
如果是 =range("A1:D13").count 那么就是判断全部不为空。

热心网友 时间：2024-11-22 11:00

其实可以使用IsEmpty函数 来选择空白区域
可以改为 If IsEmpty(Range("a1:d13")) Then

热心网友 时间：2024-11-22 10:58

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Isempty As Boolean
Isempty = True
For Each Target In Range("A1:A6")
If Target.Value <> "" Then
Isempty = False
Exit For
End If
Next
If Isempty = False Then Debug.Print "第" & Target.Cells.Rows & "行" & Target.Columns & "列" & "非空" Else Debug.Print "空"
End Sub

热心网友 时间：2024-11-22 10:54

f Range("a1:d13").formular = ""