請高手指點一下，如何做出動態的行事曆及雙擊選擇輸入的功能？

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

2^#

發表於 2013-12-14 23:39 | 顯示全部帖子

如附件
https://dl.dropboxusercontent.com/u/12575824/%E8%A1%8C%E4%BA%8B%E6%9B%86.xls

每個月的第一天，我用 =eomonth(TODAY(),quotient(COLUMN()-2,8)+quotient(ROW()-2,9)*4-5)+1 解決了

每個月的每一天，我用
OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)
-(weekday( OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,),1)-1)
+ MOD(ROW()-4,9)*7
+MOD(COLUMN()-2,8)

解決了
為了要好看，又加上了
=if( month(OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,))<>
month(OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)-(weekday( OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,),1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8)),
"",
OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)-(weekday( OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,),1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8))

※現在的問題
不難發現，指令太長了，又臭又長
OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)-(weekday( OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,),1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8)
太長了，我原本想要用插入->名稱->定義的方式解決，但是定義 month_first_day -->OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)

再將每日的計算公式寫成
=if( month( month_first_day)<>
month( month_first_day-(weekday( month_first_day,1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8)),
"",
month_first_day-(weekday( month_first_day,1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8))

無法使用，請指教、指點，謝謝

公開經驗，創造智慧（我又不靠這過活）

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

3^#

發表於 2013-12-16 11:58 | 顯示全部帖子

回復 3# GBKEE

謝謝大大的大力幫忙，我試著修改，目前已經『大致』ok了，

我參考你的範例，修改程式

如附件
https://dl.dropboxusercontent.com/u/12575824/%E8%A1%8C%E4%BA%8B%E6%9B%86.xls

Option Explicit
'工作表模組:雙擊儲存格程式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim aa As Integer
Cells(7, 2).Value = Target.Cells(1, 1) 'copy to B2
'Cells(7, 2).NumberFormatLocal = "G/通用格式"
Ex Cells(7, 2), Target.Parent
'Target.Select
End Sub
Private Sub Ex(Rng As Range, sh As Worksheet)
Dim E As Range
If Rng = "" Then Exit Sub
If IsNumeric(Rng) Then
Sheets("Sheet1").Activate
If Selection.Row > 1 And Selection.Row < 52 And Selection.Column >= 6 And Selection.Column <= 7 Then
Selection.Value = Rng
End If
End If
End Sub

複製代碼

加到 sheet 月曆之中，並在 sheet1 之中加入

Option Explicit
'工作表模組:雙擊儲存格程式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells(1).Row > 1 And Target.Cells(1).Row < 52 And Target.Cells(1).Column >= 6 And Target.Cells(1).Column <= 7 Then
Sheets("月曆").Activate
End If
End Sub

複製代碼

如此一來，我便可以在兩個sheet 中，用雙擊做切換。（這部份功能ok了，十二萬分的感謝）

現在我不了解的是

一、原本提供的程式是

Ex Target.Cells(1), Target.Parent

這個 Target.Cells(1) 我怎麼改，都改不出原始值（都是經過格式化的資料），最後我沒折，只好將值寫到b2 ，再將b2 的值丟出來（看不到值是因為字型顏色我調整白色）

二、
計算日期
=if(       month(OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,))<>
      month(OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)-(weekday(       OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,),1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8)),
      "",
      OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,)-(weekday(       OFFSET($B$2,QUOTIENT(ROW()-4,9)*9,QUOTIENT(COLUMN()-2,8)*8,,),1)-1)+ MOD(ROW()-4,9)*7 +MOD(COLUMN()-2,8))
這個熱熱長的程式，有機會縮短嗎？（例如用名稱定義）

公開經驗，創造智慧（我又不靠這過活）

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

4^#

發表於 2013-12-16 16:47 | 顯示全部帖子

追求完全的最後一關，將右側表列的休假日，在左側的月曆中，將字型改用紅色

如附件
https://dl.dropboxusercontent.com/u/12575824/%E8%A1%8C%E4%BA%8B%E6%9B%86.xls

因為日期都是用算的，位置不固定，我不知如何下手

就算用『設定格式化的條件』也只能有三個條件，無法將數十個日期加上去，請高手指點~~謝謝

公開經驗，創造智慧（我又不靠這過活）

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

5^#

發表於 2013-12-16 21:15 | 顯示全部帖子

回復 6# GBKEE

呵~~我的眼力也很差，寫的時候，我是用 ultraedit 一段一段拼出來後，才貼到 excel

目前我用眼不見為淨的方式，儲存格格式->保護->隱藏加上工具->保護將公式隱藏起來（不然一點儲存格，整個畫面#$$^%）

公開經驗，創造智慧（我又不靠這過活）

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

6^#

發表於 2013-12-16 21:26 | 顯示全部帖子

回復 6# GBKEE

我試過 Ex Target, Target.Parent

雙擊時target 變成 1/23/2014 經過格式化的值而不是 41662 ，以致於後面我的檢查程序都無法運作。

日曆上的日期都是正確的日期，只是透過儲存格格式自定成 DD 或 YYYY-MM ，原始資料都還是數值

利用這樣的特性，我在雙擊儲存格時，我就知道使用者點擊的是不是日期。

公開經驗，創造智慧（我又不靠這過活）

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

7^#

發表於 2013-12-16 23:20 | 顯示全部帖子

回復 9# stillfish00

Dear Sir,
麻煩再幫一下

如附件
https://dl.dropboxusercontent.com/u/12575824/%E8%A1%8C%E4%BA%8B%E6%9B%86.xls

quotient 到底是那出了問題？

公開經驗，創造智慧（我又不靠這過活）

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

8^#

發表於 2013-12-17 01:07 | 顯示全部帖子

回復 12# stillfish00

最後的解法： =OFFSET($B$2,int((ROW()-4)/9)*9,int((COLUMN()-2)/8)*8,,)

用 int(a/b) 取代 quotient(a,b)

出問題的原因因該是 excel 2003 quotient 屬於增益集，非excel 本生的function.

出錯的原因應該是 quotient ( row()-4,9) row()-4 算出來的值不是數字，is nonnumeric .

將quotient 用 int(a/b)取代之後就可以被名稱定義取代。

換成更高版本應該就不會有這樣的怪現象。

公開經驗，創造智慧（我又不靠這過活）