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

[µo°Ý] ¨â­ÓÅܼƵLªk¦X¦¨¤@­ÓÅܼơA¦p¦ó­×§ï?

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-4-26 23:01 ½s¿è

¦^´_ 1# t8899

¬°¦ó¤£   ddda = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")   & ou               '¬õ¦â¬°¿ù»~

µ¥¸¹ªº«e­±¥u¯à¦³¤@­ÓÅܼơAµ¥¸¹ªº«á­±«o¥i¥H¦³¦n´X­Ó³sµ²©Î°µ¹Bºâ

TOP

¦^´_ 3# t8899


    ÅܼƤ£¯à³o¼Ë²Ö¥[¡A§Aªº¤è¦¡¥i¥H§Q¥Î°}¦C¨Óªí¥Ü
Sub test()
Dim ddda(2 To 61)
For ou = 2 To 61
If Sheets("Sheet3").Cells(ou, "bc") > 2.8 Then
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") '¬õ¦â¬°¿ù»~
End If
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD