函數行事曆

劍魔 · 发表于 2002-4-17 06:47

經過這一陣子觀察本論譠對於函數已有相當水準，網友所提的問題都能很快得到解答，身為版主總不能無所建樹，為了讓大家對函數有新的體驗，提供一個用函數做的行事曆，本來是萬年曆，為了節省空間設定從2001年起算，遇到當日日期會變色，點選日期後自動到對應儲存格，可輸入當日行事曆內容，查詢日期如不輸入則顯示今日備忘錄內容，相信這是一個前所未見的創意，有空不妨試試看。當然，如果加些簡單的vba會更好用，例如讓它開啟時顯示今日內容、大小能隨螢幕變動...等等，但在函數版便不多加介紹，畢竟本人vba功力也不高。不知繁簡字體對於公式是否造成影響，工作表僅設保護，但並未設定密碼，有空的人可改成簡體版上傳。[upload=zip]uploadImages/200241622572298500.zip[/upload]

[此贴子已经被劍魔于2002-4-17 6:47:53编辑过]

wswx · 发表于 2002-4-16 23:01

To:劍魔出手不凡佳作连连

点点星 · 发表于 2002-4-17 18:46

连wswx都说“出手不凡佳作连连”，肯定错不了，下下来学习。谢谢剑魔！

dannycyf · 发表于 2002-4-18 00:48

条件格式 + 超链接,不可以吗?

dodo · 发表于 2002-4-18 15:15

我正想作這個,卻被版主先作出來了,厲害厲害(其實我作好久都作不出來) 謝謝

劍魔 · 发表于 2002-4-18 22:19

To:wswx 謝謝誇獎，可惜識貨的可能只有老夏、你和樓上幾位同志。對於你的作品我也非常有興趣，可惜有時都受到繁簡字體的限制而作罷。

dodo · 发表于 2002-4-21 14:43

劍魔兄: 稍做修改請指教: 1.加入查詢巨集,功力不是很好請高手指導 2.加入未來三天備忘錄顯示,以便提早知到行程 3.加入圖片月曆 4.進入行事曆自動將年/月調成當天之年月(目標未完成) 简体稍做修改请指教: 1.加入查询宏,功力不是很好请高手指导 2.加入未来三天备忘录显示,以便提早知到行程 3.加入图片月历 4.进入行事历自动将年/月调成当天之年月(目标未完成) [upload=zip]uploadImages/200242114432387148.zip[/upload]

dodo · 发表于 2002-4-21 15:24

TO:KK 檔案在樓上

劍魔 · 发表于 2002-4-21 22:09

TO:dodo 再加個巨集即可 Private Sub Workbook_Open() ScreenUpdating = False Worksheets("萬年曆").[d1] = Year(Now()) - 1911 Worksheets("萬年曆").[E1] = Month(Now()) [b1].Select End Sub

dodo · 发表于 2002-4-22 08:19

謝版主

		自动登录	找回密码
密码			免费注册

函數行事曆

评分