返回列表 上一主題 發帖

[發問] 自動篩選後,如何利用vba計算符合篩選之時間加總

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-10-26 19:14 | 顯示全部帖子
本帖最後由 Hsieh 於 2010-10-26 23:09 編輯


樞紐分析，設定儲存格格式
VBA請試試
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A1], [A65536].End(xlUp))
  4.    d(a & "") = d(a & "") + a.Offset(, 1)
  5. Next
  6. For Each ky In d.keys
  7. MsgBox Format(Int(d(ky)), "0") & Format(d(ky) - Int(d(ky)), "天 h:mm:ss")
  8. Next
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-10-28 18:23 | 顯示全部帖子
回復 15# PD961A


    Book4.rar (6.63 KB)
學海無涯_不恥下問

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2010-10-29 11:29 | 顯示全部帖子
回復 18# GBKEE
我只是複製貼上
不論如何準則就是要跟資料內容相符
book5的檔案a欄的不可見字元是alt+160
將資料取代成不含不可見字元即可直接輸入文字計算
或用儲存格參照即可
=TEXT(SUMIF(A1:A10,$A$1,B1:B10),"M/D HH:MM:SS")
學海無涯_不恥下問

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-10-29 18:14 | 顯示全部帖子
回復 20# GBKEE
所以這樣的狀況最好是能夠清除不可見字元或用儲存格參照
才能避免一些不必要的困擾
學海無涯_不恥下問

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題