Cod bị báo lỗi do đâu

[thong_xanh2003]

Tôi đang tạo addin mới bằng đoạn cod sau:
Function NgayThangNam(ByVal bDate As Date) As String
Dim NGAY As Byte, Thang As Byte
Dim Nam As Integer
NGAY = Day(Date)
Thang = Month(Date)
Nam = Yaer(Date)
NgayThangNam="Ngµy"&NGAY& "th¸ng" &Thang& "n¨m"&Nam
End Function
Nhưng ở dòng(NgayThangNam="Ngµy"&NGAY& "th¸ng" &Thang& "n¨m"&Nam) bị báo chữ đỏ , không biết do soạn sai cái gì, các bác chỉ giúp với.

 

[minhlev]

Giữa các dấu & của bạn với các ký tự phải có khoảng trống thì mới được.

 

[ThuNghi]

Function NgayThangNam(ByVal bDate As Date) As String
Dim NGAY As Byte, Thang As Byte
Dim Nam As Integer
NGAY = Day(Date)
Thang = Month(Date)
Nam = Year(Date)
NgayThangNam = "Ngµy " & NGAY & "th¸ng " & Thang & "n¨m " & Nam
End Function

Cách 1 blank giữa text và biến. Thua bạn luôn, sao không format, custom
"Ngµy " dd "th¸ng " & mm"n¨m " yyyy

 

[thong_xanh2003]

Cảm ơn nhiều , tôi làm được rồi

 

[SA_DQ]

Vô menu Insert - Name - Define Name

Tôi đang tạo addin mới bằng đoạn cod sau:
Function NgayThangNam(ByVal bDate As Date) As String
End Function
Nhưng . . .

Thêm 1 cách để bạn tham khảo:
Trong CS Define name ta nhập ten là NgayVN;
Trong ô Refers to ta nhập dòng sau:
="Kiến an, ngày " & RIGHT("0" & DAY(TODAY()),2) & " tháng " & RIGHT("0" & MONTH(TODAY()),2) & " năm " & YEAR(TODAY()) & "."
& lưu lại; Tại bất kỳ ô nào trên workbook bạn nhập:
=NgayVN sẽ hiện ra ~ zì bạn cần!