Jared

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-3-25 15:33 | 只看該作者

利用VBA 表單製作萬年曆?

VBA

想請問各位大大
如果我想利用VBA表單功能來製作萬年曆
但就是不知道如何著手

網路上能搜尋到的資源
都是利用函數在Sheet 上面運算
有試過轉移到表單上面去執行

卻不知道少了什麼
表單的配置如下

希望有高人指點迷津，感激不盡>"<

樓主熱帖

Jared

中學生 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

TOP

mark15jill

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

高中生 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

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

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

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

  少看=只看不做也枉然

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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天為一循環
至於農曆閏年，規則太過複雜，必須配合節氣計算，個人才疏學淺無法提出具體做法

學海無涯_不恥下問

TOP

mark15jill

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

高中生 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月的情形。
   而且若是又牽扯到需要製作農曆萬年曆，那會有潤農曆月的問題
   呵呵

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

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

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

  少看=只看不做也枉然

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

20^#

發表於 2013-3-27 09:37 | 只看該作者

本帖最後由 Hsieh 於 2013-3-27 09:46 編輯

回復 19# mark15jill

萬年曆在現在的系統內已經是內建了
不用VBA日期函數計算星期幾，直接用基準日期間距來算就對了
系統支援最小日期1900/1/1是星期日其日期序列號為1

d = CDate(InputBox("輸入完整西元日期字串", , Date))
MsgBox IIf((d - 1) Mod 7, (d - 1) Mod 7, 7)

複製代碼

學海無涯_不恥下問

TOP

mark15jill

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

高中生 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

19^#

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

回復 mark15jill
星期錯亂: 你是用何函數
傳上程式碼看看
GBKEE 發表於 2013-3-26 17:02

任何高深函數都沒用到... XDD

         Dim K1, K2, K3 As Integer
         Dim yy, dd, mm, wek, dss, dds31, dds30, dds2, dds28, dds29 As Integer
         Dim uny, unm, und, unym, unmd As String
         Dim weeks(6) As String

         DTP1 = DaTiPi.Text
         uny = InStr(DTP1, "年") - 1 : unm = InStr(1, DTP1, "月") : und = InStr(DTP1, "日") - 1
         unym = Mid(DTP1, uny + 1, unm - 5) : unmd = Mid(DTP1, unm + 1, und - 1)

         K1 = InStr(1, DTP1, "年") : K2 = InStr(1, DTP1, "月") : K3 = InStr(1, DTP1, "日")

         yy = Mid(DTP1, 1, K1 - 1) '年
         mm = Mid(DTP1, K1 + 1, (K2 - K1) - 1) '月
         dd = Mid(DTP1, K2 + 1, (K3 - K2) - 1) '日
         dss = 30 + ((mm + (mm > 7)) Mod 2) + (2 + (yy Mod 4 = 0) + (yy Mod 100 = 0) * (yy Mod 400 <> 0)) * (mm = 2) '日二月專用
         dds31 = 31 : dds30 = 30  'dds 為  31日和 30日
         dds2 = dss '日二月專用

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

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

  少看=只看不做也枉然

TOP

GBKEE