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

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

2^#

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

回復 1# Jared

1.印象中，論壇有 office專用月曆附件... 可以找看看。
2.是否有考慮潤年的潤二月？(28 29)
3.呈現方式為?? 處發方式？

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

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

  少看=只看不做也枉然

TOP

Jared

中學生 Rank: 2

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

3^#

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

本帖最後由 Jared 於 2013-3-25 15:59 編輯

回復 2# mark15jill

感謝大大回覆:)
如果是要利用表單自行寫程式
這樣可行嗎?
因為我在念書時老師有教過利用VB 來寫過
但已經距離我很久了...

觸發方式
當我選擇年(A)、月(B)後
底下的點選數字會浮現出來
小於1 & 大於31會隱藏起來
當然還有月份沒31號的也隱藏

至於潤二月(@@)..好像要套公式進去
這樣可行嗎??

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

4^#

發表於 2013-3-25 16:49 | 只看該作者

回復 3# Jared

簡易版萬年曆
但會有
1. 30 31 的判斷問題
2. 潤2月問題...
3. 物件隱藏問題
但以上問題相信依照您的能力可自己去添加

執行畫面

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

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

  少看=只看不做也枉然

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兔年全勤獎章

5^#

發表於 2013-3-25 17:41 | 只看該作者

本帖最後由 GBKEE 於 2013-3-25 20:34 編輯

回復 4# mark15jill
試試看

DSC00220[1].JPG.rar (13.38 KB)

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

TOP

Jared

中學生 Rank: 2

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

6^#

發表於 2013-3-26 09:22 | 只看該作者

回復 4# mark15jill

感謝大大大力協助
畫面上呈現的跟我預想的一樣(0口0)"
  看來我真的修行不夠><
  原本我程式是寫這樣
但程式就判斷找不到DAY_i.Caption 這個成員....
繼續努力中...
Private Sub ComboBox2_Change()
If ComboBox1.ListIndex > -1 Then
chang_day
a = DateSerial(ComboBox1.Value, ComboBox2.Value, 1)       '本月起始日
b = DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 1)    '下月起始日
c = DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 1) - 1 '本月結束日
d = Weekday(TextBox1)                                     '第一天位置
Else
ComboBox2 = ""
End If
End Sub

Sub chang_day()
Dim i, j, x, y

y = DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 1) - 1
For i = 1 To 42
x = DAY_i - Weekday(DateSerial(ComboBox1.Value, ComboBox2.Value, 1)) + (DAY_i - 3) * 7
DAY_i.Caption = x
Next
End Sub

Jared

TOP

GBKEE