Giúp: Hàm UCase trong VBA

[onlineXP]

Các bạn vui lòng giúp mình:
Mình có tạo 1 hàm như sau để chuyển chữ thường thành chữ in hoa

Function UpperUni(uni) As String
    UpperUni = UCase(uni)
End Function

Tuy nhiên, trước đây chạy bình thường không sao cả nhưng gần đây thì chạy trên 1 số máy khác nó báo lỗi
Run-time error '13':
Type mismatch

Xin cảm ơn

 

[Hai Lúa Miền Tây]

Các bạn vui lòng giúp mình:
Mình có tạo 1 hàm như sau để chuyển chữ thường thành chữ in hoa

Function UpperUni(uni) As String
    UpperUni = UCase(uni)
End Function

Tuy nhiên, trước đây chạy bình thường không sao cả nhưng gần đây thì chạy trên 1 số máy khác nó báo lỗi
Run-time error '13':
Type mismatch

Xin cảm ơn

Mình thử bình thường, bạn thử sang hàm khác xem.

Function UpperUni(uni) As String
    UpperUni = StrConv(uni, 1)
End Function

 

[SA_DQ]

Có khi VBA hay Office thiếu/mất cái gì đó không chừng.

 

[ptm0412]

Run-time error '13':
Type mismatch

Có khi nào bạn dùng hàm cho ô chứa số chăng?

 

[Hoàng Trọng Nghĩa]

Bạn thử thêm phần màu đỏ vào xem:

Function UpperUni([COLOR=#ff0000][B]uni As String[/B][/COLOR]) As String
    UpperUni = UCase(uni)
End Function

 

[onlineXP]

Cảm ơn các chú các anh
Em làm như minhthien321 thì đã khắc phục được lỗi
Chúc các anh nhiều sức khoẻ. Xin cảm ơn!