[發問] 寫一個天數累加的自訂函數

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-11-26 15:33 | 只看該作者

回復 1# naraohya
用工作表的預設事件將日期置於檔案試試

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1).Cells = Range("B3") Then
If Target = "PD" Then
If [iv1] = "" Then
[c3].Resize(98) = 1
Else
[c3].Resize(98) = [c3] + Date - [iv1]
End If
[iv1] = Date
End If
End If
End SubEnd Sub

複製代碼

帖子: 8
主題: 1
精華: 0
積分: 45
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 女
註冊時間: 2010-11-25
最後登錄: 2011-6-30

3^#

發表於 2010-11-26 16:52 | 只看該作者

回復 2# GBKEE

先謝謝GBKEE大的回覆！您的寫法有夠簡明的，直是甘拜下風....
我不太了解「將日期置於檔案」，要放在哪個欄位上？
能否稍微詳細解惑說明一下，謝謝！

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-11-26 17:20 | 只看該作者

回復 3# naraohya
我放在 IV1 [工作表最右側] 或者你可以置於你用不到的地方將日期紀錄下來

帖子: 8
主題: 1
精華: 0
積分: 45
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 女
註冊時間: 2010-11-25
最後登錄: 2011-6-30

5^#

發表於 2010-11-26 22:24 | 只看該作者

回復 4# GBKEE

不好意思，GBKEE大，小的還是未試出來....
有確定將程式碼放在Worksheet_Change事件程序裡，
去切換B欄選單為PD時都未有動靜@@
1. 不太明白Resize(98)在此是指做了什麼動作?
2. 這段程式似乎只有在同一列，在B3, C3才可運行!?
但我需要若B欄有設定PD時，隔壁的C欄就會開始計算累加......
再麻煩提點，感謝！

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-11-27 17:03 | 只看該作者

回復 5# naraohya
1. 不太明白Resize(98)在此是指做了什麼動作?
你的附檔是指 Range("B3") 有 "PD" 字串時 -> [c3].Resize(98)=計算日數
[c3].Resize(98)-> 含c3擴充98列 =c3:c100的範圍
2. 這段程式似乎只有在同一列，在B3, C3才可運行!?
請附檔看看

Hsieh

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

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

7^#

發表於 2010-11-27 18:32 | 只看該作者

回復 1# naraohya

不知道有沒有理解錯誤
直接讓D欄記住第一次B欄選PD時的日期(這用CHANGE事件來輸入C，D欄的值)
Sheet3模組

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [B3:B100]) Is Nothing Or Target = "" Then Exit Sub
Application.EnableEvents = False
If Target.Offset(, 1) = "" Then Target.Offset(, 1).Resize(, 2) = Array(IIf(Target = "PD", 1, ""), IIf(Target = "PD", Date, ""))
Application.EnableEvents = True
End Sub

複製代碼

每次開檔時計算D欄日期到當日的天數並更改D欄為當日日期

Private Sub Workbook_Open()
Dim A As Range
With Sheet3
Application.EnableEvents = False
For Each A In .[B3:B100]
If A = "PD" And IsDate(A.Offset(, 2)) Then _
A.Offset(, 1) = _
DateDiff("d", A.Offset(, 2), Date) + A.Offset(, 1): A.Value = "CL": A.Offset(, 2) = Date
Next
Application.EnableEvents = True
End With
End Sub

複製代碼

計算pending day.zip (11.84 KB)

學海無涯_不恥下問

帖子: 8
主題: 1
精華: 0
積分: 45
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 女
註冊時間: 2010-11-25
最後登錄: 2011-6-30

8^#

發表於 2010-11-27 23:27 | 只看該作者

回復 6# GBKEE

謝謝GBKEE大不厭其煩的回覆，檔案有試出來
我放錯到工作簿事件去了.....(揍飛)
不過試出後，跟我要的運作是不太一樣，以下：
1. B欄一選PD時, 其C欄的pending day並沒有先累計值1，而是0
2. 呈上，例：在B3欄選值PD時，期望是僅旁邊的C3欄有值，而非整排的C欄都有值。
3. 隔天打開Excel，其pending day未自動更新其天數，是再重新點選B欄選擇PD，pending day才更新。

總之，非常謝謝，提供了我另一種VBA的學習寫法！

帖子: 8
主題: 1
精華: 0
積分: 45
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 女
註冊時間: 2010-11-25
最後登錄: 2011-6-30

9^#

發表於 2010-11-27 23:29 | 只看該作者

回復 7# Hsieh

謝謝Hsieh大的回覆，我先試了作法，明天有時間再來好好消化程式碼 XD (我對 offset的用法老是感到頭昏@@)
有發現一個小錯誤：
第二篇程式碼第8列 :A.Value="CL" 好像應該設"PD"

另外，只有該列B欄值為PD，其D欄才更新日期，但B欄值為CL的卻未更新，
這樣對於之後B欄的CL又改為PD時，其pending day算出值在邏輯上是不對的。

兩位大大的寫法，都有給我新啟發，期盼我可以碰撞出滿意的作法!! 有的話會再來分享唷~~希望!!