請教COUNTIFS公式轉成vba

jsc0518

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

下載 (64.25 KB)

2017-4-27 11:37

0427.zip (20.08 KB)

下載次數: 8

2017-4-27 11:38

prin.huang

Application.WorksheetFunction.CountIfs (XXXXXX)

jsc0518

回復 2# prin.huang

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

prin.huang

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

回復 4# prin.huang

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