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

[µo°Ý] ½Ð°Ý¯à§_¨Ï¥Î¥¨¶°¨ú¥N¤H¤u¤§¿é¤J ·PÁ¯àªÌ¤j¤OÀ°§U

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-9-23 07:28 ½s¿è

¦^´_ 2# lcctno
©Î³\±z­Ì»{¬°§Ú¥u·Q¦Y³½ ¦Ó¤£·Q¦Û¤v¾Ç³¨³½
§Ú¥u¯à»¡ ­Y³y¦¨±z­Ì¦³³oºØ¬Ýªk «D§Ú©ÒÄ@

§A18:08µo¤å22:36¦Aµo¦¹¤å,§A¤Ó¤ß«æ¤F,
³o½×¾Â¬O¤£¦¬¶O¥Îªº,¾aªº¬O¼ö¤ß¦b¦^¤åªº.
¬Ý°ÝÃDªº¤H¦n¹³­n­Ý¥~¬ìÂå¥Í¡A¸Ñ­å«á®³¾¹©x¤@¤@¬Ý¡I^ ^

»¡ªº¦n   ¦^¤å¤£¥u­n¦³¼ö¤ß,ÁÙ­n¦³­@¤ß
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, i As Integer
  4.     With Range("c12:c" & Range("i" & Rows.Count).End(xlUp).Row)
  5.         For Each E In .Cells
  6.             If E.Cells(1, 10) > 0 Then
  7.                 i = Int(E.Cells(1, 10) / (E.Cells(1, 3) * 1000))
  8.                 If i > 0 Then
  9.                     E = i
  10.                     '³o¼ËÀ³¥i¿é¤J
  11.                     '¦ý¤u§@ªí¤W¦³¤@¨Ç¹³NÄ檺¤½¦¡
  12.                     '=IF(N11="²Ö­p§ë¸êª÷ÃB",-(I12+J12),-(I12+J12)+N11)
  13.                     '¬Ý¤£À´
  14.                 End If
  15.             End If
  16.         Next
  17.     End With
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD