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

[¤À¨É] ¤j½L¨C¤ë¨C¤Ñ¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü

¦^´_ 4# white5168


    ±ßÂI¦A¨Ó¤U¸ü¬Ý¬ÝÅo~~~~
§Ú¬O´µ¦h

TOP

ÁÂÁÂGª©¥Dªº¸Ñ¨M¤è¦¡~~~
¦ý¨ä¹ê¤p§Ì§Ú¬O·Q­n¤@­Ó¶W°½Ãi¤è¦¡...
¦~¡B¤ë·|¦Û°Ê¶]
¦p¡G¦Û1990¦~01¤ë°_¦Û°Ê¤U¸ü¬ö¿ý¦bSHEET1«áÀx¦s¡A
¦A¦Û°Ê¸õ¨ì1990¦~02¤ë¡A¦Û°Ê¤U¸ü¬ö¿ý¦bSHEET1¤º¤U¤èªÅ¥Õ³B¡A±µÄò­è­è1¤ëªº¸ê®Æ§À
¦p¦¹­«ÂЦÜ2012¦~10¤ë³o¼Ë...
³o¼Ë¬O¤£¬O¤ÓÃi¤F...¤@..¤@"

TOP

¥»©«³Ì«á¥Ñ usana642 ©ó 2012-10-24 18:10 ½s¿è

¦^´_ 33# GBKEE

¦A½Ð±ÐGBKEE¤j,§Ú¦A¼W¥[¤@­Ó''¬ö¿ý''¤u§@ªí,§â­pºâ«áªº¤p­p,¦Û°Ê¶×¤JÀx¦s,¦pªG¹j¤Ñ¦A«ö''­pºâ''¤u§@ªíªº''§ó·s''«ö¶s«á,§Æ±æ¯à¦b''¬ö¿ý''¤u§@ªí¦Û°ÊÀx¦s·í¤Ñ­pºâ«áªº¤p­pµ²ªG,Àµ½ÐGBKEE¤j¤j¦A¦¸¨ó§U,ÁÂÁ±z...
[attach]12878[/attach]
stock

TOP

¥»©«³Ì«á¥Ñ usana642 ©ó 2012-10-24 18:14 ½s¿è

¦^´_ 33# GBKEE

¤£¦n·N«ä,¨S¦³¤W¶Ç¦n,¦A¤W¶Ç¤@¦¸

TEST2.zip (49.2 KB)

TEST2.zip (49.2 KB)

stock

TOP

¦^´_ 44# usana642
  1. Option Explicit
  2. Sub Àx¦s¤p­pµ²ªG()
  3.     Dim Rng As Range
  4.     Set Rng = Sheets("­pºâ").Range("G1").End(xlDown)                 'G1©¹¤U³Ì«á¦³¸ê®ÆªºÀx¦s®æ
  5.     With Sheets("¬ö¿ý").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1)
  6.          'Cells(Rows.Count, "A").End(xlUp):AÄæ³Ì«á¦C©¹¤W¦³¸ê®ÆªºÀx¦s®æ.Cells(2, 1) :²Ä2¦C ,²Ä1Äæ
  7.           .Value = Date
  8.           .Cells(1, 2) = Rng
  9.           .Cells(1, 3).Resize(1, 4) = Rng.Cells(1, 4).Resize(1, 4).Value
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 45# GBKEE

ÁÂÁÂGBKEEªº¼ö¤ß¨ó§U,¥i¥H¥¿±`°õ¦æ¤F,«D±`·PÁ±z,¯¬±z¨Æ¨Æ¶¶¤ß
stock

TOP

¥»©«³Ì«á¥Ñ usana642 ©ó 2012-10-25 13:34 ½s¿è

¦^´_ 45# GBKEE

GBKEE¤È¦w
§Ú·Q¦A½Ð±Ð±z
½Ð°Ý¦pªG§Ú·Q¦b''³sµ²''¤u§@ªí¤¤,¬D¿ï¥X¶RÅv©M½æÅvªº³Ì¤j¥¼¥­­Ü¶q,
¨Ò¦p24¤é¬O
½æÅv   ¼i¬ù»ù=7000        ³Ì«á¦¨¥æ»ù=27.5  ¥¼¥­­Ü¶q=38191
¶RÅv   ¼i¬ù»ù=7700        ³Ì«á¦¨¥æ»ù=11.5  ¥¼¥­­Ü¶q=57082

µM«á¤À§O¦Û°ÊÀx¦s¦b''¬ö¿ý''¤u§@ªí¤¤,¨C¤Ñªºµ²ªG¤]¯à¬ö¿ýÀx¦s,¦A¦¸Àµ½Ð±zªºÀ°¦£,ÁÂÁ±z
TEST2.zip (52.74 KB)

TEST2.zip (52.74 KB)

stock

TOP

¦^´_ 47# usana642
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Àx¦s¤p­pµ²ªG()
  3.     Dim Rng(1 To 4) As Range, AR(1 To 6), xi As Integer, e As Variant
  4.     With Sheets("­pºâ")
  5.         Set Rng(1) = .Range("G1").End(xlDown)                 'G1©¹¤U³Ì«á¦³¸ê®ÆªºÀx¦s®æ
  6.         Set Rng(2) = .Range("E2", .[E2].End(xlDown))          '¶R½æÅv
  7.     End With
  8.     For Each e In Array("Call", "Put")
  9.         Rng(2).Replace e, "=usana642"                          '¤½¦¡¤£¦s¦b ¶Ç¦^¿ù»~­È
  10.         With Rng(2).SpecialCells(xlCellTypeFormulas, xlErrors) '¦³¿ù»~ªºÀx¦s®æ
  11.             With .Offset(, 2)                                  '¥k²¾2Äæ
  12.                 xi = IIf(e = "Call", 0, 1)
  13.                 Set Rng(3) = .Find(Application.Max(.Cells))    '´M§ä³Ì¤j­È
  14.                 AR(1 + xi) = Rng(3).Offset(, -3)               '¼i¬ù»ù
  15.                 AR(3 + xi) = Rng(3).Offset(, -1)               '³Ì«á¦¨¥æ»ù
  16.                 AR(5 + xi) = Rng(3)                            '¥¼¨R¾P«´¬ù¶q
  17.             End With
  18.             .Value = e
  19.         End With
  20.     Next
  21.     With Sheets("¬ö¿ý").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1)
  22.          'Cells(Rows.Count, "A").End(xlUp):AÄæ³Ì«á¦C©¹¤W¦³¸ê®ÆªºÀx¦s®æ.Cells(2, 1) :²Ä2¦C ,²Ä1Äæ
  23.           .Value = Date
  24.           .Cells(1, 2) = Rng(1)
  25.           .Cells(1, 3).Resize(1, 4) = Rng(1).Cells(1, 4).Resize(1, 4).Value
  26.           .Cells(1, 7).Resize(1, 6) = AR
  27.     End With
  28. End Sub
½Æ»s¥N½X

TOP

¦^´_ 48# GBKEE

ÁÂÁÂGBKEEªº¼ö¤ß¨ó§U,§Ú±qµ{¦¡½X½s¿èµ{¦¡°õ¦æ³o¤@¬qµ{¦¡,¤w¸g¥i¥H¥¿±`°õ¦æ,µy«á§Ú¦A§â¥¦¾ã¦X¶i¾ã­Óµ{¦¡¸Ì,«D±`·PÁ±zªº¼ö¤ßÀ°¦£,¦A¦¸·PÁ±z,¯¬±z¶¶§Qµo°]...
stock

TOP

¦^´_ 48# GBKEE

GBKEE±z¦n

§Ú¤µ¤Ñ¸ÕµÛ·Ó±zªº¤è¦¡,¦b§ì¨ú¥t¤@ºô­¶¸ê®Æ®É,¦b¬ö¿ý1¤u§@ªíµLªk§¹¦¨¦Û°Ê¬ö¿ý,Àµ½Ð±z¦A«ü¾É¤@¤U,ÁÂÁ±z...
   
TEST3.zip (12.46 KB)
stock

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD