Zorrofantasy
Thành viên mới
- Tham gia
- 19/10/11
- Bài viết
- 18
- Được thích
- 0
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
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
Mã:
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