Viết Hàm kiểm tra một range có rỗng toàn bộ không (1 người xem)

[Hanguyenktxd]

Gửi các anh chị trên diễn đàn
Mình muốn nhờ các anh chị viết một hàm kiểm tra xem một dãy ô có rỗng hay không nếu toàn bộ dãy ô này là rỗng thì trả về True ngược lại thì trả về False
cám ơn các anh chị

 

[phulien1902]

Gửi các anh chị trên diễn đàn
Mình muốn nhờ các anh chị viết một hàm kiểm tra xem một dãy ô có rỗng hay không nếu toàn bộ dãy ô này là rỗng thì trả về True ngược lại thì trả về False
cám ơn các anh chị

- Bạn thử cái này xem

Sub Hanguyenktxd()
    If WorksheetFunction.CountA(Range("A1:E5")) = 0 Then
        MsgBox "TRUE"
    Else
        MsgBox "FALSE"
    End If
End Sub

 

[OverAC]

Bạn muốn viết một hàm VBA hay công thức có được không?

Dùng công thức này xem có đáp ứng nhu cầu bạn không
=SUMPRODUCT((Vungxet<>"")*1)=0
=COUNTA(Vungxet)=0

 

[Hanguyenktxd]

- Bạn thử cái này xem

Sub Hanguyenktxd()
    If WorksheetFunction.CountA(Range("A1:E5")) = 0 Then
        MsgBox "TRUE"
    Else
        MsgBox "FALSE"
    End If
End Sub

Cám ơn bạn phulien1902
Cái mình muốn là 1 Hàm tự tạo mang tính chất tổng quát để dùng chung giống như hàm ISEMPTY của VBA vậy,
do hàm ISEMPTY kiểm tra một range chỉ cần tìm thấy có rỗng là True liền trong khi trong range vừa có rỗng vừa có dữ liệu, không thỏa yều cầu toàn bộ range đều rỗng mới xuất True.

 

[Hanguyenktxd]

Bạn muốn viết một hàm VBA hay công thức có được không?

Dùng công thức này xem có đáp ứng nhu cầu bạn không
=SUMPRODUCT((Vungxet<>"")*1)=0
=COUNTA(Vungxet)=0

Cám ơn OverAC
Cái mình muốn là 1 Hàm tự tạo mang tính chất tổng quát, có thể sử dụng nó kiểm tra một Range có rỗng toàn bộ không, từ đó đưa ra hướng xử lý trong lập trình VBA giống như ISEMPTY vậy

 

[chuot0106]

Cám ơn OverAC
Cái mình muốn là 1 Hàm tự tạo mang tính chất tổng quát, có thể sử dụng nó kiểm tra một Range có rỗng toàn bộ không, từ đó đưa ra hướng xử lý trong lập trình VBA giống như ISEMPTY vậy

Dùng hàm này xem:

Public Function VR(rng As Range) As Boolean
    If Application.WorksheetFunction.CountA(rng) = 0 Then 
          VR = True
    Else
        VR = False
    End If
End Function

 

[chuot0106]

Hoặc dùng hàm này cũng được:

Public Function VR(Rng As Range) As Boolean
If Application.WorksheetFunction.CountBlank(Rng) = Rng.Rows.Count * Rng.Columns.Count Then
    VR = True
Else
    VR = False
End If
End Function

 

[Phuocam]

Gửi các anh chị trên diễn đàn
Mình muốn nhờ các anh chị viết một hàm kiểm tra xem một dãy ô có rỗng hay không nếu toàn bộ dãy ô này là rỗng thì trả về True ngược lại thì trả về False
cám ơn các anh chị

Thêm một cách:

Public Function KiemTra(Rng As Range) As Boolean
Dim Cll As Range
For Each Cll In Rng
    If Cll <> "" Then
          KiemTra = False
          Exit Function
   End If
Next Cll
        KiemTra = True
End Function

 

[leonguyenz]

Dùng hàm này xem:

Public Function VR(rng As Range) As Boolean
    If Application.WorksheetFunction.CountA(rng) = 0 Then 
          VR = True
    Else
        VR = False
    End If
End Function

Nếu toán tử trả kết quả là trị lý luận (TRUE, FALSE) thì có thể bỏ IF.

Public Function VR(rng As Range) As Boolean
    VR = Application.WorksheetFunction.CountA(rng) = 0
End Function

 

[ec ec]

Nếu toán tử trả kết quả là trị lý luận (TRUE, FALSE) thì có thể bỏ IF.

Public Function VR(rng As Range) As Boolean
    VR = Application.WorksheetFunction.CountA(rng) = 0
End Function

Public Function VR(rng As Range) As Boolean
VR = rng.Find("*") Is Nothing
End Function

???