返回列表 上一主題 發帖

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

reangame

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

收藏 分享
我是斯多

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
2#
發表於 2014-5-27 21:45 | 顯示全部帖子
回復 2# Hsieh

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

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

TOP

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
3#
發表於 2014-5-28 17:03 | 顯示全部帖子
回復 4# Hsieh

Hsieh大大，您好：
今天休假，下午起來看到您的回覆，真是太驚奇了，
已經測試過確實可以執行，其中感到最特別的程式碼：
  1.     For Each Ob In Me.Shapes
  2.         If Not Ob.Name Like "ComboBox*" Then Ob.Delete
  3.     Next
複製代碼
我查了一下，Like的定義：用來比較兩個字串，
測試Ob.Name得到ComboBox1.ComboBox2.TextBox........
所以，意思是除了ComboBox外的物件都刪除；
  1. k = Int((Day(i) + w - 2) / 7)
複製代碼
這句也是研究半天，後來才搞懂，
因表格第一個欄位是星期一(vbMonday，也就是2)，
Int：傳回數值的整數部份，
藉以計算該日期的儲存格位置是否該往下移動一列，
  1.         With Me.Shapes.AddLabel(msoTextOrientationHorizontal, A.Left, A.Top, 10, 72)
  2.             .TextFrame.AutoSize = True
  3.             .TextFrame.Characters.Caption = Day(i)
  4.         End With
複製代碼
以前從沒看過的程式碼，這就是自動加入文字物件的方法。

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

TOP

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
4#
發表於 2014-5-28 17:08 | 顯示全部帖子
回復 4# Hsieh

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

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題