帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-5-25 18:50 | 只看該作者

[發問] 請求指導簡易月曆行事曆製作

本帖最後由 reangame 於 2014-5-25 18:53 編輯

各位大大您好：
最近想以VBA製作一個簡易月曆行事曆，
可是爬了好多文章，就是找不到簡易月曆行事曆的範例，
我的行程輸入表單已經製作好了，是以一列為一個行程紀錄(欄位包括年、月、日、行程名稱、參加人員等)，
現在想要把資料輸出為月曆行事曆，可是想破頭都還想不出該如何下手，
想要製作的月曆行事曆格式如附檔

月曆.rar (4.97 KB) ，
主要問題出在不知道如何把多筆行程資料依日期輸出到該日期的儲存格，
請問該如何以VBA自動抓取行程記錄後輸出到月曆行事曆，拜託各位大大指點給個方向，感激不盡！

月曆.rar (2.54 KB)

樓主熱帖

我是斯多

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2014-5-26 15:59 | 只看該作者

回復 1# reangame

請附上行程輸入表單的檔案，才知道你的表單結構

學海無涯_不恥下問

TOP

reangame

中學生 Rank: 2

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

3^#

發表於 2014-5-27 21:45 | 只看該作者

回復 2# Hsieh

Hsieh大大，您好：
不好意思，昨天出差沒辦法上網來回覆您，表單如下：

行程表單.rar (47.69 KB)
先跟您報告，主要是想以VBA自動化把一整個月的資料輸出成月曆行事曆，
自動化出現某一個月的月曆，行程資料依日期填入該日期的儲存格，如果同一天有多場行程，儲存格內以一行一筆行程(換行)顯示，
請指導一下，
第一：如何自動化抓取某一個月份讓資料顯示像1樓的月曆格式，
第二：如何將資料依日期填入該日期儲存格，(可能會有日期沒行程，且月曆的日期不為固定位置)

以上，主要還是以第一個問題為主，因不知道如何自動化顯示月曆格式的程式碼寫法，所以，第二問題連測試都沒辦法，請大大協助或者給個方向，感激不盡！

我是斯多

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2014-5-28 11:16 | 只看該作者

本帖最後由 Hsieh 於 2014-5-28 13:45 編輯

回復 3# reangame
行事曆的製作，應該要有選擇年月的機制
設置2個下拉選單如動畫
月曆完成後，行事表單你似乎已經知道寫成資料庫
再將要寫入行事月曆的欄位抓出來即可

月曆.zip (47.18 KB)
工作表模組程式碼

Private Sub ComboBox1_Change()
If ComboBox1 <> "" And ComboBox2 <> "" Then 行事曆製作
End Sub
Private Sub ComboBox2_Change()
If ComboBox1 <> "" And ComboBox2 <> "" Then 行事曆製作
End Sub
Sub 行事曆製作()
Dim Ob As Shape, A As Range
For Each Ob In Me.Shapes
If Not Ob.Name Like "ComboBox*" Then Ob.Delete
Next
[B3:H8].Clear
day1 = DateSerial(Val(ComboBox1), Val(ComboBox2), 1)
day2 = DateSerial(Val(ComboBox1), Val(ComboBox2) + 1, 0)
w = Weekday(day1, vbMonday)
For i = day1 To day2
k = Int((Day(i) + w - 2) / 7)
s = Weekday(i, 2)
Set A = [A3].Offset(k, s)
If s >= 6 Then A.Interior.ColorIndex = 36
With Me.Shapes.AddLabel(msoTextOrientationHorizontal, A.Left, A.Top, 10, 72)
.TextFrame.AutoSize = True
.TextFrame.Characters.Caption = Day(i)
End With
Next
With Range([B3], Cells(A.Row, 8))
For j = 1 To 4
With .Borders(j)
.LineStyle = 1
.Weight = 2
.ColorIndex = xlColorIndexAutomatic
End With
Next
End With
End Sub
Private Sub Worksheet_Activate()
With ComboBox1
For i = .ListCount - 1 To 0 Step -1
.RemoveItem i
Next
For Y = 1999 To 2100
.AddItem Y
Next
.Text = Year(Date)
End With
With ComboBox2
For i = .ListCount - 1 To 0 Step -1
.RemoveItem i
Next
For Y = 1 To 12
.AddItem Y
Next
.Text = Month(Date)
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

reangame

中學生 Rank: 2

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

5^#

發表於 2014-5-28 17:03 | 只看該作者

回復 4# Hsieh

Hsieh大大，您好：
今天休假，下午起來看到您的回覆，真是太驚奇了，
已經測試過確實可以執行，其中感到最特別的程式碼：

For Each Ob In Me.Shapes
If Not Ob.Name Like "ComboBox*" Then Ob.Delete
Next

複製代碼

我查了一下，Like的定義：用來比較兩個字串，
測試Ob.Name得到ComboBox1.ComboBox2.TextBox........
所以，意思是除了ComboBox外的物件都刪除；

k = Int((Day(i) + w - 2) / 7)

複製代碼

這句也是研究半天，後來才搞懂，
因表格第一個欄位是星期一(vbMonday，也就是2)，
Int：傳回數值的整數部份，
藉以計算該日期的儲存格位置是否該往下移動一列，

With Me.Shapes.AddLabel(msoTextOrientationHorizontal, A.Left, A.Top, 10, 72)
.TextFrame.AutoSize = True
.TextFrame.Characters.Caption = Day(i)
End With

複製代碼

以前從沒看過的程式碼，這就是自動加入文字物件的方法。

只能說您實在是太厲害了！小弟實在太敬佩了！
希望以後還請您多多指教！

我是斯多

TOP

reangame

中學生 Rank: 2

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

6^#

發表於 2014-5-28 17:08 | 只看該作者

回復 4# Hsieh

Hsieh大大：
另外請教您一下，您的動畫是如何製作的?
用這個方法來製作教學檔，好像也蠻不錯的。

我是斯多

TOP

yen956

高中生 Rank: 3 Rank: 3

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

7^#

發表於 2014-5-30 08:13 | 只看該作者

回復 4# Hsieh
Hsieh版大，您好：
超級簡明又實用, 收下, 謝謝!!

TOP

phoebegin

中學生 Rank: 2

帖子: 45
主題: 4
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-11-8
最後登錄: 2023-6-14

8^#

發表於 2017-3-16 09:40 | 只看該作者

這地方高手雲集~想要學什麼可以~

最近我也為了月曆的事情大傷腦筋~想不到一回來這~就迎刃而解

真是太棒了

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

9^#

發表於 2017-3-17 09:29 | 只看該作者

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

2327.png (16.01 KB)

TOP

jeffrey628litw

中學生 Rank: 2

帖子: 228
主題: 62
精華: 0
積分: 364
點名: 20
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2024-9-16

2011兔年全勤獎章

10^#

發表於 2017-3-19 18:47 | 只看該作者

小弟不才，本來試4樓超級版主的檔案試不出來。後來發現原來
'Private Sub Worksheet_Activate() 後來發現原來Worksheet要加1
變成Private Sub Worksheet1_Activate() 這樣才跑得動

Private Sub Worksheet1_Activate()
With ComboBox1
For i = .ListCount - 1 To 0 Step -1
.RemoveItem i
Next
For Y = 1999 To 2100
.AddItem Y
Next
.Text = Year(Date)
End With

With ComboBox2
For i = .ListCount - 1 To 0 Step -1
.RemoveItem i
Next
For Y = 1 To 12
.AddItem Y
Next
.Text = Month(Date)
End With
End Sub

TOP