Cần viết Code Nếu không tìm thấy từ "Quýt" thì hiện Msgbox ghi là "Ko tìm thấy Quýt" (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có một File Excel có dữ liệu như sau:

Có Code nào thể hiện rằng: Nếu không tìm thấy từ "Quýt" trên cột B thì hiện Msgbox ghi là "Không tìm thấy Quýt".
Không dùng Code For...Next
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[giaiphap]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có một File Excel có dữ liệu như sau:

Có Code nào thể hiện rằng: Nếu không tìm thấy từ "Quýt" trên cột B thì hiện Msgbox ghi là "Không tìm thấy Quýt".
Không dùng Code For...Next
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Rõ ràng tìm như vậy ai lại dùng For...Next, duyệt rất lâu.

 

[ChanhTQ@]

Nếu bạn cần tìm 'Táo', 'Sung' hay "Quýt', thì đây:

Option Explicit
Sub TìmQuít()
 Dim StrC$, sRng As Range
 StrC = InputBox("Nhap Tù Càn Tìm", "GPE.COM Xin Chào", "Quýt")
 Set sRng = Range([B1], [B65500].End(xlUp)).Find(StrC, , xlFormulas, xlWhole)
 On Error Resume Next
 if sRng Is Nothing then
     MsgBox "Khong Tìm Tháy!", vbInformation, "Tam Biet!"
 else
     MsgBox sRng.Address
 End if
End Sub

 

[ndu96081631]

Rõ ràng tìm như vậy ai lại dùng For...Next, duyệt rất lâu.

Điều này thì.. chưa chắc! Tôi thì cho rằng For.. Next mới nhanh và nó càng tỏ ra lợi hại đối với dữ liệu lớn (60,000 dòng trở lên chẳng hạn)

 

[ChanhTQ@]

For . . . Next muốn nhanh hơn FIND() thì fải cho vô mảng mà duyệt;

 

[phulien1902]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có một File Excel có dữ liệu như sau:

Có Code nào thể hiện rằng: Nếu không tìm thấy từ "Quýt" trên cột B thì hiện Msgbox ghi là "Không tìm thấy Quýt".
Không dùng Code For...Next
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Bạn tham khảo cái này xem:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$2" Then
        Dim sn As Range
        hoaqua = Sheets(1).Range("B4:B13")
        If Not IsError(Application.Match(Range("Tim"), hoaqua, 0)) Then
            MsgBox "Tim thay"
        Else
            MsgBox "KhongTim thay"
        End If
    End If
End Sub

 

[phulien1902]

Gửi File để bạn tham khảo nhé: