麻辣家族討論版版 » Excelㄧ般區 » (萬年曆)月曆(西元1900年~2200年)

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

10^#

發表於 2016-5-12 21:47 | 只看該作者

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

UserForm1.rar (2.64 KB)

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

9^#

發表於 2016-5-12 20:54 | 只看該作者

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

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

UserForm.rar (2.6 KB)

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-19

熱烈參與勳章

8^#

發表於 2016-5-10 09:49 | 只看該作者

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

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

7^#

發表於 2016-5-8 23:05 | 只看該作者

回復 6# c_c_lai

c_c_lai 大大:
謝謝您給的資料

michael

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-5-8 19:45 | 只看該作者

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

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 2016-5-8 19:02 | 只看該作者

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

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2016-5-8 19:02 | 只看該作者

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

2016年曆(三合一).rar (47.01 KB)

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

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

3^#

發表於 2016-5-7 22:19 | 只看該作者

回復 2# yen956

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

謝謝

michael

高中生 Rank: 3 Rank: 3

帖子: 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

複製代碼

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題