返回列表 上一主題 發帖

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

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

附原始巨集指令(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

本萬年曆特色:
一、適用年限長(西元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.       ElseIf sD = 3 And wd1 <> 4 Then
  16.          y.Cells(row1 + rowOff, col1) = "兒童節"
  17.             Selection.Interior.ColorIndex = 38
  18.             Selection.Font.ColorIndex = 3

  19.       '如果剛好為星期四, 則兒童節延後一日放假
  20.       ElseIf sD = 5 And wd1 = 4 Then
  21.          y.Cells(row1 + rowOff, col1) = "兒童節"
  22.             Selection.Interior.ColorIndex = 38
  23.             Selection.Font.ColorIndex = 3
  24.       End If

  25.    '否則, 兒童節就是4月4日
  26.    Else
  27.       If sD = 4 Then
  28.          y.Cells(row1 + rowOff, col1) = "兒童節"
  29.             Selection.Interior.ColorIndex = 38
  30.             Selection.Font.ColorIndex = 3
  31.       ElseIf sD = 清明日 Then
  32.          y.Cells(row1 + rowOff, col1) = "清明節"
  33.             Selection.Interior.ColorIndex = 38
  34.             Selection.Font.ColorIndex = 3
  35.       End If
  36.    End If
  37. End Sub
複製代碼

TOP

回復 2# yen956

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

謝謝
michael

TOP

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

TOP

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

TOP

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

TOP

回復 6# c_c_lai

c_c_lai 大大:
謝謝您給的資料
michael

TOP

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

TOP

本帖最後由 Kubi 於 2016-5-12 20:55 編輯

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

UserForm.rar (2.6 KB)

TOP

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

TOP

        靜思自在 : 做好事不能少我一人,做壞事不能多我一人。
返回列表 上一主題