利用VBA 表單製作萬年曆? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 利用VBA 表單製作萬年曆?

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

利用VBA 表單製作萬年曆?

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

21^# 跳轉到 »

發表於 2013-3-27 10:39 | 只看該作者

回復 mark15jill

萬年曆在現在的系統內已經是內建了
不用VBA日期函數計算星期幾，直接用基準日期間距 ...
Hsieh 發表於 2013-3-27 09:37

Heish大大，印象中，好像2003 還是2007 還是2010 沒有所謂的日曆  這元件..
另外，若用不用VBA日期函數計算星期幾，直接用基準日期間距 ...
   很容易產生，潤2月的情形。
   而且若是又牽扯到需要製作農曆萬年曆，那會有潤農曆月的問題
   呵呵

      抱歉，小弟無知，多言了。

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 135
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-6-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

22^#

發表於 2013-3-27 11:03 | 只看該作者

回復 21# mark15jill
OFFICE 2010以後已經取消了日曆控制項元件
計算星期幾?與閏年無關，因為Windows是以序列號計算日期，而星期就是以7天為一循環
至於農曆閏年，規則太過複雜，必須配合節氣計算，個人才疏學淺無法提出具體做法

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

23^#

發表於 2013-3-27 13:17 | 只看該作者

本帖最後由 GBKEE 於 2013-3-27 13:33 編輯

回復 19# mark15jill
你好像繞了一圈.
回復 21# mark15jill
製作陽曆萬年曆與潤2月是沒有關係的

Sub Ex()
Dim D As String
D = "2013/2/21"
MsgBox D & " 後一天 " & DateSerial(Year(D), Month(D) + 1, 0)
'每月的後一天
MsgBox Format(D, "aaa")
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

24^#

發表於 2013-3-27 15:32 | 只看該作者

回復 mark15jill
你好像繞了一圈.
回復 mark15jill
製作陽曆萬年曆與潤2月是沒有關係的
GBKEE 發表於 2013-3-27 13:17

感謝兩位大大的教導，小弟受教了。

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

25^#

發表於 2013-3-28 14:22 | 只看該作者

回復 19# mark15jill

(@@)...好多Dim
看得眼花撩亂...
建議可以用簡單的A、B、C、D來命名(u_u)

Jared

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

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