麻辣家族討論版版 » Excel程式區 » 判斷日期之後的資料並計算數量

返回列表下一主題上一主題發帖

判斷日期之後的資料並計算數量

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-5-21 23:23 | 只看該作者

判斷日期之後的資料並計算數量

請問如何使用VBA，判斷日期之後的資料並計算數量，謝謝!

活頁簿1.tar (148.5 KB)

依照所KEY IN的日期(工作表2-E欄) 判斷日期之後的資料(工作表1 -G欄) 並計算區域(工作表1 -G欄)的數量

樓主熱帖

收藏

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

2^#

發表於 2017-5-23 08:21 | 只看該作者

可以使用COUNTIFS 函數可將準則套用至跨多個範圍的儲存格，並計算所有準則均符合的個數。
=COUNTIFS(日期範圍,">"&判斷基準的日期,號碼1範圍,判斷基準的號碼1,區域範圍,判斷基準的區域)
日期NA的部分
=if(判斷基準的日期="NA",去掉日期準則的COUNTIFS,含日期準則的COUNTIFS)

中學生 Rank: 2

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

3^#

發表於 2017-5-23 10:27 | 只看該作者

計算結果與你提供的不同, 但應該是你要的

Option Explicit
Sub Cal_N()
Dim I%, J%, DD$, S1 As Worksheet, S2 As Worksheet
Set S1 = ActiveWorkbook.Sheets("工作表1")
Set S2 = ActiveWorkbook.Sheets("工作表2")
For I = 3 To 7
For J = 6 To 16
DD = S2.Cells(I, 5)
If DD = "NA" Then
S2.Cells(I, J) = Application.WorksheetFunction.CountIfs(S1.Columns(5), _
S2.Cells(I, 3), S1.Columns(7), S2.Cells(2, J))
Else
S2.Cells(I, J) = Application.WorksheetFunction.CountIfs(S1.Columns(5), _
S2.Cells(I, 3), S1.Columns(7), S2.Cells(2, J), S1.Columns(6), ">" & S2.Cells(I, 5))
End If
Next J
Next I
End Sub

複製代碼

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

4^#

發表於 2017-5-31 23:50 | 只看該作者

回復 3# prin.huang

請問prin.huang
假如有一兩萬列的資料，使用countifs來跑，時跑的時間過久，請問程式怎麼修才可以改善速度

中學生 Rank: 2

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

5^#

發表於 2017-6-1 09:19 | 只看該作者

參考站內or谷歌資料，改寫成陣列試試
應該會快很多

中學生 Rank: 2

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

6^#

發表於 2017-6-1 19:42 | 只看該作者

參考站內or谷歌資料，改寫成陣列試試
應該會快很多
prin.huang 發表於 2017-6-1 09:19

剛才試作了一下，excel函數sumifs無法接受陣列，只能接受range，試運算1萬多筆速度還是慢，
看來只能把"資料讀成陣列+自己寫判斷句"才能加快速度了

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

7^#

發表於 2017-6-1 20:10 | 只看該作者

回復 6# prin.huang

prin.huang

謝謝，我再試試看

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

8^#

發表於 2017-6-2 21:17 | 只看該作者

回復 4# chiang0320
改用陣列並模擬2萬5千筆，大約1.3秒完成，請測試。

活頁簿1.rar (138.42 KB)

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

9^#

發表於 2017-6-3 17:35 | 只看該作者

回復 8# Kubi

複本複本活頁簿1.tar (147 KB)

請問Kubi

如果變更原始檔案的關鍵欄位，程式碼又會修改成怎麼樣子?

可以讓我對照一下之前與之後，謝謝幫忙!

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

10^#

發表於 2017-6-4 21:00 | 只看該作者

回復 9# chiang0320
請參考

活頁簿2.rar (131.26 KB)

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

返回列表下一主題上一主題