CODE THÔNG BÁO LẤY ĐƯỢC DỮ LIỆU HAY CHƯA ?

[LOIKS]

if range("A1:G18")=" không có dữ liệu"
msg"chưa lấy được dữ liệu"
end if
chào mọi người làm sao để excel hiểu được là từ ô A1 đến ô G18 có dữ liệu hoặc không co dũ liệu ạ, mình có file sau khi lấy dữ liệu từ ô A1 đến G18 nếu dữ liệu lấy thành công thì MSg thông báo là ok
nếu như dữ liệu lấy qua mà trống thì msg thông báo là " chưa có dữ liệu" ,mọi người giúp mình viết 1 code mà nó thông báo cho biết kết quả
cảm ơn mọi người

 

[nghiaphuc]

if range("A1:G18")=" không có dữ liệu"
msg"chưa lấy được dữ liệu"
end if
chào mọi người làm sao để excel hiểu được là từ ô A1 đến ô G18 có dữ liệu hoặc không co dũ liệu ạ, mình có file sau khi lấy dữ liệu từ ô A1 đến G18 nếu dữ liệu lấy thành công thì MSg thông báo là ok
nếu như dữ liệu lấy qua mà trống thì msg thông báo là " chưa có dữ liệu" ,mọi người giúp mình viết 1 code mà nó thông báo cho biết kết quả
cảm ơn mọi người

Ô A1 trống tương ứng với IsEmpty([A1]), còn lại bạn tự tùy biến.

 

[LOIKS]

Ô A1 trống tương ứng với IsEmpty([A1]), còn lại bạn tự tùy biến.

nếu viết từ ô A1 đến G18 là trống thì viết như thế ào vậy bạn ?

 

[nghiaphuc]

nếu viết từ ô A1 đến G18 là trống thì viết như thế ào vậy bạn ?

Nếu bạn muốn tất cả các ô trong vùng A1:G18 đều phải có dữ liệu thì có thể dùng hàm COUNTA. Điều kiện đại loại thế này:

Application.Counta([A1:G18])=[A1:G18].Count

hay:

Application.Counta([A1:G18])=126

Hoặc bạn có thể sử dụng 1 biến Cll kiểu Range để duyệt qua vùng A1:G18 để kiểm tra điều kiện. Cll trống tương ứng với IsEmpty(Cll).

 

[phulien1902]

nếu viết từ ô A1 đến G18 là trống thì viết như thế ào vậy bạn ?

Thử:

Sub abc()
    Dim i&, LR&
    Dim ws As Worksheet: Set ws = Sheets(1)
    LR = ws.Cells(Rows.Count, "A").End(xlUp).Row
    With ws
        For i = 1 To LR
            .Range("H" & i) = WorksheetFunction.CountBlank(.Range("A" & i & ":G" & i))
            If .Range("H" & i) > 0 Then
                .Range("H" & i).Interior.Color = vbGreen
            End If
        Next
    End With
End Sub

 

[ndu96081631]

if range("A1:G18")=" không có dữ liệu"
msg"chưa lấy được dữ liệu"
end if
chào mọi người làm sao để excel hiểu được là từ ô A1 đến ô G18 có dữ liệu hoặc không co dũ liệu ạ, mình có file sau khi lấy dữ liệu từ ô A1 đến G18 nếu dữ liệu lấy thành công thì MSg thông báo là ok
nếu như dữ liệu lấy qua mà trống thì msg thông báo là " chưa có dữ liệu" ,mọi người giúp mình viết 1 code mà nó thông báo cho biết kết quả
cảm ơn mọi người

Có thể dùng SpecialCells như sau:

Sub Test()
  Dim rng As Range
  On Error Resume Next
  Set rng = Range("A1:G18").SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  If rng Is Nothing Then MsgBox "Không có du lieu"
End Sub

 

[LOIKS]

Có thể dùng SpecialCells như sau:

Sub Test()
  Dim rng As Range
  On Error Resume Next
  Set rng = Range("A1:G18").SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  If rng Is Nothing Then MsgBox "Không có du lieu"
End Sub

cam on a nhe