ªð¦^¦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

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-9-22 23:33 ½s¿è

¦^´_ 2# lcctno


¢°¡DÁ٬ݤ£À´¤U³æªº®É¾÷¡A¬O§_¢ÚÄæ¿ú¨¬°÷¤F´N¤U³æ¡A¥H¯à¶Rªº±i¼Æ¬°­­¡]§tÃÒ¥æµ|¡^¡H
¢±¡DIF((C12+D12)>=0.001,1,0)¡@¤°»ò·N«ä¡H
¢²¡DIF(K12=1,0.0002,0)+IF(K12=2,0.0004,0)+IF(K12=3,0.0006,0)¡@¦ó·N¡Hª½±µ K12*0.0002¤£¦æ¶Ü¡H

¤]³\¤½¦¡´N¥i¥H¡A¦A¬ã¨s¬Ý¬Ý¡ã¡ã

°Ý°ÝÃD³£¤Ó²²¤¡AÀ³¸Ô²Ó»¡©ú»Ý¨D¬yµ{¡A
¬Ý°ÝÃDªº¤H¦n¹³­n­Ý¥~¬ìÂå¥Í¡A¸Ñ­å«á®³¾¹©x¤@¤@¬Ý¡I^ ^

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2015-9-22 22:36 ½s¿è

§Úª¾¹D"³Â»¶®a±Ú°Q½×ª©" ¦³«Ü¦h°ª¤â
©Î³\±z­Ì»{¬°§Ú¥u·Q¦Y³½ ¦Ó¤£·Q¦Û¤v¾Ç³¨³½
§Ú¥u¯à»¡ ­Y³y¦¨±z­Ì¦³³oºØ¬Ýªk «D§Ú©ÒÄ@
§Úª¾¹D ·|ªº¤H «Ü§Ö´N¯à§¹¦¨³o²³æªº for next ...
¦ý§Ú§Ë¤F 3­Ó¬P´Á ÁÙ¬OµLªk§¹¦¨ ©Ò¥H¥u¦n«pÃCµo©«"¨D±Ï¤F"
Àµ½Ð¦^´_ªÌ ¯àªþ¤W'ªþµù ³o¼Ë¤~¯àÀ°§U¨ìªì¾ÇªÌ(©Î±µÄ²¤£¤[¤§¤H) ¤Þ¾É¯à¦Û¤v¾Ç³¨³½ ÁÂÁ±z­Ì¤F
­Y¦bªÑ²¼¥æ©öªºµ¦²¤ ¦³·Q­n§Ú´£¨Ñ·N¨£(¾Þ§@¤ßªk) §Ú¥i´£¨Ñ§Úªº20¦~¨Ó¤£±Ñªº¸gÅç ½Ðµoµu®ø®§µ¹§Ú

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD