- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
2#
發表於 2014-2-6 17:57
| 只看該作者
本萬年曆特色：
一、適用年限長(西元1900年~西元2200年)
二、有【農曆與陽曆互轉】功能
三、可查詢西元某年24節氣
四、可輕易添加個人公曆紀念日(結婚紀念日等)
五、可輕易添加個人農曆紀念日(老丈人生日等)
六、附顏色代號表, 可輕易依個人喜好變更顏色
七、附原始 VBA Code 如下(節錄), 方便你依個人喜好修改- Sub 處理兒童節(row1, col1, rowOff, shName)
- Dim y As Object
- Dim wd1 As Integer
- Set y = ActiveWorkbook.Sheets(shName)
- y.Activate
- wd1 = Weekday(DateSerial(sY, sM, 4), vbSunday) - 1
- y.Range(y.Cells(row1, col1), y.Cells(row1 + rowOff, col1)).Select
- '若民族掃墓節為(4月)4日
- If 清明日 = 4 Then
- If sD = 4 Then
- y.Cells(row1 + rowOff, col1) = "清明節"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- '如不是星期四, 兒童節提前一日放假
- ElseIf sD = 3 And wd1 <> 4 Then
- y.Cells(row1 + rowOff, col1) = "兒童節"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- '如果剛好為星期四, 則兒童節延後一日放假
- ElseIf sD = 5 And wd1 = 4 Then
- y.Cells(row1 + rowOff, col1) = "兒童節"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- End If
- '否則, 兒童節就是4月4日
- Else
- If sD = 4 Then
- y.Cells(row1 + rowOff, col1) = "兒童節"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- ElseIf sD = 清明日 Then
- y.Cells(row1 + rowOff, col1) = "清明節"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- End If
- End If
- End Sub
|
|
