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

¦p¦ó¼g¤@vba §ì¥X CALL/PUT ³Ì¤j¦¨¥æ¶q

¦^´_ 2# ken759727


   ¤Q¤À·PÁ¦b³o»òµuªº®É¶¡´N¦^´_¦Ó¥B¤S¥¿½T....
yes show me money

TOP

¦^´_ 1# alims
  1. for i = 1 To 9
  2. if (Cells(i, 5) < Cells(i + 1, 5)) Then
  3. c1 = Cells(i + 1, 5)
  4. c2 = Cells(i + 1, 6)
  5. End If

  6. if (Cells(i, 11) < Cells(i + 1, 11)) Then
  7. p1 = Cells(i + 1, 5)
  8. p2 = Cells(i + 1, 6)
  9. End If
  10. Next

  11. Range("A15") = c1
  12. Range("A16") = c2
  13. Range("A17") = p1
  14. Range("A18") = p2
½Æ»s¥N½X
¤£ª¾¹D³o¼Ë¦³¨S¦³À°¨ì§A

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD