trieuthanhhung
Thành viên mới
- Tham gia
- 14/8/07
- Bài viết
- 2
- Được thích
- 0
mình có tạo một hàm như sau:
Public Function DEMSO(CHUOI) As Byte
Dim CHAY As Integer, CHUOICAT As String
CHAY = 0
CHUOICAT = CHUOI
Do While Len(CHUOICAT) <> 0
If Right(CHUOICAT, 1) = "," Then CHAY = CHAY + 1
CHUOICAT = Left(CHUOICAT, Len(CHUOICAT) - 1)
Loop
DEMSO = CHAY + 1
End Function
mình cho add in vào thì chạy rất tốt trên những workbook mới. Nhưng trên Workbook cũ thì không chạy được, nó báo là không nhận dạng được tên hàm. Mình cũng thử tạo worksheet mới trên workbook cũ đó nhưng cũng không được.
Xin giúp mình với!
Public Function DEMSO(CHUOI) As Byte
Dim CHAY As Integer, CHUOICAT As String
CHAY = 0
CHUOICAT = CHUOI
Do While Len(CHUOICAT) <> 0
If Right(CHUOICAT, 1) = "," Then CHAY = CHAY + 1
CHUOICAT = Left(CHUOICAT, Len(CHUOICAT) - 1)
Loop
DEMSO = CHAY + 1
End Function
mình cho add in vào thì chạy rất tốt trên những workbook mới. Nhưng trên Workbook cũ thì không chạy được, nó báo là không nhận dạng được tên hàm. Mình cũng thử tạo worksheet mới trên workbook cũ đó nhưng cũng không được.
Xin giúp mình với!
Lần chỉnh sửa cuối:
