返回列表 上一主題 發帖

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

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

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

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

off_record.rar (19.73 KB)

本帖最後由 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
複製代碼
學海無涯_不恥下問

TOP

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

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題