- ©«¤l
- 6
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2016-7-24
|
¥»©«³Ì«á¥Ñ zv1122 ©ó 2013-7-25 15:30 ½s¿è
¦^´_ 2# GBKEE
¸Õ¹L¤§«á
GBKEE¤jªº¤èªk¥i¥H§ì¨ìÃC¦â¡A¦ý¬O§ì¨ìªºÈ¦n¹³¦ì¸m¶]±¼¡AÈÅܦ¨0¡C
handsometrowa ¤jªº¤èªk¥i¥H§ì¨ìÈ¥i¬O¤W¤£¤FÃC¦â ¡C
¥ý«e¥i¯à¨S¸ÑÄÀ²M·¡¡A§Ú¸É¤W§ÚªºÀɮסC§Ú¥H«e³£¬O¤â°Ê¶K¤W«á¡A±q¶K¤W¿ï¶µ¤è¶ô¿ï¾Ü"È»Pì©l®æ¦¡³]©w"¡C
§Ú¦b·Q°ÝÃD¬O¤£¬O¤£¯à¥ÎCOPYn¥Î=¤~¥i¥H§âÈ©MÃC¦â³£¥¿½T§ì¨ì¡C
¥H«e¦bºô¸ô¤W¦³¤H¤À¨É¹LÃþ¦üÀɮ׬O¥Î°j°éµ{¦¡½X§ì¸ê®Æ¡A¥Lªº¤èªk§Ú¦üÀ´«DÀ´¡A©Ò¥H·Q°Ý¦U¦ì¦³¨S¦³¨ä¥L¤èªk¸Ñ¨M¡C---¹Ï¤ùÀɬO³oÓ°j°éªº¤jPª©±¡C
Dim DealerOpNetVol, DealerOpNetVal, DealerOpToTXF, DealerTXFNetVol, DealerTXFOPNetVol As Double
Dim FiniOpNetVol, FiniOpNetVal, FiniOpToTXF, FiniTXFNetVol, FiniTXFOPNetVol As Double
Dim LastDay As String
Dim TwClose, TwChange, TwVolume As Double
Private Sub CommandButton1_Click()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' §ì¦ÛÀç°Ó(Dealer)¤Î¥~¸ê(Fini)´Á³f¤j¥x(TXF)¤Î¿ï¾ÜÅv(options) '''''''''''''''''''''''''''''''''''''
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Select
''¦ÛÀç°Ó(Dealer)''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''§ì¦ÛÀç°Ó(Dealer)¿ï¾ÜÅv²b¤f¼Æ Dealer Options Net Volume '''''''''''''''''''''''''''''''''''''''''
DealerOpNetVol = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("B4")
''''''§ì¦ÛÀç°Ó(Dealer)¿ï¾ÜÅv²bª÷ÃB(»õ) Dealer Options Net Value'''''''''''''''''''''''''''''''''''''''
DealerOpNetVal = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("C4")
''''''§ì¦ÛÀç°Ó(Dealer)¿ï¾ÜÅv¬ù·í¤j¥x Dealer Options transfer to TXF'''''''''''''''''''''''''''''''''''
DealerOpToTXF = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("D4")
''''''§ì¦ÛÀç°Ó(Dealer)¤j¥x²b¤f¼Æ Dealer TXF Net Volume''''''''''''''''''''''''''''''''''''''''''''''''
DealerTXFNetVol = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("E4")
'''''''§ì¦ÛÀç°Ó(Dealer)´ÁÅv²b¤f¼Æ Dealer TXF Options Net Volume'''''''''''''''''''''''''''''''''''''''
DealerTXFOPNetVol = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("F4")
''¥~¸ê(Fini)''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''§ì¥~¸ê(Fini)¿ï¾ÜÅv²b¤f¼Æ Fini Options Net Volume '''''''''''''''''''''''''''''''''''''''''''''''
FiniOpNetVol = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("G4")
''''''§ì¥~¸ê(Fini)¿ï¾ÜÅv²bª÷ÃB(»õ) Fini Options Net Value'''''''''''''''''''''''''''''''''''''''''''''
FiniOpNetVal = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("H4")
''''''§ì¥~¸ê(Fini)¿ï¾ÜÅv¬ù·í¤j¥x Fini Options transfer to TXF'''''''''''''''''''''''''''''''''''''''''
FiniOpToTXF = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("I4")
''''''§ì¥~¸ê(Fini)¤j¥x²b¤f¼Æ Fini TXF Net Volume''''''''''''''''''''''''''''''''''''''''''''''''''''''
FiniTXFNetVol = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("J4")
'''''''§ì¥~¸ê(Fini)´ÁÅv²b¤f¼Æ Fini TXF Options Net Volume'''''''''''''''''''''''''''''''''''''''''''''
FiniTXFOPNetVol = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("K4")
'''''''§ì¤j½L«ü¼Æ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TwClose = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("L4")
'''''''§ì¤j½Lº¦¶^ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TwChange = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("M4")
'''''''§ì¤j½L¦¨¥æ¶q ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TwVolume = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("N4")
''''''''''''''''§ì¤µ¤Ñ¤é´Á get last day value''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("¿ï¾ÜÅv¶R½æÅv¤Àp").Select
Sheets("¿ï¾ÜÅv¶R½æÅv¤Àp").Range("A1") = Mid(Sheets("¿ï¾ÜÅv¶R½æÅv¤Àp").Range("C14"), 4, 10)
LastDay = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Range("A4").Text
'''''''''''''''''±N§ì¨úªº¼ÆȦ۰ʶñ¤J´Á³f¿ï¾ÜÅv¦hªÅ²Îpªí''''''''''''''''''''''''''''''''''''''''''''''
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Select
I = 8
Do
I = I + 1
If I > 1000 Then
Exit Do
End If
Loop Until (LastDay = Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, 1).Text)
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "B") = DealerOpNetVol
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "C") = DealerOpNetVal
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "D") = DealerOpToTXF
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "E") = DealerTXFNetVol
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "F") = DealerTXFOPNetVol
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "G") = FiniOpNetVol
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "H") = FiniOpNetVal
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "I") = FiniOpToTXF
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "J") = FiniTXFNetVol
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "K") = FiniTXFOPNetVol
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''¤j½L«ü¼Æ
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "L") = TwClose
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "M") = TwChange
Sheets("´Á³f¿ï¾ÜÅv¦hªÅ²Îp").Cells(I, "N") = TwVolume
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub |
-
-
¤W¶Ç¥Î2.png
(24.87 KB)
°j°é¤èªkªºª©±
-
-
¤W¶Ç¥Î.rar
(17.73 KB)
§ÚªºÀÉ®×
|