Tìm và thông báo các ô không thỏa điều kiện

Liên hệ QC
H

hoanglocphat

Thành viên thường trực
Tham gia
27/1/13
Bài viết
258
Được thích
30
Chào các bạn GPE
Tôi muốn tìm trong các cột F, G, H và từ dòng thứ 7 xuống
Nếu các ô nào có tô màu mà không có số liệu hay không phải là số (number) thì thông báo
Nếu ô nào không có tô màu mà có số liệu thì cũng thông báo
Như ví dụ trong file thì các ô F11, F15, F16, G10, H11, H16 sẽ bị thông báo
Cảm ơn các bạn!
 

File đính kèm

  • Baoloi.xlsx
    9.1 KB · Đọc: 19
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Các bạn cho tôi hỏi, bài trên có thể viết được không ạ!
 
Upvote 0
hoanglocphat đã viết:
Các bạn cho tôi hỏi, bài trên có thể viết được không ạ!
Nhấp chuột vào đây để mở rộng...
Bài của bạn khó ghê, mình không biết làm! Mà chắc anh chị chú bác trên đây có nhiều người viết được á.
Mà bạn cho mình hỏi cái, bạn muốn thông báo hình thức ra sao?
 
Upvote 0
hoanglocphat đã viết:
Thông báo bằng Msgbox đó bạn (nếu có thể thì gom tất cả thông báo 1 lần)
Nhấp chuột vào đây để mở rộng...
Quá khó đối với cá nhân mình, hi.
Mình chỉ có thể tự suy nghĩ được tới đoạn gom điều kiện chung lại cho những ô thông báo, đó là: rỗng hoặc text hoặc không màu, hi.
Bạn chờ các cao nhân vào nhé !
 
Upvote 0
hoanglocphat đã viết:
Chào các bạn GPE
Tôi muốn tìm trong các cột F, G, H và từ dòng thứ 7 xuống
Nếu các ô nào có tô màu mà không có số liệu hay không phải là số (number) thì thông báo
Nếu ô nào không có tô màu mà có số liệu thì cũng thông báo
Như ví dụ trong file thì các ô F11, F15, F16, G10, H11, H16 sẽ bị thông báo
Cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Mình vẫn không hiểu ý "thông báo" của bạn đây là gì? Nếu là thông báo theo kiểu liệt kê ra các ô vào msgbox mà với dữ liệu lớn thì msgbox sao chịu nổi? Mình nghĩ xuất dữ liệu những ô nào có vấn đề đó ra sheets mới thì hợp lý hơn
 
Upvote 0
Xem như này có được không
 

File đính kèm

  • Baoloi.xlsm
    21.1 KB · Đọc: 10
Lần chỉnh sửa cuối:
Upvote 0
Nhattanktnn đã viết:
Mình vẫn không hiểu ý "thông báo" của bạn đây là gì? Nếu là thông báo theo kiểu liệt kê ra các ô vào msgbox mà với dữ liệu lớn thì msgbox sao chịu nổi? Mình nghĩ xuất dữ liệu những ô nào có vấn đề đó ra sheets mới thì hợp lý hơn
Nhấp chuột vào đây để mở rộng...
Ở đây tui kiểm tra phải nhập số liệu (number) vào những ô tô màu và không được nhập số liệu ở những ô không tô màu -> vấn đề này sẽ xảy ra không nhiều nên vẫn có thể gom vào 1 thông báo, hoặc có thể thông báo cho từng trường xảy ra rồi tiếp tục thông báo cho các trường hợp khác. Do phải kiểm tra thường xuyên nên mới dùng đến code
Thường tôi dùng Filter by color xong đến filter ->Blanks để kiểm tra
Hoặc không thông báo mà liệt kê vào cột I (từ I7 xuống)
Cảm ơn trước các bạn!
 
Lần chỉnh sửa cuối:
Upvote 0
hoanglocphat đã viết:
Chào các bạn GPE
Tôi muốn tìm trong các cột F, G, H và từ dòng thứ 7 xuống
Nếu các ô nào có tô màu mà không có số liệu hay không phải là số (number) thì thông báo
Nếu ô nào không có tô màu mà có số liệu thì cũng thông báo
Như ví dụ trong file thì các ô F11, F15, F16, G10, H11, H16 sẽ bị thông báo
Cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Dùng tạm Code này xem sao.
Mã: 
Sub GPE()
    Dim Rng As Range, MesRng As Range, sCell As Range
    Set Rng = Sheet1.Range("F6").CurrentRegion.Offset(1)

    For Each sCell In Rng
        If (sCell.Interior.Pattern = xlNone And sCell <> Empty) Or (sCell.Interior.Pattern <> xlNone And (sCell = Empty Or Not IsNumeric(sCell))) Then
            If MesRng Is Nothing Then
                Set MesRng = sCell
            Else
                Set MesRng = Union(MesRng, sCell)
            End If
        End If
    Next sCell
    If Not MesRng Is Nothing Then MsgBox MesRng.Address
End Sub
 
Upvote 0
hoanglocphat đã viết:
Ở đây tui kiểm tra phải nhập số liệu (number) vào những ô tô màu và không được nhập số liệu ở những ô không tô màu -> vấn đề này sẽ xảy ra không nhiều nên vẫn có thể gom vào 1 thông báo, hoặc có thể thông báo cho từng trường xảy ra rồi tiếp tục thông báo cho các trường hợp khác. Do phải kiểm tra thường xuyên nên mới dùng đến code
Thường tôi dùng Filter by color xong đến filter ->Blanks để kiểm tra
Hoặc không thông báo mà liệt kê vào cột I (từ I7 xuống)
Cảm ơn trước các bạn!
Nhấp chuột vào đây để mở rộng...
Thử code này:
PHP: 
Public Sub s_Gpe()
Dim Rng As Range, Cll As Range, Txt As String
Set Rng = Range("F7:H16") 'Vung du lieu can xet'
For Each Cll In Rng
    If Cll.Interior.Pattern = xlNone Then
        If Len(Cll.Value) Then
            Txt = Txt & IIf(Len(Txt), "-", "") & Cll.Address
        End If
    Else
        If Cll.Value = Empty Or Not IsNumeric(Cll.Value) Then
            Txt = Txt & IIf(Len(Txt), "-", "") & Cll.Address
        End If
    End If
Next Cll
Range("I2") = IIf(Len(Txt), Replace(Txt, "$", ""), "Khong co gi")
End Sub
 

File đính kèm

  • Baoloi.xlsm
    18.4 KB · Đọc: 8
Upvote 0
Ba Tê đã viết:
Thử code này:
PHP: 
Public Sub s_Gpe()
Dim Rng As Range, Cll As Range, Txt As String
Set Rng = Range("F7:H16") 'Vung du lieu can xet'
For Each Cll In Rng
    If Cll.Interior.Pattern = xlNone Then
        If Len(Cll.Value) Then
            Txt = Txt & IIf(Len(Txt), "-", "") & Cll.Address
        End If
    Else
        If Cll.Value = Empty Or Not IsNumeric(Cll.Value) Then
            Txt = Txt & IIf(Len(Txt), "-", "") & Cll.Address
        End If
    End If
Next Cll
Range("I2") = IIf(Len(Txt), Replace(Txt, "$", ""), "Khong co gi")
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh Ba Tê
Em quên nói là các ô trong file của em được tô màu bởi Conditional Formatting
Code trên em đoán là sửa chỗ: If Cll.Interior.Pattern = xlNone Then
Không biết có đúng không và sửa như thế nào?
Mong anh Ba Tê hoặc các bạn nào biết thì sửa code giúp
Em cảm ơn ạ!
 
Upvote 0
hoanglocphat đã viết:
Em cảm ơn anh Ba Tê
Em quên nói là các ô trong file của em được tô màu bởi Conditional Formatting
Code trên em đoán là sửa chỗ: If Cll.Interior.Pattern = xlNone Then
Không biết có đúng không và sửa như thế nào?
Mong anh Ba Tê hoặc các bạn nào biết thì sửa code giúp
Em cảm ơn ạ!
Nhấp chuột vào đây để mở rộng...
Gợi ý thế này.
Mã: 
   Cll.DisplayFormat.Interior.Color
 
Upvote 0
giaiphap đã viết:
Gợi ý thế này.
Mã: 
   Cll.DisplayFormat.Interior.Color
Nhấp chuột vào đây để mở rộng...
Tôi đã sửa code ở trên thành
If Cll.DisplayFormat.Interior.Color then
Hoặc thành
If Cll.DisplayFormat.Interior.Color = xlNone Then
thì code vẫn chưa cho kết quả đúng
Nhờ bạn hướng dẫn thêm. Cảm ơn bạn
 

File đính kèm

  • Baoloi (1).xlsm
    18.9 KB · Đọc: 2
Upvote 0
hoanglocphat đã viết:
Tôi đã sửa code ở trên thành
If Cll.DisplayFormat.Interior.Color then
Hoặc thành
If Cll.DisplayFormat.Interior.Color = xlNone Then
thì code vẫn chưa cho kết quả đúng
Nhờ bạn hướng dẫn thêm. Cảm ơn bạn
Nhấp chuột vào đây để mở rộng...
Code chạy theo định dạng điều kiện
Mã: 
Sub ABC()
  Dim Rng As Range, iCell As Range, aDK
  Dim fRow&, eRow&, i&, fCol&, eCol&, j&, Res As String
  
  aDK = Array("", 1, 2, 3) 'Dieu kien dinh dang
  Set Rng = Range("F7:H16") 'Vung du lieu can xet
  fRow = Rng.Row:     eRow = fRow + Rng.Rows.Count - 1
  fCol = Rng.Column:  eCol = fCol + Rng.Columns.Count - 1
  For i = fRow To eRow
    For j = fCol To eCol
      Set iCell = Cells(i, j)
      If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(i, j - 4) = aDK(j - 5))) Then
        Res = Res & "-" & iCell.Address(0, 0)
      End If
    Next j
  Next i
  If Len(Res) Then MsgBox ("Cac O Khong Dung: " & Mid(Res, 2, Len(Res)))
End Sub
 
Upvote 0
HieuCD đã viết:
Code chạy theo định dạng điều kiện
Mã: 
Sub ABC()
  Dim Rng As Range, iCell As Range, aDK
  Dim fRow&, eRow&, i&, fCol&, eCol&, j&, Res As String
 
  aDK = Array("", 1, 2, 3) 'Dieu kien dinh dang
  Set Rng = Range("F7:H16") 'Vung du lieu can xet
  fRow = Rng.Row:     eRow = fRow + Rng.Rows.Count - 1
  fCol = Rng.Column:  eCol = fCol + Rng.Columns.Count - 1
  For i = fRow To eRow
    For j = fCol To eCol
      Set iCell = Cells(i, j)
      If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(i, j - 4) = aDK(j - 5))) Then
        Res = Res & "-" & iCell.Address(0, 0)
      End If
    Next j
  Next i
  If Len(Res) Then MsgBox ("Cac O Khong Dung: " & Mid(Res, 2, Len(Res)))
End Sub
Nhấp chuột vào đây để mở rộng...
Chào bạn!
Thực tế thì điều kiện CF để tôi đặt là không cố định
Tôi dùng điều kiện là: nếu tìm chữ a thì tôi dùng =SEARCH("a";B7&B7) (công thức này tôi tìm được trong diễn đàn, với mục đích tìm theo nhiều điều kiện)
Vì thế với code trên của bạn thì tôi tùy biến, tôi đặt điều kiện ở ô F5 là a
Tuy nhiên sau khi sửa thì nó thông báo không đúng, mong bạn sửa giúp
PHP: 
Sub xyz_2()
  Dim Rng As Range, iCell As Range, aDK
  Dim fRow&, eRow&, i&, fCol&, eCol&, j&, Res As String
  
  aDK = Array("", "a") 'Dieu kien dinh dang
  Set Rng = Range("F7:F16") 'Vung du lieu can xet
  fRow = Rng.Row:     eRow = fRow + Rng.Rows.Count - 1
  fCol = Rng.Column:  eCol = fCol + Rng.Columns.Count - 1
  For i = fRow To eRow
    For j = fCol To eCol
      Set iCell = Cells(i, j)
      
      'If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(5, j - 4) = aDK(j - 5))) Then
      If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(5, 6).Value = aDK(j - 5))) Then
   
             Res = Res & "-" & iCell.Address(0, 0)
      End If
    Next j
  Next i
  If Len(Res) Then MsgBox ("Cac O Khong Dung: " & Mid(Res, 2, Len(Res)))
End Sub
Mong bạn giúp vì đã làm phiền bạn. xin cảm ơn!
 

File đính kèm

  • Baoloi-xyz.xlsm
    19.4 KB · Đọc: 2
Upvote 0
hoanglocphat đã viết:
Chào bạn!
Thực tế thì điều kiện CF để tôi đặt là không cố định
Tôi dùng điều kiện là: nếu tìm chữ a thì tôi dùng =SEARCH("a";B7&B7) (công thức này tôi tìm được trong diễn đàn, với mục đích tìm theo nhiều điều kiện)
Vì thế với code trên của bạn thì tôi tùy biến, tôi đặt điều kiện ở ô F5 là a
Tuy nhiên sau khi sửa thì nó thông báo không đúng, mong bạn sửa giúp
PHP: 
Sub xyz_2()
  Dim Rng As Range, iCell As Range, aDK
  Dim fRow&, eRow&, i&, fCol&, eCol&, j&, Res As String
 
  aDK = Array("", "a") 'Dieu kien dinh dang
  Set Rng = Range("F7:F16") 'Vung du lieu can xet
  fRow = Rng.Row:     eRow = fRow + Rng.Rows.Count - 1
  fCol = Rng.Column:  eCol = fCol + Rng.Columns.Count - 1
  For i = fRow To eRow
    For j = fCol To eCol
      Set iCell = Cells(i, j)
     
      'If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(5, j - 4) = aDK(j - 5))) Then
      If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(5, 6).Value = aDK(j - 5))) Then
  
             Res = Res & "-" & iCell.Address(0, 0)
      End If
    Next j
  Next i
  If Len(Res) Then MsgBox ("Cac O Khong Dung: " & Mid(Res, 2, Len(Res)))
End Sub
Mong bạn giúp vì đã làm phiền bạn. xin cảm ơn!
Nhấp chuột vào đây để mở rộng...
Chạy code
Mã: 
Option Compare Text

Sub xyz_2()
  Dim Rng As Range, iCell As Range, aDK
  Dim fRow&, eRow&, i&, fCol&, eCol&, j&, Res As String
 
  aDK = Array("", "a") 'Dieu kien dinh dang
  Set Rng = Range("F7:F16") 'Vung du lieu can xet
  fRow = Rng.Row:     eRow = fRow + Rng.Rows.Count - 1
  fCol = Rng.Column:  eCol = fCol + Rng.Columns.Count - 1
  For i = fRow To eRow
    For j = fCol To eCol
      Set iCell = Cells(i, j)
      If Not (((iCell <> Empty) = IsNumeric(iCell)) = (Cells(i, j - 4) Like "*" & aDK(j - 5) & "*")) Then
        Res = Res & "-" & iCell.Address(0, 0)
      End If
    Next j
  Next i
  If Len(Res) Then MsgBox ("Cac O Khong Dung: " & Mid(Res, 2, Len(Res)))
End Sub
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

H
  • Question
Code subtotal và tìm điều kiện
Trả lời
4
Đọc
61
DeTong
D
P
  • Question
Nhờ hỗ trợ chọn vùng trong Inputbox ở VBA
Trả lời
13
Đọc
426
Hoàng Tuấn 868
H
H
Xin giúp đỡ lấy lại file excel bị lưu đè
Trả lời
2
Đọc
41
HOANGVO797969
H
kiencuong030184
  • Question
ẩn hiện dòng, cột có điều kiên
Trả lời
3
Đọc
62
SA_DQ
SA_DQ
Emyeuexcel
  • Question
In theo số thứ tự
    • Chấp nhận
Trả lời
6
Đọc
123
Emyeuexcel
Emyeuexcel
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom