[µo°Ý] ¦p¦óÀ³¥Î VBA ±NªÑ²¼¹Ï§¹¾ãªº§e²{¥X¨Ó¡H

c_c_lai

¦p¦óÀ³¥Î¼¶¼g VBA µ{¦¡±NªÑ²¼¹Ï§¹¾ãªº§e²{¥X¨Ó¡H

³o­ÓijÃDµÛ¹ê¤]·Q¤F¤@°}¤l¡A«ç»òµe¤]¥u¯à³æ¯Â¦aø»s¥X¤@­Ó­ì©lªºªÑ²¼¹Ï¡A
¥ý§O»¡¬O¦A¥[¤J¨ä¥¦¡A¦p¡G¦¨¥æ¶qµ¥¡A³s°ò¥»ªº®É¶¡¶b¤]µL±q¦P®É¥[¤J (½Ð°Ñ¦Òªþ¤Wµ{¦¡)¡C
§Ú«üªº¬OÀ³¥Î VBA ¨Ó¼¶¼g¡A¦Ó¤£¬Oª½±µ¥H EXCEL ¤W¦Cªº¹Ïªí»s§@¡C

½Ð±Ð¥i¦³§_¸Ñ¨M¤§¹D¶Ü¡H
1) ±N®É¶¡¶b¯à¤©¥H¦P®É¶×¤J¡C
2) ¦A¼W¥[¤@¶µ  ¦¨¥æ¶q¼Æ¦C¡A¨Ã¥H .ChartType = xlColumnClustered ªº¤è¦¡ªí¹F (°Æ®y¼Ð­È)¡C

ªþ¤WÀɮסAÁÂÁ¦U¦ì¥ý¶i«ü±Ð¡I

ªÑ²¼¹Ïªí.rar (26.45 KB)

¤U¸ü¦¸¼Æ: 46

2012-4-23 06:59

¤U¸ü (30.73 KB)

2012-4-23 07:18

alexliou

¦^´_ 1# c_c_lai
³o¥i¥H§Q¥Î xlStockVOHLCªºChartType¨Ó§¹¦¨
°²³]¤é´Á¦bAÄæ,¦¨¥æ¶q¦bBÄæ, ¶}°ª§C¦¬¤À§O¦bCDEFÄæ

n = Range("A1").End(xlDown).Row
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlStockVOHLC       '¦Û°Ê·|§â¤é´Á©M¦¨¥æ¶q±a¶i¥h        
ActiveChart.SetSourceData Source:=Range("A1:F" & n)         
With ActiveChart
        .HasLegend = False
        .Axes(xlCategory).CategoryType = xlCategoryScale    'X¶b³]¬°Category, ¬°ÁקK¦³¨Ç¤é´ÁµL¥æ©ö¦Ó³y¦¨¹Ï§Î¤£³sÄò
End With

alexliou

¤À¦¨¨â¨B°µ ¥B¥Î¨ìxlColumnClustered¤]¬O¥i¥H
³o¦¸¥[¤WÃC¦â  ¤Wº¦Bar¥Î¬õ¦â ¤U¶^¥ÎÂŦâ

°²³]¤é´Á¦bAÄæ, ¶}°ª§C¦¬¤À§O¦bBCDEÄæ, ¦¨¥æ¶q¦bFÄæ

Dim n As Integer
n = Range("A1").End(xlDown).Row
  ActiveSheet.Shapes.AddChart.Select
  ActiveChart.SetSourceData Source:=Range("A1:E" & n)
  ActiveChart.ChartType = xlStockOHLC       '¦Û°Ê·|§â¤é´Á±a¶i¥h
  
ActiveChart.ChartGroups(1).UpBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
ActiveChart.ChartGroups(1).DownBars.Format.Fill.ForeColor.RGB = RGB(0, 32, 96)
   
ActiveChart.SeriesCollection.Add Source:=Range("F2:F" & n)    '¤£¥]§t¼ÐÃD¦C, ­n±q2¶}©l
ActiveChart.SeriesCollection(5).ChartType = xlColumnClustered
   
With ActiveChart
        .HasLegend = False
        .Axes(xlCategory).CategoryType = xlCategoryScale
End With

alexliou

¥t¥~¤@ºØ³]ÃC¦âªº¤èªk

n = Range("A1").End(xlDown).Row
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("A1:E" & n)
ActiveChart.ChartType = xlStockOHLC
   
ActiveChart.SeriesCollection.Add Source:=Range("F2:F" & n)   '¤£¥]§t¼ÐÃD¦C ­n±q2¶}©l
ActiveChart.SeriesCollection(5).ChartType = xlColumnClustered
   
With ActiveChart
        .HasLegend = False
        .Axes(xlCategory).CategoryType = xlCategoryScale
End With
   
With ActiveChart.ChartGroups(2)      'ª`·N, ChartGroup¦b´¡¤J¦¨¥æ¶qª½±ø«áÅܦ¨2¤F
'¦pªG¦b´¡¤J¦¨¥æ¶qª½±ø«e«h­n§ï¬°1, the sequence of code matters         
            .UpBars.Interior.Color = RGB(255, 0, 0)
            .DownBars.Interior.Color = RGB(0, 32, 96)
End With

c_c_lai

¦^´_ 4# alexliou
¬°¤F¤è«K±zÁA¸Ñ§Ú´ú¸Õªº¸ê®Æ¤º®e¡A¤@¤@±N¥¦­Ì¦C¥Ü¥X¨Ó¡A¨Ã¥B¥u«O¯d30µ§¸ê®Æ°µ¬°´ú¸Õ¤§¥Î¡C
µ{¦¡¤¤§Ú¤]¿í·Ó±zªº»¡©ú¥[¥H­×¥¿¡C
¦¨¥æ¶q·~¤w¶¶§Q®r¤J (°Æ®y¼Ð­È)¡A ¨Ã¥H xlColumnClustered ¤è¦¡§e²{ (¦pªþ¹Ï)¡C
±µ¤U¨Ó§Ú·Q°µªº´ú¸Õ¬O¦A¥[¤W 5MA¡B20MA¡B60MA ³o¤T±ø§¡½u¦b ªÑ²¼¹Ï¤W (§¡¬°¥D®y¼Ð­È)¡A
§Ú¦³´ú¸Õ¹L¦ý³£¤£¦¨¥\¡A¬Æ¦Ü³sK½u¹Ï¥»¨­¤]³£·|¤£¨£¡C ªþ¤Wµ{¦¡½X¦³ªÅ®ÉÀ°§Ú¼W²K¶i¥h´ú¸Õ¡A
§Ú·Q¬O¬Y¨Ç¦a¤èÆ[©À¤£¥¿½T¡A¨S¼g¹ï§a¡I ÁÂÁ±z¡I

1.      ¤é´Á                ®É¶¡        ¶}½L»ù        ³Ì°ª»ù        ³Ì§C»ù        ¦¨¥æ»ù        ¦¨¥æ¶q        5MA        20MA        60MA
   
2. 20120418        11:01        7155        7162        7154        7162        490                7153         7151         7158
   
3. 20120418        11:02        7162        7162        7158        7160        206                7155         7152         7158
   
4. 20120418        11:03        7160        7164        7160        7163        295           7157         7152         7158
   
5. 20120418        11:04        7163        7164        7159        7160        196                7160         7153         7158
   
6. 20120418        11:05        7160        7161        7158        7160        118                7161         7153         7158
   
7. 20120418        11:06        7160        7161        7157        7158        125                7160         7154         7158
   
8. 20120418        11:07        7158        7160        7157        7157        77                7160         7154         7158
   
9. 20120418        11:08        7157        7158        7156        7157        121            7158         7155         7158
   
10. 20120418        11:09        7157        7159        7157        7159        60                7158         7155         7157
    
11. 20120418        11:10        7159        7160        7158        7158        73                7158         7156         7157
    
12. 20120418        11:11        7158        7159        7157        7159        114                7158         7156         7157
    
13. 20120418        11:12        7159        7161        7158        7160        88                7159         7157         7157
    
14. 20120418        11:13        7160        7160        7155        7158        184                7159         7157         7156
    
15. 20120418        11:14        7158        7162        7158        7161        122                7159         7157         7156
    
16. 20120418        11:15        7161        7161        7155        7155        143                7159         7157         7156
    
17. 20120418        11:16        7155        7155        7148        7148        391            7156         7157         7156
    
18. 20120418        11:17        7148        7152        7148        7151        166                7155         7157         7155
    
19. 20120418        11:18        7151        7154        7151        7152        76                7153         7157         7155
    
20. 20120418        11:19        7152        7153        7147        7150        278                7151         7157         7155
    
21. 20120418        11:20        7150        7152        7148        7151        130                7150         7157         7155
    
22. 20120418        11:21        7152        7152        7149        7151        110            7151         7156         7154
    
23. 20120418        11:22        7151        7151        7148        7148        139                7150         7156         7154
    
24. 20120418        11:23        7148        7149        7145        7149        317                7150         7155         7154
    
25. 20120418        11:24        7149        7150        7147        7150        107                7150         7155         7154
    
26. 20120418        11:25        7150        7150        7144        7146        382                7149         7154         7154
    
27. 20120418        11:26        7146        7146        7133        7135        2139        7146         7153         7154
    
28. 20120418        11:27        7135        7136        7132        7132        511                7142         7152         7154
    
29. 20120418        11:28        7132        7135        7128        7133        850                7139         7150         7153
    
30. 20120418        11:29        7135        7137        7132        7134        318         7136         7149         7153
    
31. 20120418        11:30        7135        7135        7127        7127        396                7132         7148         7153

½Æ»s¥N½X

¤U¸ü (25.67 KB)

2012-4-23 21:04

¤U¸ü (35.77 KB)

2012-4-23 21:04

1. Sub DrawAll()
   
2.     Call drawStatistics
   
3.     Call drawOmegaCharts
   
4. End Sub
   
5. 
   
6. Sub drawStatistics()
   
7.     drawCharts ("²Î­p¹Ïªí")
   
8. End Sub
   
9. 
   
10. Sub drawOmegaCharts()
    
11.     drawCharts ("Omega")
    
12. End Sub
    
13. 
    
14. Sub removeCharts(st As String)
    
15.     Dim oShape As Shape
    
16.     Dim str As String
    
17.    
    
18.     str = ActiveSheet.Name
    
19.     Sheets(st).Select
    
20.    
    
21.     For Each oShape In ActiveSheet.Shapes
    
22.         If oShape.Type = 3 Then
    
23.             oShape.Delete
    
24.         End If
    
25.     Next
    
26.    
    
27.     Sheets(str).Select
    
28. End Sub
    
29. 
    
30. Sub drawCharts(sta As String)
    
31.     Dim str As String
    
32.    
    
33.     str = ActiveSheet.Name
    
34.     Sheets(sta).Select
    
35. 
    
36.     Call removeCharts(sta)
    
37. 
    
38.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    
39.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    
40.     Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    
41.    
    
42.     With Selection.Borders(xlEdgeTop)
    
43.         .LineStyle = xlContinuous
    
44.         .ColorIndex = 0
    
45.         .TintAndShade = 0
    
46.         .Weight = xlThin
    
47.     End With
    
48.    
    
49.     Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    
50.    
    
51.     With Selection.Borders(xlEdgeRight)
    
52.         .LineStyle = xlContinuous
    
53.         .ColorIndex = 0
    
54.         .TintAndShade = 0
    
55.         .Weight = xlThin
    
56.     End With
    
57.    
    
58.     Call mainPowerForce(sta)
    
59.    
    
60.     Cells(1, 1).Select
    
61.     Sheets(str).Select
    
62. End Sub
    
63. 
    
64. Sub mainPowerForce(sDraw As String)
    
65.     Dim totalRows As Single
    
66.     Dim counter, xRow, yCol, cHeight, cWidth, inLeft, inTop, inWidth As Integer
    
67.     Dim text As String
    
68.     Dim chartname As String
    
69. 
    
70.     totalRows = Sheets("²Î­p¹Ïªí").Range("B" & Rows.Count).End(xlUp).Row     ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹
    
71.     Sheets(sDraw).Select
    
72.     Cells(1, 11).Value = totalRows
    
73.       
    
74.     ActiveSheet.Shapes.AddChart.Select
    
75.                                              
    
76.     With ActiveChart
    
77.         
    
78.         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$C$1:²Î­p¹Ïªí!$F$" & totalRows)
    
79.         '.SetSourceData Source:=Range(" ²Î­p¹Ïªí!$C$1:²Î­p¹Ïªí!$F$" & totalRows)
    
80.         ' .ChartType = xlStockVOHLC              ' ªÑ²¼¹Ï   ( ·|³y¦¨ °O¾ÐÅ餣¨¬ )
    
81.         .ChartType = xlStockOHLC                 ' ªÑ²¼¹Ï
    
82.                           
    
83.          With .ChartGroups(1)
    
84.              .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
85.              .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 32, 96)
    
86.         End With
    
87.         
    
88.         .SeriesCollection.Add Source:=Range("²Î­p¹Ïªí!$G$1:²Î­p¹Ïªí!$G$" & totalRows)
    
89.         .SeriesCollection(5).Name = "=²Î­p¹Ïªí!$G$1"
    
90.         .SeriesCollection(5).ChartType = xlColumnClustered
    
91.         
    
92.         With .ChartGroups(2)      'ª`·N, ChartGroup¦b´¡¤J¦¨¥æ¶qª½±ø«áÅܦ¨ 2 ¤F
    
93.             .UpBars.Interior.Color = RGB(255, 0, 0)
    
94.             .DownBars.Interior.Color = RGB(0, 32, 96)
    
95.         End With
    
96.    
    
97.                              
    
98.         .Axes(xlCategory).CategoryType = xlCategoryScale
    
99.         .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
    
100.         .Axes(xlCategory).MajorTickMark = xlNone
     
101.         .Axes(xlCategory).TickLabelPosition = xlLow
     
102.             
     
103.         .Axes(xlValue).TickLabels.NumberFormatLocal = "0_ "                     ' ¥Nªíª«¥óªº®æ¦¡¥N½X¡C
     
104.    
     
105.     End With
     
106. 
     
107.     xRow = 3
     
108.     yCol = 1
     
109.     cHeight = 460
     
110.     cWidth = 500
     
111.     inLeft = 30
     
112.     inTop = 30
     
113.     inWidth = 378
     
114. 
     
115.     text = "¶}½L»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¬½L»ù"
     
116. 
     
117.     chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
     
118.     ActiveChart.ChartArea.Height = cHeight                           ' ±N­ì¥»³]©w¤§°ª«×½Õ¦Ü¾A«×¦ì¸m
     
119.     ActiveChart.ChartArea.Width = cWidth
     
120.                
     
121.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
     
122.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
     
123.       
     
124.     With ActiveChart.PlotArea                    ' ¹ê»Úø¹Ï°Ï¶ôªº½d³ò³]©w
     
125.          .InsideLeft = inLeft
     
126.          .InsideTop = inTop
     
127.          .InsideWidth = inWidth
     
128.     End With
     
129.                
     
130.     ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
     
131.     ActiveChart.ChartTitle.text = text
     
132.     ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 16
     
133.         
     
134.     ActiveChart.Legend.Position = xlCorner     ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m
     
135. End Sub

½Æ»s¥N½X

ªÑ²¼¹Ïªí.rar (23.42 KB)

¤U¸ü¦¸¼Æ: 52

2012-4-23 21:06

c_c_lai

¦^´_ 4# alexliou
¥i¥H±N¥H¤U¶K¤å¥þ³¡Copy¦Ü¤@­Ó .csv ÀÉ¡AµM«á¦AÂI¿ï¦¹ÀÉ®×´N¥i¥Hª½±µ¶i¤J¨ì Excel¡A
ÁÂÁ±zªºÀ°¦£¡I

1. "¤é´Á","®É¶¡","¶}½L»ù","³Ì°ª»ù","³Ì§C»ù","¦¨¥æ»ù","¦¨¥æ¶q","5MA","20MA","60MA"
   
2. 20120418,11:01,7155,7162,7154,7162,490,7153,7151,7158
   
3. 20120418,11:02,7162,7162,7158,7160,206,7155,7152,7158
   
4. 20120418,11:03,7160,7164,7160,7163,295,7157,7152,7158
   
5. 20120418,11:04,7163,7164,7159,7160,196,7160,7153,7158
   
6. 20120418,11:05,7160,7161,7158,7160,118,7161,7153,7158
   
7. 20120418,11:06,7160,7161,7157,7158,125,7160,7154,7158
   
8. 20120418,11:07,7158,7160,7157,7157,77,7160,7154,7158
   
9. 20120418,11:08,7157,7158,7156,7157,121,7158,7155,7158
   
10. 20120418,11:09,7157,7159,7157,7159,60,7158,7155,7157
    
11. 20120418,11:10,7159,7160,7158,7158,73,7158,7156,7157
    
12. 20120418,11:11,7158,7159,7157,7159,114,7158,7156,7157
    
13. 20120418,11:12,7159,7161,7158,7160,88,7159,7157,7157
    
14. 20120418,11:13,7160,7160,7155,7158,184,7159,7157,7156
    
15. 20120418,11:14,7158,7162,7158,7161,122,7159,7157,7156
    
16. 20120418,11:15,7161,7161,7155,7155,143,7159,7157,7156
    
17. 20120418,11:16,7155,7155,7148,7148,391,7156,7157,7156
    
18. 20120418,11:17,7148,7152,7148,7151,166,7155,7157,7155
    
19. 20120418,11:18,7151,7154,7151,7152,76,7153,7157,7155
    
20. 20120418,11:19,7152,7153,7147,7150,278,7151,7157,7155
    
21. 20120418,11:20,7150,7152,7148,7151,130,7150,7157,7155
    
22. 20120418,11:21,7152,7152,7149,7151,110,7151,7156,7154
    
23. 20120418,11:22,7151,7151,7148,7148,139,7150,7156,7154
    
24. 20120418,11:23,7148,7149,7145,7149,317,7150,7155,7154
    
25. 20120418,11:24,7149,7150,7147,7150,107,7150,7155,7154
    
26. 20120418,11:25,7150,7150,7144,7146,382,7149,7154,7154
    
27. 20120418,11:26,7146,7146,7133,7135,2139,7146,7153,7154
    
28. 20120418,11:27,7135,7136,7132,7132,511,7142,7152,7154
    
29. 20120418,11:28,7132,7135,7128,7133,850,7139,7150,7153
    
30. 20120418,11:29,7135,7137,7132,7134,318,7136,7149,7153
    
31. 20120418,11:30,7135,7135,7127,7127,396,7132,7148,7153

½Æ»s¥N½X

GBKEE

¦^´_ 6# c_c_lai
°Ñ¦Ò¬Ý¬Ý

¹Ïªí.rar (43.89 KB)

¤U¸ü¦¸¼Æ: 116

2012-4-24 15:32

c_c_lai

¦^´_ 7# GBKEE
¦A½Ð±Ð±z¡G
(1) With Sheets("²Î­p¹Ïªí")
            E = Application.Transpose(.Range(.[d1], .[d1].End(xlToRight)).Value)
    End With
    E «üªº¬O D1:H286 ªº½d³ò¶Ü¡H
(2) Ar ³B¸Ìªº¹Lµ{¬Ý±o¦³ÂI¤£¬ÆÁA¸Ñ¡A¯à§_±N¹Lµ{µy¥[»¡©ú¡H ¦]¥¦¤S©µ¦ù¨ì¤F Rng(2) ªº³B²z¡A
    ¤×¨ä¬O Rng(1).Columns(Application.Match(Ar(xi), Rng(1).Rows(1), 0)) «üªº¬O¬Æ»ò¡H
(3) §Ú±N If .Name = °Æ®y¼Ð And .Parent.SeriesCollection.Count > 1 Then .AxisGroup = 2
    ³o¬q¼W­×¦¨¡G
    If .Name = °Æ®y¼Ð And .Parent.SeriesCollection.Count > 1 Then
        .AxisGroup = 2
        .ChartType = xlColumnClustered    (¦pªþ¹Ï)
    End If
    ¬°¤°»ò¥[¤F xlColumnClustered¡A
    ' .MarkerBackgroundColorIndex = xlNone
    ' .MarkerForegroundColorIndex = xlNone
    ' .Smooth = False  ³o¤T¶µ³£¥²¶·¤©¥H Marked¡H
(4) ·í¹Ïªí¤£¦s¦b®É¡Aµ{¦¡ (¨î©w¸ê®Æ°Ï) °õ¦æ¨ì .ChartObjects.Delete ·|²£¥Í
    "°õ¦æ¶¥¬q¿ù»~ '1004'"  À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~¡A«h¥²¶·¥ý¦æ±N¥¦ Marked °_¨Ó¡Aµ¥²£¥Í«á¡A
    ¦A±N¥¦¦^´_¡A±µ¤U¨Ó¦]¤w²£¥Í¹Ïªí¡A©Ò¥H¦b«ö»s¹Ï (¤£ºÞ´X¦Ê¤U) ·íµM¤]´N OK ¤F¡C
    ½Ð¦ì¦bµL¹Ïªí®É¡AÀ³¦p¦ó¥hÁקK¦¹¿ù»~µo¥Í¡H
(5) ³Ì«á·íµM¤£±o¤£©Ó»{±zªº¹Ïªí²£¥Í¸û¦³§Þ¥©©Ê (¦pªþ¹Ï¤§¤W¤U¤ñ¹ï)¡AÁÂÁ±zªº¤À¨É¡I

¤U¸ü (87.89 KB)

2012-4-24 17:59

alexliou

¦^´_ 5# c_c_lai
­n¼W¥[5MA, 20MA, 50MA´N©M§â¦¨¥æ¶q¥[¤W¥h¤@¼Ë
¥i§Q¥Î SeriesCollection.Add ¤èªk
°²³]5MA, 20MA, 50MA¤À§O¦bH, I, J Äæ

ActiveChart.SeriesCollection.Add Source:=Range("H2:J" & totalrows)
ActiveChart.SeriesCollection(6).ChartType = xlLine
ActiveChart.SeriesCollection(7).ChartType = xlLine
ActiveChart.SeriesCollection(8).ChartType = xlLine

¸ê®Æ§Ç¦C6,7,8 (§Y5MA, 20MA, 50MA) ·|»P¸ê®Æ§Ç¦C5(¦¨¥æ¶q)¦@¥Î°Æ®y¼Ð¶b
¦ý5MA, 20MA, 50MAªº¨è«×À³»PªÑ»ù¤@­P
©Ò¥H»Ý±N°Æ®y¼Ð¶bªº¨è«×»P¥D®y¼Ð¶bªº¨è«×³]¬°¬Û¦P  
¯ÊÂI¬O·í¦¨¥æ¶q»PªÑ»ùªº³W¼Ò®t¤Ó¦h®É  
¹Ï·|¬Ý°_¨Ó«Ü©_©Ç (©Ò¥H¦¨¥æ¶q­n¨ú¾A·íªº³æ¦ì, Åý¥¦ªº­È©MªÑ»ù¤£·|®t¤Ó¦h)
¦ý§ÚÁ٧䤣¥X¤èªkÅý5MA, 20MA, 50MA»PªÑ»ùº¦¶^¹Ï¦@¥Î¦P¤@®y¼Ð¶b

GBKEE

¦^´_ 8# c_c_lai
(1)   E «üªº¬O D1 ©¹¥k¨ì³Ì«á¦³¸ê®Æªº½d³ò ,  [d1].End(xlToRight)  ¦p¤u§@ªí¤W«ö¤U Ctrl+-> ¥k¤è¦VÁä

(2)  Rng(1).Columns(Application.Match(Ar(xi), Rng(1).Rows(1), 0)) «üªº¬O¬Æ»ò¡H   Rng(1).Columns(§ä¨ìªºÄæ)
Application.Match(Ar(xi), Rng(1).Rows(1), 0)->  ¤u§@ªíMatch¨ç¼Æ ¦b Rng(1).Rows(1)-> Rng(1)ªº²Ä¤@¦C  ´M§ä Ar(xi)

(3)   .ChartType = xlColumnClustered    ¦³¨ÇÄÝ©Ê ¨Ã¤£¬O©Ò¦³ªº¹Ï§Î  ³£¥i¥H¥Îªº

(4) ·í¹Ïªí¤£¦s¦b®É¡Aµ{¦¡ (¨î©w¸ê®Æ°Ï) °õ¦æ¨ì .ChartObjects.Delete ·|²£¥Í "°õ¦æ¶¥¬q¿ù»~ '1004'"
2003ª© ¤£·|¦³ ¬O§Aªºª©¥»¸ûÄYÂÔ

(5) ±²¶b ¥iÁYµu¸ê®Æ¼Æ, ª½±µ¥´¤W¼Æ­È¤]¥i¥HÁYµu¸ê®Æ¼Æ.