Cách khắc phục lỗi với WorksheetFunction.Search trong VBA???

[romeonaldo]

Hi mọi người, hiện tại mình đang gọi hàm Search trong VBA để cắt chuỗi. Tuy nhiên trong trường hợp chuỗi của mình không tìm thấy ký tự thì nó hiện ra lỗi :

Đoạn code của mình nó kiểu như thế này ạ?
If WorksheetFunction.Search(aa90, aa99) < 15 And WorksheetFunction.Search(aa90, aa99) > 0 Then
aa98 = Left(aa99, WorksheetFunction.Search(aa90, Ng_giam.Cells(j, 9)) - 1)
aa97 = Right(aa99, Len(aa99) - Len(aa98) - 1)
end if
Bây giờ mình muốn là nếu lệnh search mà không thấy thì thoát luôn hàm if, còn nếu search ra thì tiếp tục chạy các dòng lệnh dưới, mọi người giúp mình với ạ, mình cảm ơn!

 

[BuiQuangThuan]

Hi mọi người, hiện tại mình đang gọi hàm Search trong VBA để cắt chuỗi. Tuy nhiên trong trường hợp chuỗi của mình không tìm thấy ký tự thì nó hiện ra lỗi :
View attachment 268588
Đoạn code của mình nó kiểu như thế này ạ?
If WorksheetFunction.Search(aa90, aa99) < 15 And WorksheetFunction.Search(aa90, aa99) > 0 Then
aa98 = Left(aa99, WorksheetFunction.Search(aa90, Ng_giam.Cells(j, 9)) - 1)
aa97 = Right(aa99, Len(aa99) - Len(aa98) - 1)
end if
Bây giờ mình muốn là nếu lệnh search mà không thấy thì thoát luôn hàm if, còn nếu search ra thì tiếp tục chạy các dòng lệnh dưới, mọi người giúp mình với ạ, mình cảm ơn!

Aa98 và aa99 là ô hay là chuỗi kí tự thế bạn

 

[Maika8008]

Aa98 và aa99 là ô hay là chuỗi kí tự thế bạn

Có lẽ đó là tên biến.

 

[Phuocam]

Hi mọi người, hiện tại mình đang gọi hàm Search trong VBA để cắt chuỗi. Tuy nhiên trong trường hợp chuỗi của mình không tìm thấy ký tự thì nó hiện ra lỗi :
View attachment 268588
Đoạn code của mình nó kiểu như thế này ạ?
If WorksheetFunction.Search(aa90, aa99) < 15 And WorksheetFunction.Search(aa90, aa99) > 0 Then
aa98 = Left(aa99, WorksheetFunction.Search(aa90, Ng_giam.Cells(j, 9)) - 1)
aa97 = Right(aa99, Len(aa99) - Len(aa98) - 1)
end if
Bây giờ mình muốn là nếu lệnh search mà không thấy thì thoát luôn hàm if, còn nếu search ra thì tiếp tục chạy các dòng lệnh dưới, mọi người giúp mình với ạ, mình cảm ơn!

Bạn có thể dùng InStr trong VBA thay Seach.

InStr function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

 

[romeonaldo]

Aa98 và aa99 là ô hay là chuỗi kí tự thế bạn

aa98 99 là chuỗi bạn ạ, mình gán vào như vậy

 

[romeonaldo]

Bạn có thể dùng InStr trong VBA thay Seach.

InStr function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

tks bạn, mình đã làm được rồi

 

[batman1]

Khi không tìm thấy thì WorksheetFunction.Search(aa90, aa99) trả về lỗi #VALUE!. Vì thế nếu dùng Search thì phải phục vụ trường hợp LỖI. Cách khác là dùng hàm INSTR (VBA)