c_c_lai

¦^´_ 10# cfuxiong
§Aª½±µ±NDDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2 ´N OK ¤F¡C

cfuxiong

DDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2=>§ä¤£¨ì¦ì§}¦A­þ¡H¥i¥H§i¶D§Ú¶Ü¡H

cfuxiong

¦^´_ 11# c_c_lai
DDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2=>§ä¤£¨ì¦ì§}¦A­þ¡H¥i¥H§i¶D§Ú¶Ü¡H

c_c_lai

¦^´_ 13# cfuxiong
§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

c_c_lai

¦^´_ 13# 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. 
   
6.     If (Len(sCode) = 4) Then
   
7.         mArray = Array("¤@¤ë", "¤G¤ë", "¤T¤ë", "¥|¤ë", "¤­¤ë", "¤»¤ë", "¤C¤ë", "¤K¤ë", "¤E¤ë", "¤Q¤ë", "¤Q¤@¤ë", "¤Q¤G¤ë")
   
8.         tCode = Right(sCode, 2)
   
9.         sCode = Left(sCode, 2)
   
10.          
    
11.         With Sheets("Omega")
    
12.             .Range("A2").Value = "TXF" & sCode                   '  ¤¸¤j
    
13.             .Range("B2").Formula = "=YT|KS!TXF" & sCode & ".402"
    
14.             .Range("C2").Formula = "=YT|KS!TXF" & sCode & ".122"
    
15.             .Range("D2").Formula = "=YT|KS!TXF" & sCode & ".123"
    
16.             .Range("E2").Formula = "=YT|KS!TXF" & sCode & ".124"
    
17.             .Range("F2").Formula = "=YT|KS!TXF" & sCode & ".125"
    
18.             .Range("G2").Formula = "=YT|KS!TXF" & sCode & ".126"
    
19.             .Range("H2").Formula = "=YT|KS!TXF" & sCode & ".128"
    
20.             .Range("I2").Formula = "=YT|KS!TXF" & sCode & ".130"
    
21.             .Range("J2").Formula = "=YT|KS!TXF" & sCode & ".131"
    
22.             .Range("K2").Formula = "=YT|KS!TXF" & sCode & ".132"
    
23.             .Range("L2").Formula = "=YT|KS!TXF" & sCode & ".133"
    
24.             .Range("M2").Formula = "=YT|KS!TXF" & sCode & ".135"
    
25.             .Range("N2").Formula = "=YT|KS!TXF" & sCode & ".136"
    
26.             .Range("O2").Formula = "=YT|KS!TXF" & sCode & ".437"
    
27.             .Range("P2").Formula = "=YT|KS!TXF" & sCode & ".405"
    
28.             .Range("Q2").Formula = "=YT|KS!TXF" & sCode & ".406"
    
29.             .Range("R2").Formula = "=YT|KS!TXF" & sCode & ".407"
    
30.             .Range("S2").Formula = "=YT|KS!TXF" & sCode & ".422"
    
31.             .Range("T2").Formula = "=YT|KS!TXF" & sCode & ".423"
    
32.             .Range("U2").Formula = "=YT|KS!TXF" & sCode & ".431"
    
33.             .Range("V2").Formula = "=YT|KS!TXF" & sCode & ".170"
    
34.             .Range("W2").Formula = "=YT|KS!TXF" & sCode & ".172"
    
35.             .Range("X2").Formula = "=YT|KS!TXF" & sCode & ".171"
    
36.             .Range("Y2").Formula = "=YT|KS!TXF" & sCode & ".173"
    
37.             .Range("Z2").Formula = "=YT|KS!TXF" & sCode & ".290"
    
38.             .Range("AA2").Formula = "=YT|KS!TXF" & sCode & ".291"
    
39.             .Range("AB2").Formula = "=YT|KS!TXF" & sCode & ".201"
    
40.             .Range("AC2").Formula = "=YT|KS!TXF" & sCode & ".202"
    
41.             .Range("AD2").Formula = "=YT|KS!TXF" & sCode & ".203"
    
42.             .Range("AE2").Formula = "=YT|KS!TXF" & sCode & ".204"
    
43.             .Range("AF2").Formula = "=YT|KS!TXF" & sCode & ".205"
    
44.             .Range("AG2").Formula = "=YT|KS!TXF" & sCode & ".211"
    
45.             .Range("AH2").Formula = "=YT|KS!TXF" & sCode & ".212"
    
46.             .Range("AI2").Formula = "=YT|KS!TXF" & sCode & ".213"
    
47.             .Range("AJ2").Formula = "=YT|KS!TXF" & sCode & ".214"
    
48.             .Range("AK2").Formula = "=YT|KS!TXF" & sCode & ".215"
    
49.             .Range("AL2").Formula = "=YT|KS!TXF" & sCode & ".221"
    
50.             .Range("AM2").Formula = "=YT|KS!TXF" & sCode & ".222"
    
51.             .Range("AN2").Formula = "=YT|KS!TXF" & sCode & ".223"
    
52.             .Range("AO2").Formula = "=YT|KS!TXF" & sCode & ".224"
    
53.             .Range("AP2").Formula = "=YT|KS!TXF" & sCode & ".225"
    
54.             .Range("AQ2").Formula = "=YT|KS!TXF" & sCode & ".231"
    
55.             .Range("AR2").Formula = "=YT|KS!TXF" & sCode & ".232"
    
56.             .Range("AS2").Formula = "=YT|KS!TXF" & sCode & ".233"
    
57.             .Range("AT2").Formula = "=YT|KS!TXF" & sCode & ".234"
    
58.             .Range("AU2").Formula = "=YT|KS!TXF" & sCode & ".235"
    
59.             .Range("AV2").Formula = "=YT|KS!TXF" & sCode & ".147"
    
60.             .Range("AW2").Formula = "=YT|KS!TXF" & sCode & ".148"
    
61. 
    
62.             .Range("A12").Value = "¥x´Á " & tCode                          '  ©ö§Q±o
    
63.             .Range("B12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!BuyPrice1"
    
64.             .Range("B13").Value = "»O«ü     " & tCode
    
65.             .Range("C12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!SellPrice1"
    
66.             .Range("D12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!CurPrice"
    
67.             .Range("E12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!TickVol"
    
68.             .Range("F12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Volume"
    
69.             .Range("G12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!High"
    
70.             .Range("H12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Low"
    
71.             .Range("I12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Diff"
    
72.             .Range("J12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!DiffRate"
    
73.             .Range("K12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!UpLimit"
    
74.             .Range("L12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!DownLimit"
    
75.             .Range("M12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!TheoryPrice"
    
76.             .Range("D13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustBuyVol"
    
77.             .Range("D14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustSellVol"
    
78.             .Range("F13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TotalBuyCnt"
    
79.             .Range("F14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TotalSellCnt"
    
80.             .Range("H13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustBuyCnt"
    
81.             .Range("H14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustSellCnt"
    
82.             .Range("K14").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Open"
    
83.             .Range("A18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol1"
    
84.             .Range("A19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol2"
    
85.             .Range("A20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol3"
    
86.             .Range("A21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol4"
    
87.             .Range("A22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol5"
    
88.             .Range("A23").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!TotalBuyVol"
    
89.             .Range("B18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice1"
    
90.             .Range("B19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice2"
    
91.             .Range("B20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice3"
    
92.             .Range("B21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice4"
    
93.             .Range("B22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice5"
    
94.             .Range("C18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice1"
    
95.             .Range("C19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice2"
    
96.             .Range("C20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice3"
    
97.             .Range("C21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice4"
    
98.             .Range("C22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice5"
    
99.             .Range("D18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol1"
    
100.             .Range("D19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol2"
     
101.             .Range("D20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol3"
     
102.             .Range("D21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol4"
     
103.             .Range("D22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol5"
     
104.             .Range("D23").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!TotalSellVol"
     
105.         End With
     
106.     End If
     
107. End Sub

½Æ»s¥N½X

momowu

·PÁ¨â¦ìC¤jªº°Q½×«á¦¨ªGªº¤À¨É
¦]¬°¤p§Ì¶È»Ý­n5minªº¶q¸ê®Æ¦Ó¤w
¥h­þ§ï±q1min¦¨5min©O?
ÁÂÁÂ

momowu

³oÃä¤p§Ì¦³­Ó·Qªk¡A¦pªG¨Ï¥ÎDDEªº¦¨¥æ¶q
µM«á¥Î®É¶¡¨ÓºI¤î¨C¤ÀÄÁ(¦]¤H¦Ó²§)¬ö¿ý¤@¦¸¦¨¥æ¶q
§@­Ó²³æ´îªk¡A´N¥i¥Hª¾¹D³o¤@¤ÀÄÁ©Î³o¤­¤ÀÄÁ¡A¦¨¥æ¶q¼W¥[¤F¦h¤Ö
µ{¦¡·|¤£·|Åܱo²³æ¤@ÂI©O?

c_c_lai

³oÃä¤p§Ì¦³­Ó·Qªk¡A¦pªG¨Ï¥ÎDDEªº¦¨¥æ¶q
µM«á¥Î®É¶¡¨ÓºI¤î¨C¤ÀÄÁ(¦]¤H¦Ó²§)¬ö¿ý¤@¦¸¦¨¥æ¶q
§@­Ó²³æ´îªk¡A ...
momowu µoªí©ó 2012-10-22 11:36

µL½×¬O¤@¤ÀÄÁ¡B¤­¤ÀÄÁ¡B¤Q¤ÀÄÁ¡B°ò¥»¤W§AÁÙ¬O»Ý­n¦³¨C¤@´`Àôªº¦¨¥æ¶q°_©l­È¡A
µ{¦¡½X¨Ã¤£·|¦]¦¹¦Ó¦³©Ò¼W´î¡AÅܪº¥u¬O¨Ï¥ÎºÝªº»Ý¨D¤£¦P½}¤F¡C

wengin66

ÁÂÁ¤À¨É~~~

cfuxiong

¦^´_ 18# c_c_lai
c_c_lai¤j§A¦n¡F
¯à§_§â ªþ¥ó¡iµ¦²¤°O¿ý¡jÄæ[¼¯¥x][Áú°ê][¤é¥»]¤]¼W¦C¨C30¬í°O¿ý¡H
³s¦P[¶qºA]1¤À¤]§ï30¬í~~
§Ú¥Î¨Ö´ê¾ã¦X³£¥¼¯à¦X·N..¬O§Ú¸ê½è¤Ó®t¡AÀµ½Ð¯àÀ°¦£..ÁÂÁÂ!!
§ÚEMail¡G[email protected]  Åwªï«ü±Ð