- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 270
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-11-4
               
|
2#
發表於 2011-1-13 08:45
| 只看該作者
本帖最後由 Hsieh 於 2011-1-13 08:51 編輯
回復 1# ABK
如果工作表順序有衣日期月份順序排列
可改為如下程式碼- Function 假期累計(姓名欄$, 請假欄$, 姓名$, 月份$)
- Application.Volatile
- m = Val(月份)
- For Each sh In Sheets
- If sh.Name = ActiveSheet.Name Then Exit For
- Set A = sh.Range(姓名欄).Find(姓名, lookat:=xlWhole)
- If Not A Is Nothing Then
- For i = 1 To sh.Range(姓名欄).Count
- If sh.Range(姓名欄)(i) = 姓名 Then
- 假期累計 = 假期累計 + sh.Range(請假欄)(i): Exit For
- End If
- Next
- End If
- Next
- End Function
|
|
發表於 2011-1-13 02:24
| 
