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

[µo°Ý] ½Ð±Ð¦p¦ó­×§ïµ{¦¡¨Ó´£°ª°õ¦æ®Ä²v©O?

[µo°Ý] ½Ð±Ð¦p¦ó­×§ïµ{¦¡¨Ó´£°ª°õ¦æ®Ä²v©O?

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2024-1-16 09:59 ½s¿è

        ª©¤W«e½ú¡Aªþ¥óªþ¤W¤@­ÓÀɮסA¨ä¥D­n¥\¯à¬O¥Î¨Ó°O¿ý¼Æ­ÈªºÅÜ°Ê

        ¨äµ{¦¡¤À¨â³¡¤À 1.K12<>L12¡A±NJ5:M10ªº¼Æ­È½Æ»s¨ìJ14:M19¡AI14-I18¸òN14-N18¬O±NJ5-M10¸òJ14:M19¬Û¥[´î±o¥X(¥D­n´N¬OÅý²{­È¸òÅÜ°Ê«eªº­È°µ¬Û¥[´î)¡AµM«á§Ú¥D­n¬O­n¨DI14-I18¸òN14-N18ªº¼Æ­È
                           
                          2.B2=I14-I18ªº­È¬Û¥[¡AC2=N14-N18ªº­È¬Û¥[¡AµM«á¤@ª½©¹¤U¬ö¿ý

        ¥Ø«e°õ¦æ³o­Óµ{¦¡µo²{µ{¦¡¦b°õ¦æ¤W¤£®Ä²v¤£¦n¡A¸ê®Æ¨Ó·½¬O¨é°ÓDDE¡A¨ä¸ê®Æ¨Ó·½¦³®É­Ô¥i¯à¤ºÅÜ°Ê6-8¦¸¡A¦ý§Ú°õ¦æµ{¦¡«á¡A©Ò°O¿ý¤U¨Óªº¸ê®Æ¦P­Ó®É¶¡¤j¦h¦b¤j¦h¦b2-3µ§©~¦h¡A·Q½Ð±Ð¤@¤Uª©¤W«e½ú¡A§Úªºµ{¦¡­n¦p¦ó­×§ï¤~¯à´£¤É¨ä®Ä²v©O?

ÅÜ°Ê°O¿ý.rar (30.79 KB)

¦^´_ 1# ÂŤÑÄR¦À


¦pªG¨S¦³³o¨Ç¼Æ­È¹Bºâ «e½úªºEXCEL¥i¥H°O¿ý¨ì¨C¬í6~8µ§°O¿ý¶Ü?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483


    ¹ï¡A´N¬O¦]¬°³o¨Ç¹Bºâ¤~¾É­P®Ä²vÅÜ®t

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-18 07:30 ½s¿è

¦^´_ 3# ÂŤÑÄR¦À


    ½Ð±Ð«e½ú:
1.½d¨Ò¤u§@ªí¼Ò²Õ¸Ì¨S¦³Call Price,¥¦»Ý­n°õ¦æ¶Ü? ­ìµ{¦¡½X¦p¤U:
Option Explicit
Private Sub Worksheet_Calculate()
Call RecordPrice
End Sub

2.¤U¹Ï¶À¦â°Ï°ìÀx¦s®æ­È¨ú®ø,¥u°µA¨ìEÄ檺µ²ªG­È°O¿ý¥i¥H¶Ü? ÁÙ¬O¶À¦â°Ï°ìÀx¦s®æ­È¤@©w­n¦s¦b¨ÃÀHDDEÅÜ°Ê?
¦]¬°³o¨Ç¶À¦â°Ï°ìÀx¦s®æ­ÈÅܤƥi¯à·|¼vÅT®Ä¯à,¦pªG¦bVBA­pºâ³o¨Ç­È«á¼g¤JA¨ìEÄæ¥i¯à¤ñ¸û§Ö
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2024-1-18 14:16 ½s¿è

¦^´_ 4# Andy2483
1.¥i¥H§R°£
2.a-eªº¼Æ­È´N¬O¶À¦â³¡¤À­pºâ©Ò±o¡A¦pªG¶À¦â³¡¤À¨S¦³¡A­n¦p¦ó±o¥Xa-eªº­È¡H
¸Ì­±¶À¦â³¡¤À³£¥i¥H¤£­n¡A°ß¿Wj5-m10¬O¸ê®Æ¨Ó·½¡A§Ú¤£ª¾¹D¬O§_¦³¨ä¥L¤èªk¥i¥H±o¥Xa-eªº­È

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-18 14:17 ½s¿è

¦^´_ 5# ÂŤÑÄR¦À


½d¨Ò¤u§@ªí¼Ò²Õ¸Ì¨S¦³Call Price,¥¦»Ý­n°õ¦æ¶Ü?

a-eªº¼Æ­È´N¬O¶À¦â³¡¤À­pºâ©Ò±o¡A¦pªG¶À¦â³¡¤À¨S¦³¡A­n¦p¦ó±o¥Xa-eªº­È¡H
¦b°}¦C/ÅܼÆ/¦r¨å¸g¹Bºâ©Î³\¥i¥H±o¨ìA~E

¨Ò¦p:
Option Explicit
Public Z, BBS(1 To 5), BB(1 To 5), BA(1 To 5), BAS(1 To 5), FBS, FAS
Sub ®É¶¡()
[A1] = WorksheetFunction.Text(Now(), "hh:mm:ss")
Application.OnTime Now() + TimeValue("00:00¡G01"), "®É¶¡"
If Not IsObject(Z) Then
   Set Z = CreateObject("Scripting.Dictionary")
   BBS(1) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize1'"
   BBS(2) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize2'"
   BBS(3) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize3'"
   BBS(4) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize4'"
   BBS(5) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize5'"
   
   BB(1) = "=XQTISC|Quote!'FITXN*1.TF-BestBid1'"
   BB(2) = "=XQTISC|Quote!'FITXN*1.TF-BestBid2'"
   BB(3) = "=XQTISC|Quote!'FITXN*1.TF-BestBid3'"
   BB(4) = "=XQTISC|Quote!'FITXN*1.TF-BestBid4'"
   BB(5) = "=XQTISC|Quote!'FITXN*1.TF-BestBid5'"
   
   BA(1) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk1'"
   BA(2) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk2'"
   BA(3) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk3'"
   BA(4) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk4'"
   BA(5) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk5'"
   
   BAS(1) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize1'"
   BAS(2) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize2'"
   BAS(3) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize3'"
   BAS(4) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize4'"
   BAS(5) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize5'"
   
   FBS = "=XQTISC|Quote!'FITXN*1.TF-FiveBidSize'"
   FAS = "=XQTISC|Quote!'FITXN*1.TF-FiveAskSize'"
End If
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 6# Andy2483
Andy¯à¼g­Ó¤j·§§Ú¥h°õ¦æ¬Ý¬Ý¶Ü¡H¤£µM§A³o¼Ë»¡§Ú¤]¤£¤Ó²M·¡¡A¯à¤£¯àÁÙ¬O­n°õ¦æ«á¤~¯à½T©w

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-18 14:21 ½s¿è

¦^´_ 7# ÂŤÑÄR¦À


    ½d¨Ò¤u§@ªí¼Ò²Õ¸Ì¨S¦³Call Price,¥¦»Ý­n°õ¦æ¶Ü?
¸Ì­±¦³µ{¦¡ Sub Price() ¦ý¤S¨S³Q Call Price
I14-I18¸òN14-N18ªº¼Æ­È¤S¸ò¥¦¦³Ãö
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 8# Andy2483
¥i¥H§R°£

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2024-1-18 14:25 ½s¿è

¦^´_ 8# Andy2483
¥t¥~andy¡A½Ð±Ð¤@¤U¡A§Ú¶À¦â³¡¤Ài14¨ìi18¬O¦³¥Î¨ìif¥h°µ§P§O¡AµM«á¤~°µ¼Æ¦r¹B°e¡A¦ý§A¤W­±¶Kªºµ{¦¡½X¤]¦³°µ§P§OµM«á¹Bºâªº¥\¯à¡H

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD