Hỏi Lỗi Function Không Dừng để Debug Khi đã F9 Dừng Câu Lệnh

[Zorrofantasy]

Chào mọi người,
Mình đang làm thử Function tách chuỗi nhưng không biết lỗi chỗ nào mà không dừng lại khi đã F9 chọn hàng dừng , bên dưới là function ah

Function TachChuoi(Chuoi, a, KyTu)


Dim x As Variant
x = Split(Chuoi, a, KyTu)
If a > 0 And a - 1 <= UBound(x) Then
TachChuoi = x(a - 1)
Else
TachChuoi = ""
End If

End Function

 

[snow25]

Chào mọi người,
Mình đang làm thử Function tách chuỗi nhưng không biết lỗi chỗ nào mà không dừng lại khi đã F9 chọn hàng dừng , bên dưới là function ah

Function TachChuoi(Chuoi, a, KyTu)


Dim x As Variant
x = Split(Chuoi, a, KyTu)
If a > 0 And a - 1 <= UBound(x) Then
TachChuoi = x(a - 1)
Else
TachChuoi = ""
End If

End Function

Cái hàm split của bạn sai.Bạn bỏ cái a ra khỏi hàm đó đi.Trong function thì khi chạy code nếu gặp lỗi nó sẽ thoát luôn nên.