- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# s7659109
°ÝÃD¡G¦p¦ó¥Î°j°é¡A±NADD_MÄ椤¦³§t¦r¥À¨Öp
¦p¦ó¦X¨Ö ½Ð¦A»¡¸Ô²Ó
§A·Qnªº¬O³o¼Ë¶Ü?- ub Ex()
- With Range(Cells(2, "C"), Cells(2, "C").End(xlDown))
- .NumberFormatLocal = "G/³q¥Î®æ¦¡" 'ªþÀɪº®æ¦¡¬O¤å¦r
- .Cells = .Value
- .Offset(, 2).FormulaR1C1 = "=IF(ISNUMBER(RC[-2]),0,1)"
- MsgBox "MÄ椤¦³§t¦r¥À ¦@¦³ " & Application.Sum(.Offset(, 2))
- '********************
- '.Offset(, 2).FormulaR1C1 = "=ISNUMBER(RC[-2])"
- 'MsgBox "MÄ椤¦³§t¦r¥À ¦@¦³ " & Application.CountIf(.Offset(, 2), False)
- .Offset(, 2) = ""
- End With
- End Sub
½Æ»s¥N½X |
|