返回列表 上一主題 發帖

請教COUNTIFS公式轉成vba

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-26 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-4-27 11:38 | 只看該作者

請教COUNTIFS公式轉成vba

大家好，請教一下
我在EXCEL內有一工作表"產能進度",裡面有設定COUNTIFS函數，但因怕被別人勿改或是修訂
故想將公式轉成VBA的方式執行
再請各位先進指導



0427.zip (20.08 KB)
收藏 分享
Just do it.

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
2#
發表於 2017-4-27 11:58 | 只看該作者
Application.WorksheetFunction.CountIfs (XXXXXX)

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-26 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2017-4-27 13:26 | 只看該作者
回復 2# prin.huang

Hi 感謝您的回覆
因我在工作表中E2~AH6都有設定COUNTIFS函數公式
是否可以用VBA取代?
Just do it.

TOP

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
4#
發表於 2017-4-27 15:06 | 只看該作者
Sub CNTIF()
Dim MySt1 As Worksheet, MySt2 As Worksheet
Dim I&, J&
Set MySt1 = Workbooks("0427.xlsx").Worksheets("日報表")
Set MySt2 = Workbooks("0427.xlsx").Worksheets("產能進度")
For I = 2 To 6
    For J = 5 To 34
        MySt2.Cells(I, J) = Application.WorksheetFunction.CountIfs(MySt1.Columns(2), MySt2.Cells(I, 1), MySt1.Columns(11), MySt2.Cells(I, 2), MySt1.Columns(12), MySt2.Cells(1, J))
    Next J
Next I
End Sub

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-26 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
5#
發表於 2017-4-27 16:55 | 只看該作者
回復 4# prin.huang

Hi,感謝您的熱心解答
測試OK
再次謝謝您!
Just do it.

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題