Board logo

標題: (萬年曆)月曆(西元1900年~2200年) [打印本頁]
作者: yen956    時間: 2014-1-28 06:53     標題: (萬年曆)月曆(西元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
作者: yen956    時間: 2014-2-6 17:57

本萬年曆特色：
一、適用年限長(西元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

  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

  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

  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    時間: 2016-5-7 22:19

回復 2# yen956

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

謝謝
作者: yen956    時間: 2016-5-8 19:02

回復 3# chairles59
因原vba有bug, 想要回收, 又不知如何回收,
造成困擾, 謹此至歉,
下列兩檔未附VBA, 請自行參考
[attach]24200[/attach]
[attach]24201[/attach]
作者: yen956    時間: 2016-5-8 19:02

回復 3# chairles59
因原vba有bug, 想要回收, 又不知如何回收,
造成困擾, 謹此至歉,
下列兩檔未附VBA, 請自行參考
[attach]24200[/attach]
[attach]24201[/attach]
作者: c_c_lai    時間: 2016-5-8 19:45

回復 3# chairles59
請參考 sunnyso 大大發表於 2013-4-7 的
Excel 農曆與國曆 萬年曆
作者: chairles59    時間: 2016-5-8 23:05

回復 6# c_c_lai

c_c_lai 大大:
謝謝您給的資料
作者: hcm19522    時間: 2016-5-10 09:49

http://blog.xuite.net/hcm19522/twblog/352566544
作者: Kubi    時間: 2016-5-12 20:54

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

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

[attach]24274[/attach]
作者: Kubi    時間: 2016-5-12 21:47

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)