(萬年曆)月曆(西元1900年~2200年)

yen956

附原始巨集指令(Excel 2003)
http://www.youtube.com/watch?v=6Q2v3z_URT0
http://www.mediafire.com/download/5dbvizamol644ri/%28%E6%9F%A5%E8%A1%A8%E6%B3%95%29%E6%9C%88%E6%9B%86%28%E6%A0%BC%E5%BC%8F1%29%28%E8%A5%BF%E5%85%831900%E5%B9%B4~2200%E5%B9%B4%29.rar

yen956

本萬年曆特色：
一、適用年限長(西元1900年~西元2200年)
二、有【農曆與陽曆互轉】功能

三、可查詢西元某年24節氣

四、可輕易添加個人公曆紀念日(結婚紀念日等)

五、可輕易添加個人農曆紀念日(老丈人生日等)

六、附顏色代號表, 可輕易依個人喜好變更顏色

七、附原始 VBA Code 如下(節錄), 方便你依個人喜好修改

1. Sub 處理兒童節(row1, col1, rowOff, shName)
   
2.    Dim y As Object
   
3.    Dim wd1 As Integer
   
4.    Set y = ActiveWorkbook.Sheets(shName)
   
5.    y.Activate
   
6.    wd1 = Weekday(DateSerial(sY, sM, 4), vbSunday) - 1
   
7.    y.Range(y.Cells(row1, col1), y.Cells(row1 + rowOff, col1)).Select
   
8.    '若民族掃墓節為(4月)4日
   
9.    If 清明日 = 4 Then
   
10.       If sD = 4 Then
    
11.          y.Cells(row1 + rowOff, col1) = "清明節"
    
12.             Selection.Interior.ColorIndex = 38
    
13.             Selection.Font.ColorIndex = 3
    
14. 
    
15.       '如不是星期四, 兒童節提前一日放假
    
16.       ElseIf sD = 3 And wd1 <> 4 Then
    
17.          y.Cells(row1 + rowOff, col1) = "兒童節"
    
18.             Selection.Interior.ColorIndex = 38
    
19.             Selection.Font.ColorIndex = 3
    
20. 
    
21.       '如果剛好為星期四, 則兒童節延後一日放假
    
22.       ElseIf sD = 5 And wd1 = 4 Then
    
23.          y.Cells(row1 + rowOff, col1) = "兒童節"
    
24.             Selection.Interior.ColorIndex = 38
    
25.             Selection.Font.ColorIndex = 3
    
26.       End If
    
27. 
    
28.    '否則, 兒童節就是4月4日
    
29.    Else
    
30.       If sD = 4 Then
    
31.          y.Cells(row1 + rowOff, col1) = "兒童節"
    
32.             Selection.Interior.ColorIndex = 38
    
33.             Selection.Font.ColorIndex = 3
    
34.       ElseIf sD = 清明日 Then
    
35.          y.Cells(row1 + rowOff, col1) = "清明節"
    
36.             Selection.Interior.ColorIndex = 38
    
37.             Selection.Font.ColorIndex = 3
    
38.       End If
    
39.    End If
    
40. End Sub

複製代碼

chairles59

回復 2# yen956

請問大大:
有沒有壓縮檔案可以下載
上網頁下載不來

謝謝

yen956

回復 3# chairles59
因原vba有bug, 想要回收, 又不知如何回收,
造成困擾, 謹此至歉,
下列兩檔未附VBA, 請自行參考
2016年曆(三合一).rar (47.01 KB)

下載次數: 4

2016-5-8 19:01

2017年曆(三合一).rar (46.24 KB)

下載次數: 8

2016-5-8 19:01

yen956

回復 3# chairles59
因原vba有bug, 想要回收, 又不知如何回收,
造成困擾, 謹此至歉,
下列兩檔未附VBA, 請自行參考
[attach]24200[/attach]
[attach]24201[/attach]

c_c_lai

回復 3# chairles59
請參考 sunnyso 大大發表於 2013-4-7 的
Excel 農曆與國曆 萬年曆

chairles59

回復 6# c_c_lai

c_c_lai 大大:
謝謝您給的資料

hcm19522

http://blog.xuite.net/hcm19522/twblog/352566544

Kubi

回復 5# yen956
Excel 2007 版以上已不再內建[月曆控制項]，因此私下寫了一隻類月曆控制項UserForm模組，用法與Calendar1相同。

UserForm.rar (2.6 KB)

下載次數: 6

2016-5-12 20:50

Kubi

回復 9# Kubi
不好意思，下載檔(UserForm.rar)內發現1處Bug，現已經更正了，
煩請重新下載：
UserForm1.rar (2.64 KB)

下載次數: 5

2016-5-12 21:47