Dùng Hàm IsNumber kết hợp Find bị báo lỗi. Nhờ các anh chị xem giúp ạ

[MỹHạnhCB]

Xin chào anh chị trong diễn đàn GPE ạ.
Nội dung là em muốn tìm chuỗi truyền vào có tồn tại trong từng ô của cột E. Nếu có tồn tại thì sẽ thực hiện lấy thông tin của dòng đó và copy sang chỗ khác.
Nhưng em chạy đến dòng tìm kiếm "If Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Find(Cell, a)) = True Then" thì nó báo lỗi ạ. Mong các anh chị có thể sửa giúp em chỗ này, hoặc có đoạn mã nào khác không ạ. Em cám ơn nhiều.

Sub tim_ten()
    Application.AskToUpdateLinks = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim a As String
    Dim i As Long, Cell As Range
    Dim wb As Workbook, ws As Worksheet
    Set wb = ActiveWorkbook
    Set ws = wb.Sheets(1)
Dim lr, lc, j As Long
a = InputBox(NhapTen, a, "")
With ws
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    lc = .Cells(1 & Columns.Count).End(xlToLeft).Column
    For Each Cell In .Range("E1:E" & lr).Cells
    For j = 1 To lr
If .Application.WorksheetFunction.IsNumber(.Application.WorksheetFunction.Find(Cell, a)) = True Then
.Range(Cells(j, "A"), Cells(j, lc)).Copy Cells(lr + 1, "A")
End If
    Next j
    Next Cell
End With
    wb.Close savechanges:=True
   Application.AskToUpdateLinks = True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[Hoàng Tuấn 868]

có đoạn mã nào tối ưu hơn

Đã gọi là tối ưu thì làm gì có "hơn" nữa nhỉ.

 

[MỹHạnhCB]

Đã gọi là tối ưu thì làm gì có "hơn" nữa nhỉ.

đúng vậy anh nhỉ. câu từ em có vẻ lủng củn. . mong anh giúp đỡ ạ

 

[VetMini]

Đã gọi là tối ưu thì làm gì có "hơn" nữa nhỉ.

Đó là cách hành văn rất thông dụng ở GPE.
Tôi nói thật. Bạn tra mấy bài có cụm từ "tối ưu" xem.

 

[Hoàng Tuấn 868]

đúng vậy anh nhỉ. câu từ em có vẻ lủng củn. . mong anh giúp đỡ ạ

Ai đến nhà mình mà không chào hỏi thì mình không tiếp, bạn thông cảm nhé.

 

[MỹHạnhCB]

Ai đến nhà mình mà không chào hỏi thì mình không tiếp, bạn thông cảm nhé.

Ý trời lỗi quá lỗi. Mong anh thứ lỗi. Em không có ý đó. Em sửa liền đây ạ

 

[Hoàng Tuấn 868]

Ý trời lỗi quá lỗi. Mong anh thứ lỗi. Em không có ý đó. Em sửa liền đây ạ

Code này là bạn viết hay người khác viết vậy?

 

[MỹHạnhCB]

Code này là bạn viết hay người khác viết vậy?

Em nhặt và ghép ạ. Nhưng em vẫn hiểu cách hoạt động của nó, chỉ là em không biết cách tìm chuỗi trong ô khi có nhiều kiểu định dạng ạ.

 

[Hoàng Tuấn 868]

Em nhặt và ghép ạ. Nhưng em vẫn hiểu cách hoạt động của nó, chỉ là em không biết cách tìm chuỗi trong ô khi có nhiều kiểu định dạng ạ.

Mình cũng đoán là chắp vá nên sửa theo kiểu chắp vá vậy, kết quả mình trả sang sheet2.

 

[MỹHạnhCB]

Mình cũng đoán là chắp vá nên sửa theo kiểu chắp vá vậy, kết quả mình trả sang sheet2.

Vâng cám ơn anh nhiều ạ.

 

[VetMini]

Hàm find của worksheetfunction trả về error nếu không tìm thấy chuỗi.
Error này phải được bẫy. Nếu không bẫy thì VBA báo lỗi.

Cách chữa:

1. Bẫy với On Error

2. Dùng hàm Application không qua WorksheetFunction

3. Dùng hàm VBA: InStr, Like,...

 

[MỹHạnhCB]

Hàm find của worksheetfunction trả về error nếu không tìm thấy chuỗi.
Error này phải được bẫy. Nếu không bẫy thì VBA báo lỗi.

Cách chữa:

1. Bẫy với On Error

2. Dùng hàm Application không qua WorksheetFunction

3. Dùng hàm VBA: InStr, Like,...

Dạ em hiểu rồi ạ, cám ơn anh nhiều

 

[SA_DQ]

. . . . . . . Nhưng em vẫn hiểu cách hoạt động của nó, chỉ là em không biết cách tìm chuỗi trong ô khi có nhiều kiểu định dạng ạ.

Nhiều kiểu định dạng trong ô là những định dạnh như thế nào mà gây khó cho bạn vậy?
Bạn đã thử với phương thức FIND() trong VBA chưa vậy nhỉ? Có hẵn 1 tổng quan đồ sộ về phương thức này đó, bạn thử chiêm nghiệm lúc rỗi xem sao!

 

[MỹHạnhCB]

Nhiều kiểu định dạng trong ô là những định dạnh như thế nào mà gây khó cho bạn vậy?
Bạn đã thử với phương thức FIND() trong VBA chưa vậy nhỉ? Có hẵn 1 tổng quan đồ sộ về phương thức này đó, bạn thử chiêm nghiệm lúc rỗi xem sao!

Vâng cám ơn anh đã hướng dẫn ạ