GBKEE

¦^´_ 1# s7659109
°ÝÃD¡G¦p¦ó¥Î°j°é¡A±NADD_MÄ椤¦³§t¦r¥À¨Ö­p
¦p¦ó¦X¨Ö ½Ð¦A»¡¸Ô²Ó

§A·Q­nªº¬O³o¼Ë¶Ü?

1. ub Ex()
   
2.     With Range(Cells(2, "C"), Cells(2, "C").End(xlDown))
   
3.         .NumberFormatLocal = "G/³q¥Î®æ¦¡"  'ªþÀɪº®æ¦¡¬O¤å¦r
   
4.         .Cells = .Value
   
5.         .Offset(, 2).FormulaR1C1 = "=IF(ISNUMBER(RC[-2]),0,1)"
   
6.         MsgBox "MÄ椤¦³§t¦r¥À ¦@¦³ " & Application.Sum(.Offset(, 2))
   
7.         '********************
   
8.         '.Offset(, 2).FormulaR1C1 = "=ISNUMBER(RC[-2])"
   
9.        'MsgBox "MÄ椤¦³§t¦r¥À ¦@¦³ " &  Application.CountIf(.Offset(, 2), False)
   
10.        .Offset(, 2) = ""
    
11.     End With
    
12. End Sub

½Æ»s¥N½X