万年历（带公、农历节日，节气，可自己添加纪念日，有周历、台历方便记事，可打印）

月满西楼堕落

很好用，非常强大。谢谢分享。

emmarose

做得不错，很细心，蛮好的

michaelaa

赞，谢谢楼主分享。

topliubaozhu

这个是好东西，必须顶！

遗忘123

谢谢楼主的分享

hxw5511

做得不错，很细心，蛮好的.

清风水月

发在VBA版块是只见下载不见回复，这里也一样啊！！！

YZC51

酿雪 发表于 2013-1-14 09:04
节日设定上有问题呀，我设定的节日无法显示

Private Sub Workbook_Open()
Dim arr
arr = Sheet4.Range("a1:b34")
For i = 1 To UBound(arr)
    dic(CStr(arr(i, 1))) = arr(i, 2)
Next
For i = 1920 To 2100
    Sheet1.ComboBox1.AddItem i
Next
Sheet1.ComboBox1.ListIndex = -1
End Sub
这句
arr = Sheet4.Range("a1:b34")
修改为
arr = Sheet4.Range("a1:b134")
试试

南辞

找了好久了，谢谢分享............

xdmn

（例如日期：88，名称：我的生日，日历中显示我的生日）
楼主，我把日期改了，为何我的生日还是显示在8月8日？后来我把节日表删除了，8月8日还是坚持不懈的显示“我的生日”。不知道是为什么。  其他的也是一样，不管我在节日表那里怎么改，在日历表那里都没有变动。