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

¨C¤ë´«­ÜDDE³£­n­«·s«Ø¥ß¡H

¨C¤ë´«­ÜDDE³£­n­«·s«Ø¥ß¡H

½Ð°Ý¦U¦ì°ª¤â«e½ú¡F¤µ¤Ñ´«­Ü....¤§«eDDE¤£·|³s°Ê¡A»Ý­«·s«Ø¥ß11¤ëDDE¡A¨º¤§«e©Ò½s¿èªºVBA½Ð°Ý­n¦p¦ó·h²¾¡C
ÁÙ¬O­n­«·s¥¨¶°½s¿è...½Ð°ª¤â«e½úµ¹¤©«ü¾É...ÁÂÁÂ!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# cfuxiong
§Aª½±µ±NDDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2 ´N OK ¤F¡C
¤£»Ý­n¦A­«·s¶×¤JDDE¡A¦pªG§A¥Ø«eªº ¤u§@ªí³æ¤º®e¸û½ÆÂø¡A
¥i¯à¦P®É¦³¨â®a¥H¤W¨é°ÓªºDDE¡A¨º§A°Z¤£­n·w­Ë¤F¡H

TOP

¦^´_ 2# c_c_lai
§Ú²{¦b´N­n·w­Ë¤F¡F[DDE¶×¤J¦r¦ê¤½¦¡]ªù¦b­þ¡H³£§ä¤£¨ì!!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# cfuxiong
§O·w¡A§Aªº¨é°Ó¬O¥Î­þ®a¡H
Ä´¦p¡G¤¸¤j       ¦¨¥æ»ù    =YT|KS!TXFJ2.124   --->   =YT|KS!TXFK2.124
            ©ö§Q±o   ¦¨¥æ»ù    =CATDDE|'FUTOPT<FO>TXFJ2     '!CurPrice   --->   =CATDDE|'FUTOPT<FO>TXFK2     '!CurPrice
¥H¦¹Ãþ±À¡C

TOP

¦^´_ 3# cfuxiong
°e§A¤@¤äÂà´«²[¦¡¡A§A¥u­n§ó´«¦¨§A¼g¤JªºÄæ¦ì«K¦¨ (¤¸¤j¤Î©ö§Q±o)¡C
  1. Sub changeMonth()               ' °õ¦æµ²ºâÂà¤ë
  2.     Dim sCode, tCode As String, mArray()
  3.    
  4.     sCode = Sheets("Omega").Range("U17").Value       '   [color=Red]¥Ø«e(¥»¤ë)¤Þ¤J­È¬°   "K211"[/color]

  5.     If (Len(sCode) = 4) Then
  6.         mArray = Array("¤@¤ë", "¤G¤ë", "¤T¤ë", "¥|¤ë", "¤­¤ë", "¤»¤ë", "¤C¤ë", "¤K¤ë", "¤E¤ë", "¤Q¤ë", "¤Q¤@¤ë", "¤Q¤G¤ë")
  7.         tCode = Right(sCode, 2)
  8.         sCode = Left(sCode, 2)
  9.          
  10.         With Sheets("Omega")
  11.             .Range("A2").Value = "TXF" & sCode                                                  '  ¤¸¤j
  12.             .Range("B2").Formula = "=YT|KS!TXF" & sCode & ".402"
  13.             .Range("C2").Formula = "=YT|KS!TXF" & sCode & ".122"
  14.             .Range("D2").Formula = "=YT|KS!TXF" & sCode & ".123"
  15.             .Range("E2").Formula = "=YT|KS!TXF" & sCode & ".124"
  16.             .Range("F2").Formula = "=YT|KS!TXF" & sCode & ".125"
  17.             .Range("G2").Formula = "=YT|KS!TXF" & sCode & ".126"
  18.             .Range("H2").Formula = "=YT|KS!TXF" & sCode & ".128"
  19.             .Range("I2").Formula = "=YT|KS!TXF" & sCode & ".130"
  20.             .Range("J2").Formula = "=YT|KS!TXF" & sCode & ".131"
  21.             .Range("K2").Formula = "=YT|KS!TXF" & sCode & ".132"
  22.             .Range("L2").Formula = "=YT|KS!TXF" & sCode & ".133"
  23.             .Range("M2").Formula = "=YT|KS!TXF" & sCode & ".135"
  24.             .Range("N2").Formula = "=YT|KS!TXF" & sCode & ".136"
  25.             .Range("O2").Formula = "=YT|KS!TXF" & sCode & ".437"
  26.             .Range("P2").Formula = "=YT|KS!TXF" & sCode & ".405"
  27.             .Range("Q2").Formula = "=YT|KS!TXF" & sCode & ".406"
  28.             .Range("R2").Formula = "=YT|KS!TXF" & sCode & ".407"
  29.             .Range("S2").Formula = "=YT|KS!TXF" & sCode & ".422"
  30.             .Range("T2").Formula = "=YT|KS!TXF" & sCode & ".423"
  31.             .Range("U2").Formula = "=YT|KS!TXF" & sCode & ".431"
  32.             .Range("V2").Formula = "=YT|KS!TXF" & sCode & ".170"
  33.             .Range("W2").Formula = "=YT|KS!TXF" & sCode & ".172"
  34.             .Range("X2").Formula = "=YT|KS!TXF" & sCode & ".171"
  35.             .Range("Y2").Formula = "=YT|KS!TXF" & sCode & ".173"
  36.             .Range("Z2").Formula = "=YT|KS!TXF" & sCode & ".290"
  37.             .Range("AA2").Formula = "=YT|KS!TXF" & sCode & ".291"
  38.             .Range("AB2").Formula = "=YT|KS!TXF" & sCode & ".201"
  39.             .Range("AC2").Formula = "=YT|KS!TXF" & sCode & ".202"
  40.             .Range("AD2").Formula = "=YT|KS!TXF" & sCode & ".203"
  41.             .Range("AE2").Formula = "=YT|KS!TXF" & sCode & ".204"
  42.             .Range("AF2").Formula = "=YT|KS!TXF" & sCode & ".205"
  43.             .Range("AG2").Formula = "=YT|KS!TXF" & sCode & ".211"
  44.             .Range("AH2").Formula = "=YT|KS!TXF" & sCode & ".212"
  45.             .Range("AI2").Formula = "=YT|KS!TXF" & sCode & ".213"
  46.             .Range("AJ2").Formula = "=YT|KS!TXF" & sCode & ".214"
  47.             .Range("AK2").Formula = "=YT|KS!TXF" & sCode & ".215"
  48.             .Range("AL2").Formula = "=YT|KS!TXF" & sCode & ".221"
  49.             .Range("AM2").Formula = "=YT|KS!TXF" & sCode & ".222"
  50.             .Range("AN2").Formula = "=YT|KS!TXF" & sCode & ".223"
  51.             .Range("AO2").Formula = "=YT|KS!TXF" & sCode & ".224"
  52.             .Range("AP2").Formula = "=YT|KS!TXF" & sCode & ".225"
  53.             .Range("AQ2").Formula = "=YT|KS!TXF" & sCode & ".231"
  54.             .Range("AR2").Formula = "=YT|KS!TXF" & sCode & ".232"
  55.             .Range("AS2").Formula = "=YT|KS!TXF" & sCode & ".233"
  56.             .Range("AT2").Formula = "=YT|KS!TXF" & sCode & ".234"
  57.             .Range("AU2").Formula = "=YT|KS!TXF" & sCode & ".235"
  58.             .Range("AV2").Formula = "=YT|KS!TXF" & sCode & ".147"
  59.             .Range("AW2").Formula = "=YT|KS!TXF" & sCode & ".148"

  60.             .Range("A12").Value = "¥x´Á " & tCode                                      '  ©ö§Q±o
  61.             .Range("B12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!BuyPrice1"
  62.             .Range("B13").Value = "»O«ü     " & tCode
  63.             .Range("C12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!SellPrice1"
  64.             .Range("D12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!CurPrice"
  65.             .Range("E12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!TickVol"
  66.             .Range("F12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Volume"
  67.             .Range("G12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!High"
  68.             .Range("H12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Low"
  69.             .Range("I12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Diff"
  70.             .Range("J12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!DiffRate"
  71.             .Range("K12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!UpLimit"
  72.             .Range("L12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!DownLimit"
  73.             .Range("M12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!TheoryPrice"
  74.             .Range("D13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustBuyVol"
  75.             .Range("D14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustSellVol"
  76.             .Range("F13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TotalBuyCnt"
  77.             .Range("F14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TotalSellCnt"
  78.             .Range("H13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustBuyCnt"
  79.             .Range("H14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustSellCnt"
  80.             .Range("K14").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Open"
  81.             .Range("A18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol1"
  82.             .Range("A19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol2"
  83.             .Range("A20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol3"
  84.             .Range("A21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol4"
  85.             .Range("A22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol5"
  86.             .Range("A23").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!TotalBuyVol"
  87.             .Range("B18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice1"
  88.             .Range("B19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice2"
  89.             .Range("B20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice3"
  90.             .Range("B21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice4"
  91.             .Range("B22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice5"
  92.             .Range("C18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice1"
  93.             .Range("C19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice2"
  94.             .Range("C20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice3"
  95.             .Range("C21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice4"
  96.             .Range("C22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice5"
  97.             .Range("D18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol1"
  98.             .Range("D19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol2"
  99.             .Range("D20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol3"
  100.             .Range("D21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol4"
  101.             .Range("D22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol5"
  102.             .Range("D23").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!TotalSellVol"
  103.         End With
  104.     End If
  105. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# c_c_lai
§Ú¬O¥Î[¤u»È]ªº~¹Ï¸Ì§ä¤£¨ì§A´£¥Üªº[DDE¶×¤J¦r¦ê¤½¦¡]!!!

1018.jpg (205.96 KB)

1018.jpg

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 6# cfuxiong
§A§â10¡B11¤ë¨â¤ëªºExcel ¶Ç¹L¨Ó¬Ý¬Ý¡AÀ³¸Ó·|¦³¤£¦Pªº¡C

TOP

¦^´_ 5# c_c_lai
c_c_laiª©¤j§A¦n¡F§Úªþ¤W[¤u»È¬Ý½L³nÅéDDE]11¤ë¡A§A¥iÀ°§Ú¶Ü¡H¥\¯à»P¤§«e¦P¡C
¥t¥~§Æ±æMail§Ú~~[email protected]

Tx11.zip (1.63 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# c_c_lai
§Úªþ¤W[¤u»È¬Ý½L³nÅéDDE]10¤ë

Tx10.zip (21.95 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 9# cfuxiong
10 ¤ë¥÷
  1. ®É¶¡    =IB|KS!TXFJ2.123
  2. ¦¨¥æ»ù  =IB|KS!TXFJ2.124
  3. º¦¶^    =IB|KS!TXFJ2.125
  4. ³æ¶q    =IB|KS!TXFJ2.128
  5. ¶}½L»ù  =IB|KS!TXFJ2.130
  6. ³Ì°ª»ù  =IB|KS!TXFJ2.131
  7. ³Ì§C»ù  =IB|KS!TXFJ2.132
  8. ¦¨¥æ¶q  =IB|KS!TXFJ2.133
½Æ»s¥N½X
11 ¤ë¥÷
  1. ®É¶¡    =IB|KS!TXFK2.123
  2. ¦¨¥æ»ù  =IB|KS!TXFK2.124
  3. º¦¶^    =IB|KS!TXFK2.125
  4. ³æ¶q    =IB|KS!TXFK2.128
  5. ¶}½L»ù  =IB|KS!TXFK2.130
  6. ³Ì°ª»ù  =IB|KS!TXFK2.131
  7. ³Ì§C»ù  =IB|KS!TXFK2.132
  8. ¦¨¥æ¶q  =IB|KS!TXFK2.133
½Æ»s¥N½X
§â J2 ª½±µ­×§ï¦¨ K2¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD