返回列表 上一主題 發帖

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

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題