- 帖子
- 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 |
|
