想让上面自动显示大写日期 如二〇一〇 九 廿六

将以下函数：

Function Myday(Mydate As Date) As String
'功能：将日期转换为大写
Dim i As Long
Dim n As Long

For i = 1 To 4
    n = Val(Mid(Year(Mydate), i, 1))
    If n = 0 Then
        Myday = Myday & "〇"
    Else
        Myday = Myday & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九")
    End If
Next
Myday = Myday & "年"

n = Month(Mydate)
Myday = Myday & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二") & "月"
n = Day(Mydate)
Myday = Myday & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", _
                           "十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", "十九", "廿", _
                           "廿一", "廿二", "廿三", "廿四", "廿五", "廿六", "廿七", "廿八", "廿九", "卅", "卅一") & "日"
End Function

分解成三个函数即可：

Function Myday(Mydate As Date) As String
'功能：将日期转换为大写日
Dim n As Long
n = Day(Mydate)
Myday =Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", _
       "十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", "十九", "廿", _
       "廿一", "廿二", "廿三", "廿四", "廿五", "廿六", "廿七", "廿八", "廿九", "卅", "卅一") & "日"
End Function

Function Mymonth(Mydate As Date) As String
'功能：将日期转换为大写月
Dim n As Long
n = Month(Mydate)
Myday = Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二") & "月"
End Function

Function Myyear(Mydate As Date) As String
'功能：将日期转换为大写年
Dim i As Long
Dim n As Long

For i = 1 To 4
    n = Val(Mid(Year(Mydate), i, 1))
    If n = 0 Then
        Myday = Myday & "〇"
    Else
        Myday = Myday & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九")
    End If
Next
Myday = Myday & "年"
End Function