ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±ÐCOUNTIFS¤½¦¡Âনvba

½Ð±ÐCOUNTIFS¤½¦¡Âনvba

¤j®a¦n¡A½Ð±Ð¤@¤U
§Ú¦bEXCEL¤º¦³¤@¤u§@ªí"²£¯à¶i«×",¸Ì­±¦³³]©wCOUNTIFS¨ç¼Æ¡A¦ý¦]©È³Q§O¤H¤Å§ï©Î¬O­×­q
¬G·Q±N¤½¦¡ÂনVBAªº¤è¦¡°õ¦æ
¦A½Ð¦U¦ì¥ý¶i«ü¾É

Noname.jpg
2017-4-27 11:37


0427.zip (20.08 KB)
Just do it.

Application.WorksheetFunction.CountIfs (XXXXXX)

TOP

¦^´_ 2# prin.huang

Hi ·PÁ±zªº¦^ÂÐ
¦]§Ú¦b¤u§@ªí¤¤E2~AH6³£¦³³]©wCOUNTIFS¨ç¼Æ¤½¦¡
¬O§_¥i¥H¥ÎVBA¨ú¥N?
Just do it.

TOP

Sub CNTIF()
Dim MySt1 As Worksheet, MySt2 As Worksheet
Dim I&, J&
Set MySt1 = Workbooks("0427.xlsx").Worksheets("¤é³øªí")
Set MySt2 = Workbooks("0427.xlsx").Worksheets("²£¯à¶i«×")
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

¦^´_ 4# prin.huang

Hi,·PÁ±zªº¼ö¤ß¸Ñµª
´ú¸ÕOK
¦A¦¸ÁÂÁ±z!
Just do it.

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD