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

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

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

¦¨¥æ¶q                                                                               
640        640        705        ¡µ75        6                6400        2.2        2.2        2.4        ¡¾2.8        7799                       
550        550        570        ¡µ73        32                6500        3.6        3.6        3.7        ¡¾4.4        12023                       
464        463        467        ¡µ78        228                6600        4.4        4.4        4.5        ¡¾7.6        32553                       
365        360        385        ¡µ69        971                6700        8        7.9        8        ¡¾11.5        35801                       
282        279        282        ¡µ64        3087                6800        14        14        14.5        ¡¾18        35656                       
199        198        200        ¡µ52        11495                6900        24        23.5        24.5        ¡¾27        40295                       
126        125        127        ¡µ38        29425                7000        40.5        40        40.5        ¡¾39.5        41877                       
70        69        70        ¡µ24.5        52292                  7100         69        67        69        ¡¾54        28706                       
32        31.5        32        ¡µ12        60231                7200        110        111        112        ¡¾72        9546                       
13        13        13.5        ¡µ4.6        43271                7300        174        172        174        ¡¾84        2863                       
  ¦p¦ó¼g¤@vba  §ì¥X  CALL³Ì¤j¦¨¥æ¶q¬O 7200 (60231¤f)   put ¬O7000 41877¤f
¤Q¤À·PÁÂ(¤]´N¬OSHOW ¼i¬ù»ù)...
yes show me money

¦^´_ 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

¦^´_ 2# ken759727


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

TOP

  1. Sub yy()
  2. a = [e:e].Find([max(e:e)], , , 1)(1, 2)
  3. b = [k:k].Find([max(k:k)], , , 1)(1, -4)
  4. MsgBox a & vbLf & b
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# oobird


    find ªº¨ç¼Æ¤]¯à³o¼g!¼F®` .¨º³Ì¤p¤]¥i¥HMIN¶Ü.
yes show me money

TOP

¦^´_ 5# alims

³Ì¦n¦Û¤v¹Á¸Õ¤@¤U¡C

TOP

¦^´_ 4# oobird


    ª©¥D¥i¥H°Ý¤@¤U(1, 2)¸ò(1, -4) ¥Nªíªº·N«ä¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 7# freeffly

¦ì²¾ªº¤@ºØ¼gªk¡A·í§ä¨ì³Ì¤j­È®É¦ì²¾¨ì¦P¦Cªº¬Y­ÓÄæ¦ì

TOP

¦^´_ 8# oobird

        ª©¥D½Ð°Ý¤@¤U §A³o¸Ì¥ÎªºfindÀ³¸Ó¸ò¤U­±¤@¼Ë¤è¦¡§a
      Find([max(C:C)], , , 1)
        ,¥u­n3¦U¶Ü¤À§O¥Nªí­þ´X­Ó? ¨º¦U1ªº·N«ä¬O?
        ¬d¤F¤@¤U¸ê®Æ¨S¬Ý¨ì¬ÛÃö»¡©ú

        Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

§A¥i¥H¨Ì·Ó¶¶§Ç¤ñ¹ï
³o­Ó1¥Nªíªº¬O LookAt:=xlWhole¡A¹w³](Àq»{)­È¬OxlPart
°Ñ¼Æ³£¦³¤@­Ó¹w³]­È¡A¬Ù²¤ªº°Ñ¼Æ´N·|¦Û°Ê±Ä¥Î¹w³]­È¡C

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD