[發問] 多張Sheet資料累加的程式問

ABK

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

off_record.rar (19.73 KB)

下載次數: 25

2011-1-13 02:26

ABK

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

Hsieh

回復 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

複製代碼