標題: [發問] 多張Sheet資料累加的程式問 [打印本頁]

---

作者: ABK    時間: 2011-1-13 02:24     標題: 多張Sheet資料累加的程式問

本帖最後由 ABK 於 2011-1-13 02:29 編輯

多年前承蒙Hsieh版主指導了一個小程式, 蠻不錯用的,
因為新的應用需要將程式小修一下, 懇請先進前輩再予指點一番.
附件F欄中有一自訂函數(假期累計), 該程式要如何修改, 才可以只累加附件中 1月~12月間的請假資料,
而不會加到同樣格式而非月份Sheet裡的資料.

[attach]4391[/attach]

---

作者: Hsieh    時間: 2011-1-13 08:45

本帖最後由 Hsieh 於 2011-1-13 08:51 編輯

回復 1# ABK
如果工作表順序有衣日期月份順序排列
可改為如下程式碼

1. Function 假期累計(姓名欄$, 請假欄$, 姓名$, 月份$)
   
2. Application.Volatile
   
3. m = Val(月份)
   
4. For Each sh In Sheets
   
5. If sh.Name = ActiveSheet.Name Then Exit For
   
6.       Set A = sh.Range(姓名欄).Find(姓名, lookat:=xlWhole)
   
7.       If Not A Is Nothing Then
   
8.          For i = 1 To sh.Range(姓名欄).Count
   
9.          If sh.Range(姓名欄)(i) = 姓名 Then
   
10.           假期累計 = 假期累計 + sh.Range(請假欄)(i): Exit For
    
11.          End If
    
12.          Next
    
13.       End If
    
14. Next
    
15. End Function

複製代碼

---

作者: ABK    時間: 2016-6-7 12:40

不好意思!  
多年前發問的問題， 盡然沒有感謝版主，失禮! 失禮!
這支程式目前還在使用中，省下很多資料整理的時間。
非常謝謝Hsieh版主!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)