返回列表 上一主題 發帖

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

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
2  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-1-13 02:24 | 只看該作者

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

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

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

off_record.rar (19.73 KB)
收藏 分享

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
2  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
3#
發表於 2016-6-7 12:40 | 只看該作者
不好意思!  
多年前發問的問題， 盡然沒有感謝版主，失禮! 失禮!
這支程式目前還在使用中，省下很多資料整理的時間。
非常謝謝Hsieh版主!

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題