Khai báo range như thế nào ???

[Mr Okebab]

Mình có một hàm UF để tìm giá trị Chứng từ lớn nhất.
(Hiểu về nội dung thế nào thì các bác có thể tham khảo :http://tinyurl.com/2kb4q2)

Đây là hàm :

Function CTMax(Vung As Range, KT As String, SoKT As Byte) As String
    On Error Resume Next
    Dim i As Long
    Dim CT As Range
    For Each CT In Vung
        CT.Select
        If Left$(CT.Value, Len(KT)) = KT Then
        If IsNumeric(Val(Right$(CT.Value, SoKT))) = True Then
            If Val(Right$(CT.Value, SoKT)) > i Then i = Val(Right$(CT.Value, SoKT)): MsgBox i
        End If: End If
    Next
    CTMax = KT & Format(i + 1, "000")
    Set CT = Nothing
    Set Vung = Nothing
End Function

​

Khi nó hoạt động ở sheet thì làm việc rất tốt
VD : A1 = CTMax(E2:E100;"PT07/10/";3)

Tuy nhiên trong VBA thì lại không dùng được.
VD : = CTMax(Sheet1.Range("E2:E100"),"PT07/10/",3)

Nó báo lỗi ngay ở vòng lặp For each

Như vậy có nghĩa là mình khai báo Vung đã sai (mình khai báo là Range)
Vậy thì khai báo thế nào để dùng ở VBA bình thường nhỉ ???????
Tức là nó hiểu Sheet1.Range("E2:E100") là 1 range bình thường nhỉ giống như E2:E100 ???

Mong mọi người giúp đỡ.

Cảm ơn nhiều.
Thân!

 

[tedaynui]

Sao Test thấy vẫn cho kết quả bình thường, VBA cũng không thấy báo lỗi ???
Hiếu thử chỉnh lại dấu phẩy "," và chấm phẩy ";" xem có ảnh hưởng gì trong trường hợp này không ?

Thân!

 

[Mr Okebab]

Sao Test thấy vẫn cho kết quả bình thường, VBA cũng không thấy báo lỗi ???
Hiếu thử chỉnh lại dấu phẩy "," và chấm phẩy ";" xem có ảnh hưởng gì trong trường hợp này không ?

Thân!

Đâu có, trong sheet thì OK, không thành vấn đề.
Nhưng sử dụng trong VBA (Form), thì em muốn tính trực tiếp trong VBA luôn và gán giá trị đó lên Textbox thì lại không được.

Bác thử chưa ??

Thân!

 

[tedaynui]

Mình Test lại rồi, dấu phẩy hay chấm phẩy đều cho kết quả tốt cả. Hiếu xem lại file Test này xem.

Thân

 

[SoiBien]

Mình cũng test rồi, chạy rầm rầm, có sao đâu???

 

[Mr Okebab]

Mình Test lại rồi, dấu phẩy hay chấm phẩy đều cho kết quả tốt cả. Hiếu xem lại file Test này xem.

Thân

Mình cũng test rồi, chạy rầm rầm, có sao đâu???

Oái !!!!!!!!!!!!!!!

Sao hôm qua em thử mãi không được, do đó mới có cái bài này
http://tinyurl.com/2pra9o
http://tinyurl.com/3ck5oy

Thế mà bây giờ lại được ?????????????

Hay là em bị làm sao ????????
Mai đi khám đã.

Cảm ơn các bác!!!

Thân!

 

[lethanhnhan]

Hôm nay Okebab thiếu Vitamin "G" rồi !
Đã thử không có vấn đề gì. Có lẻ chúng ta sẽ bàn về vấn đề khai báo trong buổi sinh họat VEC nào đó.

Lê Thanh Nhân