Mã code chạy được trong file *.xls nhưng lại bị lỗi trong file *.xlsm

[trantien123]

Em có 1 functions viết và lưu trong file excel định đạng là *.xls thì sử dụng functions được bình thường, nhưng nếu lưu ở định dạng *xlsm thì khi sử dụng functions báo lỗi #REF!.
Mọi người có thể cho em biết lỗi này là lỗi gì, và xử lý như thế nào ạ.
Functions của em như sau:
Public Function NTN1(num2 As Date)
If Day(num2) > 9 And Month(num2) > 9 Then
NTN1 = " ng" & ChrW(224) & "y " & Day(num2) & "/" & Month(num2) & "/" & Year(num2)
ElseIf Day(num2) < 10 And Month(num2) < 10 Then
NTN1 = " ng" & ChrW(224) & "y " & "0" & Day(num2) & "/" & "0" & Month(num2) & "/" & Year(num2)
ElseIf Day(num2) < 10 And Month(num2) > 9 Then
NTN1 = " ng" & ChrW(224) & "y " & "0" & Day(num2) & "/" & Month(num2) & "/" & Year(num2)
ElseIf Day(num2) > 9 And Month(num2) < 10 Then
NTN1 = " ng" & ChrW(224) & "y " & Day(num2) & "/" & "0" & Month(num2) & "/" & Year(num2)
End If
End Function

 

[Maika8008]

Không tải file lên được hả bạn?

 

[befaint]

Function NTN1(num2 As Date)

Đổi thành
Function TranTienXinhGai(byval num2 As Date) là được liền.

 

[trantien123]

Đổi thành
Function TranTienXinhGai(byval num2 As Date) là được liền.

mình thêm byval trước vẫn không được

 

[befaint]

mình thêm byval trước vẫn không được

Kêu làm gì thì mình làm y chang thế. Không tự ý làm theo ý thích. Đảm bảo là được 300%.

 

[Maika8008]

mình thêm byval trước vẫn không được

Cứ làm như bài #3 (tên gì thì tùy). Lý do:

 

[trantien123]

Không tải file lên được hả bạn?

2 File có chứa function giống nhau, nhưng file đuôi .xls thì hoạt động được bình thường còn file .xlsm thì bị lỗi

 

[befaint]

Viết hàm thấy gớm quá.

Dùng công thức này là được rồi.
="ngày " & text(A1, "dd/mm/yyyy")

Còn vờ bờ a thì vầy:

Function dinhDangNgay(byval dDate as Long) as String
const strFormat = "dd/mm/yyyy"
dinhDangNgay = " ng" & ChrW(224) & "y " & format(dDate, strFormat)
End Function

 

[trantien123]

mình hiểu rồi, cảm ơn mọi người nhiều ạ

 

[Maika8008]

2 File có chứa function giống nhau, nhưng file đuôi .xls thì hoạt động được bình thường còn file .xlsm thì bị lỗi

Chừ không cần file nữa. Nguyên nhân đã nói ở bài #6.

 

[Phuocam]

2 File có chứa function giống nhau, nhưng file đuôi .xls thì hoạt động được bình thường còn file .xlsm thì bị lỗi

Thử cái này:

Public Function NgayThangNam(ByVal dat As Date) As String
    NgayThangNam = "Ng" & ChrW(224) & "y " & Format(dat, "dd/mm/yyyy")
End Function