Các bác cho em hỏi là em có làm 1 userFunction Tach_NgayNT
Trong đó biến TrueOrFalse là tùy chọn (Optional)
Giả sử ô B2 là ngày 30/10/2015
Ô D2 có công thức =Tach_NgayNT(B2) (Bỏ qua biến TrueOrFalse). Nhưng kết quả trong ô D2 lại là Ngày 30 tháng 10 năm 2015. Khi em dùng hàm IsMissing(TrueOrFalse) để kiểm tra biến TrueOrFalse có được nhập vào hay không? Lẽ ra nó phải trả về ngày 30 tháng 10 năm 2015 chứ nhỉ?
Các bác giúp em với
Mã:
Function Tach_NgayNT(Rng As String, Optional TrueOrFalse As Boolean)
If IsMissing(TrueOrFalse) Or TrueOrFalse = True Then
If Rng <> "" Then
Tach_NgayNT = "ngày " & Application.WorksheetFunction.Text(Day(Rng), "00") & " tháng " & Application.WorksheetFunction.Text(Month(Rng), "00") & " n" & ChrW(259) & "m " & Year(Rng)
Else
Tach_NgayNT = "ngày ......... tháng ........." & " n" & ChrW(259) & "m 201......"
End If
ElseIf TrueOrFalse = False Then
If Rng <> "" Then
Tach_NgayNT = "Ngày " & Application.WorksheetFunction.Text(Day(Rng), "00") & " tháng " & Application.WorksheetFunction.Text(Month(Rng), "00") & " n" & ChrW(259) & "m " & Year(Rng)
Else
Tach_NgayNT = "Ngày ......... tháng ........." & " n" & ChrW(259) & "m 201......"
End If
End If
End Function
Giả sử ô B2 là ngày 30/10/2015
Ô D2 có công thức =Tach_NgayNT(B2) (Bỏ qua biến TrueOrFalse). Nhưng kết quả trong ô D2 lại là Ngày 30 tháng 10 năm 2015. Khi em dùng hàm IsMissing(TrueOrFalse) để kiểm tra biến TrueOrFalse có được nhập vào hay không? Lẽ ra nó phải trả về ngày 30 tháng 10 năm 2015 chứ nhỉ?
Các bác giúp em với