Giúp đỡ: Tìm ô trống và thông báo ô đó bị trống (1 người xem)

[thunga25]

Chào các bạn!
Mình có file excel, các dữ liệu ở 1 số vùng không được trống nên mình muốn các bạn giúp viết code để kiểm tra vùng đó có ô nào trống không, nếu có ô trống thì thông báo MsgBox ô đó trống (vd: B12 trống)
Có file excel ví dụ:
http://www.mediafire.com/view/rd39b2..._TRA_TRONG.xls
Rất mong nhận được sự giúp đỡ!

 

[giaiphap]

Chào các bạn!
Mình có file excel, các dữ liệu ở 1 số vùng không được trống nên mình muốn các bạn giúp viết code để kiểm tra vùng đó có ô nào trống không, nếu có ô trống thì thông báo MsgBox ô đó trống (vd: B12 trống)
Có file excel ví dụ:http://http://www.mediafire.com/view/rd39b2j5ff6dy16/KIEM_TRA_TRONG.xls
Rất mong nhận được sự giúp đỡ!

Không tải được file bác ơi.

 

[doveandrose]

Không tải được file bác ơi.

nó ở đây
http://www.mediafire.com/view/rd39b2j5ff6dy16/KIEM_TRA_TRONG.xls

 

[doveandrose]

Bài này vui. Bạn tô nguyên 2 cột màu hồng. Và muón tìm ô trống hiện bằng MsgBox.... Chắc dành cả năm để ngồi xem MsgBox hả bạn???

bấm nút , các ô nào trống nối vào chuỗi rồi hiện 1 lần

 

[giaiphap]

Chào các bạn!
Mình có file excel, các dữ liệu ở 1 số vùng không được trống nên mình muốn các bạn giúp viết code để kiểm tra vùng đó có ô nào trống không, nếu có ô trống thì thông báo MsgBox ô đó trống (vd: B12 trống)
Có file excel ví dụ:http://http://www.mediafire.com/view/rd39b2j5ff6dy16/KIEM_TRA_TRONG.xls
Rất mong nhận được sự giúp đỡ!

Bạn dùng code này nhé

Sub GPE()
Dim lcell As Range
For Each lcell In Sheet1.Range("C2:C72")
   If lcell = Empty Then MsgBox lcell.Address
Next
For Each lcell In Sheet1.Range("E2:G72")
   If lcell = Empty Then MsgBox lcell.Address
Next
End Sub

 

[phihndhsp]

Chào các bạn!
Mình có file excel, các dữ liệu ở 1 số vùng không được trống nên mình muốn các bạn giúp viết code để kiểm tra vùng đó có ô nào trống không, nếu có ô trống thì thông báo MsgBox ô đó trống (vd: B12 trống)
Có file excel ví dụ:
http://www.mediafire.com/view/rd39b2..._TRA_TRONG.xls
Rất mong nhận được sự giúp đỡ!

có thể kết hợp goto special , định dạng và filter thì chắc chắn sẽ sửa được các lỗi ô trống

 

[giangleloi]

Chào các bạn!
Mình có file excel, các dữ liệu ở 1 số vùng không được trống nên mình muốn các bạn giúp viết code để kiểm tra vùng đó có ô nào trống không, nếu có ô trống thì thông báo MsgBox ô đó trống (vd: B12 trống)
Có file excel ví dụ:
http://www.mediafire.com/view/rd39b2..._TRA_TRONG.xls
Rất mong nhận được sự giúp đỡ!

Góp vui cho bạn đoạn này. Làm chơi giải trí thôi nha:

Sub TimTrinh()
Dim lr, I, J, Núm, Arr, x, str
lr = Range("B" & Rows.Count).End(3).Row
Arr = Range("C1:G" & lr).Value
x = Array(1, 3, 4, 5)
    For I = 1 To lr
      For J = LBound(x) To UBound(x)
        If Arr(I, x(J)) = Empty Then
          Núm = Núm + 1
          str = str & ", " & IIf(x(J) = 1, "C" & I, IIf(x(J) = 3, "E" & I, IIf(x(J) = 4, "F" & I, "G" & I)))
        End If
      Next
    Next
MsgBox Núm & " em còn trinh là: " & Mid(str, 3, Len(str))
End Sub

P/s: Cám ơn bạn #3 cho cái file.