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

[µo°Ý] ¦p¦ó¥Î°j°é¡A±NADD_MÄ椤¦³§t¦r¥À¨Ö­p

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD