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

[µo°Ý]countifªº¨Ï¥Î[¤w¸Ñ¨M]

[µo°Ý]countifªº¨Ï¥Î[¤w¸Ñ¨M]

¥»©«³Ì«á¥Ñ asus103 ©ó 2011-1-11 19:21 ½s¿è

¹ï¤£°_!!!!!!
°Ý¤@­Ó«Ü²³æªº°ÝÃD
sheet2ªºEÄæ¬O©Ê§O
¬°¦ó¤U¦C¦¡¤lµLªk²Î­p¨k¥ÍÁ`¼Æ
With Sheets("sheet2")
     fb = WorksheetFunction.CountIf(.Cells(, 5), "=¨k")
End With
ASUS

Application.CountIf(.Columns(5), "¨k")
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
·PÁÂHsieh¤j¤j
WorksheetFunction.CountIf(.Cells(, 5), "=¨k")
Application.CountIf(.Columns(5), "¨k")
«ä¦Ò¹L³o¨â¦æªº®t§O¡A¦pªG§Ú°µ³o¼Ëªº±À½×¥i¥H¶Ü?
1.  .Cells(, 5) ¬O¥Nªí²Ä5Ä椤ªº¬Y¤@®æ¦Ó«D²Ä5Äæ¥þ³¡¡A­Y­n¬Ý¥þ³¡¶·°t¦X°j°é
2. Application.µ¥¦PWorksheetFunction.(¦]¬°»¡©ú¤¤¥u¦³WorksheetFunction.CountIf³oºØ¥Îªk)¥NªíEXCEL¤u§@ªí¨ç¼Æ
    ¦pªG¬OVB¡BVBAªº¨ç¼Æ«h¥iª½±µ¤Þ¥Î¡C

©êºp!!§Ú¤@ª½¤À¤£²MApplication.µ¥¦PWorksheetFunction.ªºÃö«Y¡A
¦b±zªºµ{¦¡¤¤¡A«Ü¤Ö¬Ý¨ìWorksheetFunction¡A®É±`¬Ý¨ìApplication¡A
¦ýVBA»¡©ú¤¤«o¬Û¤Ï

·PÁ±zªº¥j¹D¼ö¸z
ASUS

TOP

¦^´_ 3# asus103


    ­Y­n¨Ï¥Î°j°é¨º´N
if .cells(i,5)="¨k" then k=k+1
³o¼Ë¥h¶]°j°é¥[Á`

application.¤u§@ªí¨ç¼Æ=worksheetfunction.¤u§@ªí¨ç¼Æ
³o­Ë¤£ºÉµM¦p¦¹¡A§Ú´¿¸g¸Õ¹Ltranspose¨Ï¥Î³o2ºØ¤£¦P¼gªk¡A¦ýµ²ªG«o¤£¦P
­ì¦]¬°¦ó?¨Ã¥¼²`¤J±´¨s
¥u¬O¤@¯ë¨Ó»¡³£¯à¥Î¤W
¥u¬O°½Ãiªº¼gªk¡A¤£½×¦p¦ó¡A¯à¹F¨ì¥Øªºªº¤èªk¡A´N§O¤Ó­p¸û¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ±z
§Ú¤S¦h¤W¤F¤@½Ò
ASUS

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD