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

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

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

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-4-23 07:19 ½s¿è

¦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)
01.png
2012-4-23 07:18

¦^´_ 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
Alex

TOP

¥»©«³Ì«á¥Ñ alexliou ©ó 2012-4-24 17:47 ½s¿è

¤À¦¨¨â¨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
Alex

TOP

¥»©«³Ì«á¥Ñ alexliou ©ó 2012-4-24 17:48 ½s¿è

¥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
Alex

TOP

¦^´_ 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
01.png
2012-4-23 21:04

02.png
2012-4-23 21:04
  1. Sub DrawAll()
  2.     Call drawStatistics
  3.     Call drawOmegaCharts
  4. End Sub

  5. Sub drawStatistics()
  6.     drawCharts ("²Î­p¹Ïªí")
  7. End Sub

  8. Sub drawOmegaCharts()
  9.     drawCharts ("Omega")
  10. End Sub

  11. Sub removeCharts(st As String)
  12.     Dim oShape As Shape
  13.     Dim str As String
  14.    
  15.     str = ActiveSheet.Name
  16.     Sheets(st).Select
  17.    
  18.     For Each oShape In ActiveSheet.Shapes
  19.         If oShape.Type = 3 Then
  20.             oShape.Delete
  21.         End If
  22.     Next
  23.    
  24.     Sheets(str).Select
  25. End Sub

  26. Sub drawCharts(sta As String)
  27.     Dim str As String
  28.    
  29.     str = ActiveSheet.Name
  30.     Sheets(sta).Select

  31.     Call removeCharts(sta)

  32.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  33.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  34.     Selection.Borders(xlEdgeLeft).LineStyle = xlNone
  35.    
  36.     With Selection.Borders(xlEdgeTop)
  37.         .LineStyle = xlContinuous
  38.         .ColorIndex = 0
  39.         .TintAndShade = 0
  40.         .Weight = xlThin
  41.     End With
  42.    
  43.     Selection.Borders(xlEdgeBottom).LineStyle = xlNone
  44.    
  45.     With Selection.Borders(xlEdgeRight)
  46.         .LineStyle = xlContinuous
  47.         .ColorIndex = 0
  48.         .TintAndShade = 0
  49.         .Weight = xlThin
  50.     End With
  51.    
  52.     Call mainPowerForce(sta)
  53.    
  54.     Cells(1, 1).Select
  55.     Sheets(str).Select
  56. End Sub

  57. Sub mainPowerForce(sDraw As String)
  58.     Dim totalRows As Single
  59.     Dim counter, xRow, yCol, cHeight, cWidth, inLeft, inTop, inWidth As Integer
  60.     Dim text As String
  61.     Dim chartname As String

  62.     totalRows = Sheets("²Î­p¹Ïªí").Range("B" & Rows.Count).End(xlUp).Row     ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹
  63.     Sheets(sDraw).Select
  64.     Cells(1, 11).Value = totalRows
  65.       
  66.     ActiveSheet.Shapes.AddChart.Select
  67.                                              
  68.     With ActiveChart
  69.         
  70.         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$C$1:²Î­p¹Ïªí!$F$" & totalRows)
  71.         '.SetSourceData Source:=Range(" ²Î­p¹Ïªí!$C$1:²Î­p¹Ïªí!$F$" & totalRows)
  72.         ' .ChartType = xlStockVOHLC              ' ªÑ²¼¹Ï   ( ·|³y¦¨ °O¾ÐÅ餣¨¬ )
  73.         .ChartType = xlStockOHLC                 ' ªÑ²¼¹Ï
  74.                           
  75.          With .ChartGroups(1)
  76.              .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
  77.              .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 32, 96)
  78.         End With
  79.         
  80.         .SeriesCollection.Add Source:=Range("²Î­p¹Ïªí!$G$1:²Î­p¹Ïªí!$G$" & totalRows)
  81.         .SeriesCollection(5).Name = "=²Î­p¹Ïªí!$G$1"
  82.         .SeriesCollection(5).ChartType = xlColumnClustered
  83.         
  84.         With .ChartGroups(2)      'ª`·N, ChartGroup¦b´¡¤J¦¨¥æ¶qª½±ø«áÅܦ¨ 2 ¤F
  85.             .UpBars.Interior.Color = RGB(255, 0, 0)
  86.             .DownBars.Interior.Color = RGB(0, 32, 96)
  87.         End With
  88.    
  89.                              
  90.         .Axes(xlCategory).CategoryType = xlCategoryScale
  91.         .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
  92.         .Axes(xlCategory).MajorTickMark = xlNone
  93.         .Axes(xlCategory).TickLabelPosition = xlLow
  94.             
  95.         .Axes(xlValue).TickLabels.NumberFormatLocal = "0_ "                     ' ¥Nªíª«¥óªº®æ¦¡¥N½X¡C
  96.    
  97.     End With

  98.     xRow = 3
  99.     yCol = 1
  100.     cHeight = 460
  101.     cWidth = 500
  102.     inLeft = 30
  103.     inTop = 30
  104.     inWidth = 378

  105.     text = "¶}½L»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¬½L»ù"

  106.     chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
  107.     ActiveChart.ChartArea.Height = cHeight                           ' ±N­ì¥»³]©w¤§°ª«×½Õ¦Ü¾A«×¦ì¸m
  108.     ActiveChart.ChartArea.Width = cWidth
  109.                
  110.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
  111.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  112.       
  113.     With ActiveChart.PlotArea                    ' ¹ê»Úø¹Ï°Ï¶ôªº½d³ò³]©w
  114.          .InsideLeft = inLeft
  115.          .InsideTop = inTop
  116.          .InsideWidth = inWidth
  117.     End With
  118.                
  119.     ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
  120.     ActiveChart.ChartTitle.text = text
  121.     ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 16
  122.         
  123.     ActiveChart.Legend.Position = xlCorner     ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m
  124. End Sub
½Æ»s¥N½X
ªÑ²¼¹Ïªí.rar (23.42 KB)

TOP

¦^´_ 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

TOP

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

¹Ïªí.rar (43.89 KB)

TOP

¦^´_ 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
01.png
2012-4-24 17:59

TOP

¥»©«³Ì«á¥Ñ alexliou ©ó 2012-4-24 18:54 ½s¿è

¦^´_ 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
Alex

TOP

¦^´_ 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¸ê®Æ¼Æ.

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD