標題: 請教COUNTIFS公式轉成vba [打印本頁]

---

作者: jsc0518    時間: 2017-4-27 11:38     標題: 請教COUNTIFS公式轉成vba

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

[attach]27098[/attach]

[attach]27099[/attach]

---

作者: prin.huang    時間: 2017-4-27 11:58

Application.WorksheetFunction.CountIfs (XXXXXX)

---

作者: jsc0518    時間: 2017-4-27 13:26

回復 2# prin.huang

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

---

作者: prin.huang    時間: 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

---

作者: jsc0518    時間: 2017-4-27 16:55

回復 4# prin.huang

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)