- ©«¤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
|
¥»©«³Ì«á¥Ñ 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 ¦^¤å¤£¥un¦³¼ö¤ß,ÁÙn¦³@¤ß- Option Explicit
- Sub Ex()
- Dim E As Range, i As Integer
- With Range("c12:c" & Range("i" & Rows.Count).End(xlUp).Row)
- For Each E In .Cells
- If E.Cells(1, 10) > 0 Then
- i = Int(E.Cells(1, 10) / (E.Cells(1, 3) * 1000))
- If i > 0 Then
- E = i
- '³o¼ËÀ³¥i¿é¤J
- '¦ý¤u§@ªí¤W¦³¤@¨Ç¹³NÄ檺¤½¦¡
- '=IF(N11="²Öp§ë¸êª÷ÃB",-(I12+J12),-(I12+J12)+N11)
- '¬Ý¤£À´
- End If
- End If
- Next
- End With
- End Sub
½Æ»s¥N½X |
|