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

[µo°Ý] K ½uªÑ²¼¹Ï¦p¦ó¯à»P¥D¤O¡B´²¤á¡B¤Î¦¨¥æ¶q½u¦@¦s¡H

[µo°Ý] K ½uªÑ²¼¹Ï¦p¦ó¯à»P¥D¤O¡B´²¤á¡B¤Î¦¨¥æ¶q½u¦@¦s¡H

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-5-7 12:05 ½s¿è

K ½uªÑ²¼¹Ï¦p¦ó¯à»P¥D¤O¡B´²¤á¡B¤Î¦¨¥æ¶q½u¦@¦s¡H ³o­ÓijÃD«e°}¤l
¦b½u¤W¤]¤£Â_¦a»P Hsieh¡BGBKEE¡Bregister313µ¥½Ñ¦ìª©¥D¥ý¶i½Ð¯q¹L¡A
¦P®É kobo¡BAlexLiou ¡Bchen_cook µ¥¦P¦n«e½ú¤]°Ñ»P½×­z¡AÁÂÁ¤j®aªº¼ö¤ß¡I
²{¦b§â§¹¦¨ªº¤ß±o´£¨Ñ¥X¨Ó¡A¥H´Á¯à¦³§ó¦hªº¤H¨Ó¦@­×¡A¦P®É¥ç§Æ±æ¯àÀò±o
¦U¦ì¦³§ó´Îªº­×¥¿»P¸gÅç´£¥X¤À¨É¡A§O¤H¯à¼gªº¬°¤°»ò§Ú¤£·|©O¡H

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

¹ï¤£°_¡I ¤WªþªºÀɮ׬O OK ªº¡A¥u¬O§Ú·Q¸Ñ¶}§Ú¦b³B²z¤Wªº¤@¨ÇºÃ´b¡A©Ò¥H±N¦¹½g¤À¨É¦P®É
§ï¦¨µo°Ý¡A ¤@Á|Âù±o (¤@³½¨â¦Y)¡C

   ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .SetSourceData Source:=Range("¤u§@ªí1!$B$1:¤u§@ªí1!$B$" & totalRows & ", ¤u§@ªí1!$C$1:¤u§@ªí1!$F$" & totalRows)
        .ChartType = xlStockOHLC
        With .ChartGroups(1)
             .AxisGroup = 1
                   .
                   .
                   .
        End With

        .SeriesCollection.Add Source:=Range("¤u§@ªí1!$G$2:¤u§@ªí1!$I$" & totalRows)
        
        With .SeriesCollection(5)    ' ¦¨¥æ¶q
            .AxisGroup = 2
            .Name = "=¤u§@ªí1!$G$1"
            .ChartType = xlColumnClustered
                   .
                   .
                   .
        End With

¥H¤Wµ{¦¡½X¹B§@³£ OK¡A ¦ý¬O¦pªG§Ú§â¦¨¥æ¶qªº³¡¤À¥Î¤U¦C¤è¦¡ªí¹F¡A«o·|¥X²{¿ù»~°T®§¡C
        With .ChartGroups(2)
             .AxisGroup = 2
                   .
                   .
        End With
Ãø¹D .SeriesCollection.Add Source:=Range("¤u§@ªí1!$G$2:¤u§@ªí1!$I$" & totalRows) ¤§«Å§i¡A
¤£´N¬O²Ä¤G²Õ (Group 2) ¶Ü¡H
¦Ó¥B¦pªG   With .SeriesCollection(6) ¥H¤Î With .SeriesCollection(7) ¤º³£¤@¨Ö¥[¤W  .AxisGroup = 2
¤]·|¦³¿ù»~°T®§¡A¨º·|¬O¬Æ»ò±¡ªp¡H »yªk¤£¥¿½T¡B©Î¬O¦³»yªk­­¨î¡H
§Úµo²{¥u­n¬OªÑ²¼¹Ï¥[¤W¨ä¥¦¹Ïªíªº²Õ¦X¤ñ¸û·|¦³Ãø«×¡C

ÁÂÁ«ü¾É¡I

TOP

§Ú°O±o§Ú¦³µo°Ý¹LÃþ¦üªº°ÝÃD,·Q½Ð±Ð¦p¦ó±N2±i¥H¤Wªº¹ÏÅ|¥[°_¨Ó,¥Ø«e¨Ó¨S¦³¤É¯Å,¯à§_PO¤å¥X¨Ó

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-5-7 14:42 ½s¿è

¦^´_ 3# white5168
  1. Option Explicit

  2. Sub drawCharts()
  3.     Dim totalRows As Single
  4.     Dim xRow, yCol, cHeight, cWidth As Integer
  5.     Dim text As String
  6.     Dim chartname As String
  7.     Dim sRowHeight As Single
  8.    
  9.     xRow = 3
  10.     yCol = 1
  11.     cHeight = 31         'CHeight ©w¸q¬°¹Ïªí©Ò¦ûªº¦C°ª
  12.     cWidth = 874
  13.         
  14.     Sheets("¤u§@ªí1").Select
  15.    
  16.     ActiveSheet.ChartObjects.Delete
  17.         
  18.     totalRows = Sheets("¤u§@ªí1").Range("B" & Rows.Count).End(xlUp).Row     ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹
  19.     '¥ý§â¦C°ª§ä¥X¨Ó, ¤~¦nºâ¥X¹Ï­n¦û´X¦C, ¨â­Ó¹Ï¤~¦n³s¦b¤@°_
  20.     sRowHeight = Sheets("¤u§@ªí1").Rows(3).RowHeight
  21.    
  22.     ActiveSheet.Shapes.AddChart.Select
  23.     With ActiveChart
  24.         .SetSourceData Source:=Range("¤u§@ªí1!$B$1:¤u§@ªí1!$B$" & totalRows & ", ¤u§@ªí1!$C$1:¤u§@ªí1!$F$" & totalRows)
  25.         .ChartType = xlStockOHLC
  26.         With .ChartGroups(1)
  27.              .AxisGroup = 1
  28.              ' .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)           ' ¬õ¦â
  29.              .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 69, 0)          ' ¾ï¬õ¦â
  30.              ' .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 32, 96)       ' ²`ÂŦâ
  31.              .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 250, 170)     ' ²L¬vºñ¦â
  32.         End With
  33.         
  34.         .SeriesCollection.Add Source:=Range("¤u§@ªí1!$G$2:¤u§@ªí1!$I$" & totalRows)
  35.         
  36.         With .SeriesCollection(5)
  37.             .AxisGroup = 2
  38.             .Name = "=¤u§@ªí1!$G$1"
  39.             .ChartType = xlColumnClustered
  40.             
  41.             With .Format.Line
  42.                 .Visible = msoTrue          ' ¦¨¥æ¶q
  43.                 .ForeColor.RGB = RGB(147, 112, 219)        ' ¦¨¥æ¶q«ü¼ÆÅã¥Ü¤§ÃC¦â    ---   µµ¦â
  44.                 .Transparency = 0
  45.             End With
  46.         End With
  47.         
  48.         With .SeriesCollection(6)
  49.             .Name = "=¤u§@ªí1!$H$1"
  50.             .ChartType = xlLine
  51.             With .Format.Line
  52.                 .Visible = msoTrue          ' ¥D¤O¬É¤J
  53.                 ' .ForeColor.RGB = RGB(105, 205, 170)      ' ¥D¤O¬É¤J«ü¼ÆÅã¥Ü¤§ÃC¦â    ---   Âźñ¦â
  54.                 .ForeColor.RGB = RGB(32, 178, 170)         ' ¥D¤O¬É¤J«ü¼ÆÅã¥Ü¤§ÃC¦â    ---   ®ü¬vºñ¦â
  55.                 .Transparency = 0
  56.             End With
  57.         End With
  58.         
  59.         With .SeriesCollection(7)
  60.             .Name = "=¤u§@ªí1!$I$1"
  61.             .ChartType = xlLine
  62.             With .Format.Line
  63.                 .Visible = msoTrue          ' ´²¤á¤è¦V
  64.                 .ForeColor.RGB = RGB(65, 105, 225)         ' ´²¤á¤è¦V«ü¼ÆÅã¥Ü¤§ÃC¦â    ---   ¤ÑÂŦâ
  65.                 .Transparency = 0
  66.             End With
  67.         End With
  68.         
  69.         .Axes(xlValue).TickLabels.NumberFormatLocal = "0_ "
  70.         
  71.         With .Axes(xlCategory)                            ' X®y¼Ð¶b (®É¶¡¶b)
  72.             .CategoryType = xlCategoryScale
  73.             .TickLabels.NumberFormatLocal = "hh:mm"
  74.             .MajorTickMark = xlNone
  75.             .Border.Weight = xlHairline
  76.             .Border.LineStyle = xlNone
  77.             .TickLabelPosition = xlLow
  78.             .TickLabels.Font.Size = 10
  79.         End With
  80.         
  81.         .ChartArea.Height = cHeight * sRowHeight                           ' ±N­ì¥»³]©w¤§°ª«×½Õ¦Ü¾A«×¦ì¸m
  82.         .ChartArea.Width = cWidth
  83.         
  84.         text = "ªÑ²¼¹Ï K ½u¡B¥D¤O¡B´²¤á¡B»P¦¨¥æ¶q"
  85.         
  86.         .SetElement (msoElementChartTitleCenteredOverlay)
  87.         .ChartTitle.text = text
  88.         .ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
  89.         .Legend.Position = xlCorner                         ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m
  90.     End With
  91.    
  92.     chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
  93.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
  94.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  95.    
  96.     Range("A1").Select
  97. End Sub
½Æ»s¥N½X

TOP

«Ü·PÁÂc_c_lai¤j¤j´£¨Ñªºµ{¦¡½X

¤£¹L¬Ý°_¨Ó¦n¶Ã,¯à§_½Ðc_c_lai¤j¤j¯à±N¨C­Ó¹ïÀ³ªº¥\¯à°µ¦¨¤@­Ó­Ó¨ç¼Æ»Pµù¸Ñ,¥H¤è«K²M·¡¤F¸Ñ­ì²z»Pdebug
¯à§_½Ðc_c_lai¤j¤j´£¨Ñ±z©Ò¨Ï¥Îªº¸ê®ÆÀÉ¥H¨Ñ°Ñ¦Ò¨Ï¥Îªº®æ¦¡¤º®e
©êºp! ½Ð¦h½Ì¸Ñ, »Ý¨D¦h¤FÂI, ¨­¬°Programmer´N¬Oµ{¦¡¼g¤[¤F,³o¼Ëªº²ßºD§ï¤£¤F,¹J¨ì»Ý­ndebug®É,µ{¦¡ªº¼Ò²Õ¤Æ»Pµù¸Ñ´N«Ü­«­n
ÁÂÁÂ

TOP

¦^´_ 5# white5168
µ{¦¡ªº¼Ò²Õ¤Æ»PµùÄÀ¥»¨Ó´N«Ü­«­n¡A¦ý½Ðª`·NµùÄÀ­n¼Ðµù¨ì­«ÂI¡A
¦Ó«D¶ÃÃСC¥´±q¤K¦ì¤¸¶}©l´N¤w¸g±q¨Æ³nÅéºûÅ@ªº§Ú¡A¯u¤£ª¾¦p¦ó
¦V§A¸Ñ»¡¬Ý°_¨Ó¦n¶Ãªº©w¸q¡H

TOP

§Ú¦b³o¸Ì´£¥X§Úªº«Øij,¦p¦³¤£¤¤·NÅ¥ªº¸Ü½Ð¦h¦h¥]²[

§Úı±o¤£ºÞ¬O¼g±o¦h¤Ö¦~µ{¦¡©Î¬O¨­¬°µ{¦¡³]­p®vªº¤H,³£À³¸Ó¦³ªº¦bµ{¦¡¬O¤¤¥[¤W¥²­nªº»¡©ú¬OÀ³·í
­è¶}©l§ë¨­©óµ{¦¡¤uµ{®v®É,­n¦bµ{¦¡¤¤¥[¤Jµù¸Ñ,»P©ú½T­q©wµ{¦¡¦WºÙ»PÅܼƦWºÙ,¤]¬O«Ü¤£¯à¾AÀ³­n¦bµ{¦¡¸Ì¥[¤W»¡©ú
¦ý¤[¦Ó¤[¤§²ßºD¤F,¨S¥[¤Ï¦Ó¤£²ßºD,¦]¬°­þ¤@¤Ñ­n¦A¦^¹LÀY¨Ó¬Ýªº®É­Ô¥i¥H«Ü§Ö´N¯à¤W¤â,¤~¤£·|¦A®É¶¡¥h¦^·Q·íªìªº·Qªk

¹ï©ó¼gµ{¦¡¤w¤[ªº¤H,¬O§_À³¸Ó«ä¦Òªº¸Ó¦p¦ó¼g±oÅý¤H®a¬Ý±oÀ´ªºµ{¦¡,¦Ó«D¼gµ¹¦Û¤v¬Ýªº²nªºµ{¦¡
¹ï©ó­è¶}©l±µÄ²·sµ{¦¡»y¨¥ªº·s¤H,§óÀ³¸Ó¾Ç²ß¾i¦¨¨}¦nªº¼gµ{¦¡²ßºD,³o¼Ë­þ¤Ñ¦^ÀY¨Ó½Æ²ßªº®É­Ô¥i¥H§ó²M·¡·íªìªº«ä¸ô

§Ú­è¨ì³o­Ó°Q½×°Ïªº®É­Ô,§Yµo²{¨ì³o¸Ì¦^À³ªº¤Hªº²ßºD¯uªº¸ò§Ú·íªì²ßºD¤@¼Ë,©Ò¥H§Ú¤~·|¦b¨C¦¸¶Kµ{¦¡½Xªº®É­Ô,¯S§O¥[¤Wµù¸Ñ»P©ú½T©w¸q¬ÛÃöªº¦WºÙ
¥HÅý«á­±ªº¤H­n¾Ç²ß®É¥i¥H¤@²´¬Ý¥X§Úªº·Qªk»P«ä¸ô,³o¼Ë¹ï¥L­Ì¥i¥H¦¨ªø±o§ó§Ö

»¡¤F³o»ò¦h,µL«D¤]¬O§Æ±æ§A¯à¤F¸Ñ,¤£ºÞ¬O¼g¤Fµ{¦¡¦h¤Ö¦~,¨S¦³¤@­Ó¦nªº²ßºD¾i¦¨,³o¼Ëµ{¦¡ªº¥iŪ©Ê¯uªº«Ü§C
¥H¤Wªº¨¥½×¦p¦³«_¥Çªº¦a¤è½Ð¦h¦h¥]²[

TOP

¦^´_ 1# c_c_lai


    ±zªº§@«~¤Ó´Î¤F¡I¥i¥H§Q¥Î¦¹½d¥»¹B¥Î¦b¨ä¥L¼Æ¾Ú¡A·PÁ±zªº¤À¨É¡AÁÂÁÂ!
peter460191

TOP

§Ú¤Ó±ß¨Ó³oÃä¤F,¦]¬°¦pªGª¾¹Dªº¸Ü,´N¤£·|®ö¶O¨º¼Ë¦hªº®É¶¡¤F!

TOP

³o­ÓªÑ²¼¹Ïªí¯uªºEXCEL¤¤©Ò¬Ý¹L³Ìºë½oªº¤F , ¦³§é½u  , ªø±ø¸òK½u
·Q¥²ªá¤F¤£¤Ö¤ß¦å , ¥\¤O¤£°÷¯uªº°µ¤£¥X¨Ó
·PÁ¤À¨É³o­Ó§@«~ , ÁöµMÁÙ¤£¯à¤U¸ü
¦ý¥ú¬Oª¾¹D¯à°÷°µ¨ì³o¼Ë¯uªº¥O¤HÆg¹Ä

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD