c_c_lai

¦^´_ 2# lin_6219
¥¼ªþ¤WÀɮסA¦U¦ì¤j¤j¦p¦ó´ú¸Õ§A©Ò¿×ªº°ÝÃD¡C

c_c_lai

¦^´_ 4# lin_6219
¸Õ¸Õ¬Ý¡I

1. Sub KChartWithVolume()          '  K ½u¹Ï »P ¦¨¥æ¶q¹Ï ©ñ¦b¦P¤@¹Ïªí
   
2.     Dim nRow As Integer, ChtObj As ChartObject
   
3.     Dim i As Integer, j As Integer
   
4.     Dim myMax, myMin, GapNr As Integer
   
5.    
   
6.     On Error Resume Next
   
7.    
   
8.     Worksheets("¥Dµe­±").ChartObjects.Delete
   
9.     nRow = Worksheets("ø¹Ï¸ê®Æ").Range("A65536").End(xlUp).Row
   
10.             
    
11.     With Worksheets("ø¹Ï¸ê®Æ")                  '  ³]©w¥D®y¼Ð¶b³Ì¤j¤Î³Ì¤p­È
    
12.         myMax = Application.Max(.Range("C2:C" & CStr(nRow)))
    
13.         myMin = Application.Min(.Range("D2:D" & CStr(nRow)))
    
14.         myMin = myMin - (myMax - myMin)
    
15.     End With
    
16.    
    
17.     ' Set ChtObj = Worksheets("¥Dµe­±").ChartObjects.Add(1, 1, 450, 250)
    
18.     Set ChtObj = Worksheets("¥Dµe­±").ChartObjects.Add(1, 1, 490, 280)
    
19.    
    
20.     With ChtObj.Chart
    
21.         ' .SetSourceData Worksheets("ø¹Ï¸ê®Æ").Range("A2:E" & CStr(nRow))
    
22.         .SetSourceData Source:=Range("ø¹Ï¸ê®Æ!$A$2:ø¹Ï¸ê®Æ!$E$" & CStr(nRow))
    
23.         .ChartType = xlStockOHLC
    
24.         .HasTitle = True
    
25.         .ChartTitle.Characters.Text = "K½u»P¦¨¥æ¶q¹Ï"
    
26.    
    
27.         With .ChartGroups(1)
    
28.             .HasUpDownBars = True
    
29.             .UpBars.Interior.ColorIndex = 3
    
30.             .DownBars.Interior.ColorIndex = 1
    
31.             .GapWidth = 10
    
32.         End With
    
33.         
    
34.         .SeriesCollection(1).Name = ""    ' ¶}½L»ù
    
35.         .SeriesCollection(2).Name = ""    ' ³Ì°ª»ù
    
36.         .SeriesCollection(3).Name = ""    ' ³Ì§C»ù
    
37.         .SeriesCollection(4).Name = ""    ' ¦¬½L»ù (¦¨¥æ»ù)
    
38.         
    
39.         With .Axes(xlValue)
    
40.             .MaximumScale = Round(myMax, 2)
    
41.             .MinimumScale = Round(myMin, 2)
    
42.             '  .MaximumScale = myMax
    
43.             '  .MinimumScale = myMin
    
44.             .MajorUnit = 0.5                        ' ¹Ïªí¥ª°¼¼Æ¦C¤§¶¡¶Z­È³]©w
    
45.         End With
    
46.             
    
47.         '  .SeriesCollection.Add Worksheets("ø¹Ï¸ê®Æ").Range("G1:G" & CStr(nRow))
    
48.         .SeriesCollection.Add Source:=Range("ø¹Ï¸ê®Æ!$G$1:ø¹Ï¸ê®Æ!$G$" & CStr(nRow))
    
49.         With .SeriesCollection(5)
    
50.             .AxisGroup = 1
    
51.             '  .ChartType = xlXYScatterLinesNoMarkers
    
52.             .ChartType = xlLines
    
53.             .Name = "=ø¹Ï¸ê®Æ!$G$1"    '  ²¾°Ê¥­§¡½u
    
54.             .Border.ColorIndex = 7
    
55.         End With
    
56.         
    
57.         '  .SeriesCollection.NewSeries       '  ·s¼W¦¨¥æ¶q¼Æ¦C
    
58.         .SeriesCollection.Add Source:=Range("ø¹Ï¸ê®Æ!$F$1:ø¹Ï¸ê®Æ!$F$" & CStr(nRow))
    
59.         With .SeriesCollection(6)
    
60.             .AxisGroup = 2                   '  ³]¬°°Æ®y¼Ð¶b
    
61.             '  .Values = Worksheets("ø¹Ï¸ê®Æ").Range("F2:F" & CStr(nRow))
    
62.             .ChartType = xlColumnClustered
    
63.             .Name = "¦¨¥æ¶q"
    
64.             .Interior.ColorIndex = 17
    
65.         End With
    
66.         
    
67.         With Worksheets("ø¹Ï¸ê®Æ")                      '  ­pºâ°Æ®y¼Ð¶b³Ì¤j¤Î³Ì¤p­È
    
68.             myMax = Application.Max(.Range("F2:F" & CStr(nRow)))
    
69.             myMax = myMax * 2
    
70.             myMin = 0.01
    
71.         End With
    
72.         
    
73.         With .Axes(xlValue, xlSecondary)      '  ³]©w°Æ®y¼Ð¶b³Ì¤j¤Î³Ì¤p­È
    
74.             .MaximumScale = Round(myMax, 0)
    
75.             .MinimumScale = Round(myMin, 0)
    
76.         End With
    
77.         
    
78.         With .PlotArea                         '  ½Õ¾ãø¹Ï°Ï°ì¤j¤p»P¦ì¸m
    
79.             .Top = .Top - 2
    
80.             .Height = .Height + 10
    
81.             .Width = .Width + 75
    
82.         End With
    
83.         
    
84.         .PlotArea.Select                        ' ±N¹ÏªíªºÃ¸¹Ï°Ï®æ½u¦Ç¶ÂÃC¦â­×§ï¦¨²H«C¦â¡B¥H¤Îªí®æ¹ê½u§ï¥Hµê½uªí¥Ü
    
85.         .Axes(xlValue).MajorGridlines.Select
    
86.         With Selection.Format.Line
    
87.             .Visible = msoTrue
    
88.             .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    
89.             .ForeColor.TintAndShade = 0
    
90.             .ForeColor.Brightness = 0.8000000119
    
91.             .Transparency = 0
    
92.             .Weight = 0.25
    
93.             .DashStyle = msoLineSysDash
    
94.         End With
    
95.         
    
96.         With .Legend
    
97.             .Position = xlLegendPositionTop
    
98.             .Top = .Top - 8
    
99.             .Border.ColorIndex = 57
    
100.             .Border.Weight = xlThin
     
101.             .Border.LineStyle = xlContinuous
     
102.             .Interior.ColorIndex = xlNone
     
103.         End With
     
104.     End With
     
105.     Worksheets("¥Dµe­±").[A1].Select
     
106. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 4# lin_6219
ªþ¤W¹Ïªí¦@°Ñ¦Ò¡C

¤U¸ü (32.07 KB)

2013-6-8 19:43

c_c_lai

¦^´_ 4# lin_6219
ªÑ²¼¬Wª¬¹Ï¦n¹³»P¨ä¥¦¹ÏªíµLªk¦@³B¦b¦P¤@¥D¶b¤W¡C

c_c_lai

¦^´_ 8# lin_6219
¤@¯ë§Ú¬O±N¦¨¥æ¶q(°Æ®y¼Ð¶b)»PªÑ²¼¬Wª¬¹Ï(¥D®y¼Ð¶b)¤À¶}³B­ù¡A
¥ç§Y¥D®y¼Ð¶b«ü¦s¦bªÑ²¼¬Wª¬¹Ï¡A¨ä¥L§¡Âk°Æ®y¼Ð¶bÂkÃþ¡C
¦p¹Ï¡G

¤U¸ü (32.87 KB)

2013-6-9 06:57

¤U¸ü (38.46 KB)

2013-6-9 06:57

¤U¸ü (23.67 KB)

2013-6-9 06:57

c_c_lai

¦^´_ 8# lin_6219
§Ú±N§A´£¨Ñªºµ{¦¡½Xµyµy­×§ï¤F¤@¨Ç¡A
²¼ä¤F¤@¨Ç¨Ï¥Î¤§»yªk¡A®Ä¯q©Ê¥ç·|§ï¨}¡C
¦p¹Ï¡G (¤W¹Ï¬O­ì¥»µ{¦¡ªº°õ¦æµ²ªG¡A¤U¹Ï¬O¸g¹L­×¹¢ªº)

¤U¸ü (32.45 KB)

2013-6-9 07:37

1. Sub KChartWithVolume3()                         '  K½u¹Ï»P¦¨¥æ¶q¹Ï©ñ¦b¦P¤@¹Ïªí
   
2.     Dim nRow As Integer, ChtObj As ChartObject
   
3.     Dim i As Integer, j As Integer
   
4.     Dim myMax, myMin, GapNr As Integer
   
5.    
   
6.     On Error Resume Next
   
7.   
   
8.     Worksheets("¥Dµe­±").ChartObjects.Delete
   
9.     nRow = Worksheets("ø¹Ï¸ê®Æ").Range("A65536").End(xlUp).Row
   
10.     Set ChtObj = Worksheets("¥Dµe­±").ChartObjects.Add(1, 1, 450, 250)
    
11.    
    
12.     With ChtObj.Chart
    
13.         .SetSourceData Worksheets("ø¹Ï¸ê®Æ").Range("B2:E" & CStr(nRow))
    
14.         .ChartType = xlStockOHLC
    
15.         .HasTitle = True
    
16.         .ChartTitle.Characters.Text = "K½u»P¦¨¥æ¶q¹Ï"
    
17.         .SeriesCollection.Add Worksheets("ø¹Ï¸ê®Æ").Range("G1:G" & CStr(nRow))
    
18.         
    
19.         With .SeriesCollection(5)
    
20.             .ChartType = xlXYScatterLinesNoMarkers
    
21.             '  .ChartType = xlLine
    
22.             .Border.ColorIndex = 7
    
23.             .AxisGroup = xlPrimary
    
24.             .Name = "=ø¹Ï¸ê®Æ!$G$1"
    
25.         End With
    
26.    
    
27.         With .ChartGroups(1)
    
28.             .AxisGroup = xlPrimary
    
29.             .HasUpDownBars = True
    
30.             .UpBars.Interior.ColorIndex = 3
    
31.             .DownBars.Interior.ColorIndex = 1
    
32.             .GapWidth = 10
    
33.         End With
    
34.         
    
35.         With Worksheets("ø¹Ï¸ê®Æ")              '  ³]©w¥D®y¼Ð¶b³Ì¤j¤Î³Ì¤p­È
    
36.             myMax = Application.Max(.Range("C2:C" & CStr(nRow)))
    
37.             myMin = Application.Min(.Range("D2:D" & CStr(nRow)))
    
38.             myMin = myMin - (myMax - myMin)
    
39.         End With
    
40.         
    
41.         With .Axes(xlValue)
    
42.             .MaximumScale = Round(myMax, 2)
    
43.             .MinimumScale = Round(myMin, 2)
    
44.         End With
    
45.         
    
46.         .SeriesCollection.NewSeries              '  ·s¼W¦¨¥æ¶q¼Æ¦C
    
47.         With .SeriesCollection(6)
    
48.             .Values = Worksheets("ø¹Ï¸ê®Æ").Range("F2:F" & CStr(nRow))
    
49.             .ChartType = xlColumnClustered
    
50.             .Name = "¦¨¥æ¶q"
    
51.             .Interior.ColorIndex = 17
    
52.             .AxisGroup = xlSecondary             '  ³]¬°°Æ®y¼Ð¶b
    
53.         End With
    
54.         
    
55.         With Worksheets("ø¹Ï¸ê®Æ")              '  ­pºâ°Æ®y¼Ð¶b³Ì¤j¤Î³Ì¤p­È
    
56.             myMax = Application.Max(.Range("F2:F" & CStr(nRow)))
    
57.             myMax = myMax * 2
    
58.             myMin = 0.01
    
59.         End With
    
60.         
    
61.         With .Axes(xlValue, xlSecondary)         '  ³]©w°Æ®y¼Ð¶b³Ì¤j¤Î³Ì¤p­È
    
62.             .MaximumScale = Round(myMax, 0)
    
63.             .MinimumScale = Round(myMin, 0)
    
64.         End With
    
65.         
    
66.          With .Axes(xlCategory)                               '  X®y¼Ð¶b (®É¶¡¶b)
    
67.              .CategoryType = xlCategoryScale
    
68.              .TickLabelSpacing = 3                            '  ¼Ð¥Ü¶¡¶Z
    
69.              .TickLabels.NumberFormatLocal = "yyyy/m/d"
    
70.              .TickLabels.Font.ColorIndex = 5                  '  Blue Color
    
71.         End With
    
72.         
    
73.         With .Legend                                          '  §R°£¤£¥²­nªº¹Ï¨Ò
    
74.             .LegendEntries(2).Delete
    
75.             .LegendEntries(2).Delete
    
76.             .LegendEntries(2).Delete
    
77.             .LegendEntries(2).Delete
    
78.             .Top = .Parent.ChartTitle.Top - 5
    
79.         End With
    
80.         
    
81.         With .PlotArea                                        '  ½Õ¾ãø¹Ï°Ï°ì¤j¤p»P¦ì¸m
    
82.             .Top = .Top - 10
    
83.             .Height = .Height + 10
    
84.             .Width = .Width + 75
    
85.         End With
    
86.         
    
87.         .PlotArea.Select    '  ±N¹ÏªíªºÃ¸¹Ï°Ï®æ½u¦Ç¶ÂÃC¦â­×§ï¦¨²H«C¦â¡B¥H¤Îªí®æ¹ê½u§ï¥Hµê½uªí¥Ü
    
88.         .Axes(xlValue).MajorGridlines.Select
    
89.         With Selection.Format.Line
    
90.             .Visible = msoTrue
    
91.             .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    
92.             .ForeColor.TintAndShade = 0
    
93.             .ForeColor.Brightness = 0.8000000119
    
94.             .Transparency = 0
    
95.             .Weight = 0.25
    
96.             .DashStyle = msoLineSysDash
    
97.         End With
    
98.     End With
    
99.     Worksheets("¥Dµe­±").[A1].Select
    
100. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_  c_c_lai
¤£¦n·N«ä ¦b¦V§A¸ß°Ý¤@­Ó°ÝÃD
§Ú²{¦b¦pªG­nµe¤@­Óxllineªº¹Ï
µM«á§Ú­n§â¤é´Á¥[¶i¥h·í¦¨³Ì ...
lin_6219 µoªí©ó 2013-6-9 15:18

§A¬O¤@¶}©l«K«Å§iªº¶Ü¡H Ä´¦p¤U¤è¤§¨Ò¤l¡G
.SetSourceData Worksheets("ø¹Ï¸ê®Æ").Range("A2:E" & CStr(nRow))
ÁÙ¬O¦b¤¤¬q¥[¤Jªº¡H

c_c_lai

¦^´_ 14# lin_6219
ªþ¤W´ú¸Õµ{¦¡¨Ñ°Ñ¦Ò¡G Range("ø¹Ï¸ê®Æ!$A$2:ø¹Ï¸ê®Æ!$A$" & CStr(nRow) & ", ø¹Ï¸ê®Æ!$F$2:ø¹Ï¸ê®Æ!$F$" & CStr(nRow))

1. Sub Test()
   
2.     Dim nRow As Integer, ChtObj As ChartObject
   
3.     Dim i As Integer, j As Integer, chartname As String
   
4.     Dim myMax, myMin, GapNr As Integer
   
5.    
   
6.     On Error Resume Next
   
7.   
   
8.     With Worksheets("¥Dµe­±")
   
9.         .ChartObjects.Delete
   
10.         .Select
    
11.         nRow = Worksheets("ø¹Ï¸ê®Æ").Range("A65536").End(xlUp).Row
    
12.         Set ChtObj = Worksheets("¥Dµe­±").ChartObjects.Add(1, 1, 450, 250)
    
13.         
    
14.         With ChtObj.Chart
    
15.             .SetSourceData Source:=Range("ø¹Ï¸ê®Æ!$A$2:ø¹Ï¸ê®Æ!$A$" & CStr(nRow) & ", ø¹Ï¸ê®Æ!$F$2:ø¹Ï¸ê®Æ!$F$" & CStr(nRow))
    
16.             .ChartType = xlXYScatterLinesNoMarkers
    
17.             .HasTitle = True
    
18.             .ChartTitle.Characters.Text = "K½u»P¦¨¥æ¶q¹Ï"
    
19.             
    
20.             With .SeriesCollection(1)
    
21.                 .Border.ColorIndex = 7
    
22.                 .Name = "=ø¹Ï¸ê®Æ!$F$1"
    
23.             End With
    
24.             
    
25.             With .Axes(xlCategory)                               '  X®y¼Ð¶b (®É¶¡¶b)
    
26.                 .CategoryType = xlCategoryScale
    
27.                 .TickLabelSpacing = 3                            '  ¼Ð¥Ü¶¡¶Z
    
28.                 .TickLabels.NumberFormatLocal = "yyyy/m/d"
    
29.                 .TickLabels.Font.ColorIndex = 5                  '  Blue Color
    
30.             End With
    
31.         End With
    
32.     End With
    
33. End Sub

½Æ»s¥N½X

¤U¸ü (20.85 KB)

2013-6-9 16:17

c_c_lai

¦^´_ 16# lin_6219
¹ïÀ³ªºª½ºb(¶Â½u¶¡¹j)¡A¤£¹³§Aªº¥u¦³¦³¤é´Á¤~¦³¥X²{¡A¦Ó¬O¥þ³¡³£¥X²{¦³¥X²{¡H
¤£¤Ó©ú¥Õ§A«üªº¬O¡H  ¯à§_´y­z²M·¡¨Ç¡H

c_c_lai

¦^´_ 18# lin_6219
³o§Ú­Ë¬O¨S¥h¯d·N¡A¬°¤°»ò·|¤£¦P¡A
§Ú¤]¤£²M·¡¡C°®¯Üªþ¤Wµ{¦¡½XÅý§A®Ö¹ï¡G

1. Sub Test()
   
2.     Dim nRow As Integer, ChtObj As ChartObject
   
3.     Dim i As Integer, j As Integer, chartname As String
   
4.     Dim myMax, myMin, GapNr As Integer
   
5.    
   
6.     On Error Resume Next
   
7.   
   
8.     With Worksheets("¥Dµe­±")
   
9.         .ChartObjects.Delete
   
10.         .Select
    
11.         nRow = Worksheets("ø¹Ï¸ê®Æ").Range("A65536").End(xlUp).Row
    
12.         Set ChtObj = Worksheets("¥Dµe­±").ChartObjects.Add(1, 1, 450, 250)
    
13.         
    
14.         With ChtObj.Chart
    
15.             '  .SetSourceData Source:=Range("ø¹Ï¸ê®Æ!$A$2:ø¹Ï¸ê®Æ!$A$20, ø¹Ï¸ê®Æ!$F$2:ø¹Ï¸ê®Æ!$F$20")
    
16.             .SetSourceData Source:=Range("ø¹Ï¸ê®Æ!$A$2:ø¹Ï¸ê®Æ!$A$" & CStr(nRow) & ", ø¹Ï¸ê®Æ!$F$2:ø¹Ï¸ê®Æ!$F$" & CStr(nRow))
    
17.             .ChartType = xlXYScatterLinesNoMarkers
    
18.             .HasTitle = True
    
19.             .ChartTitle.Characters.Text = "K½u»P¦¨¥æ¶q¹Ï"
    
20.             
    
21.             With .SeriesCollection(1)
    
22.                 .Border.ColorIndex = 7
    
23.                 .Name = "=ø¹Ï¸ê®Æ!$F$1"
    
24.             End With
    
25.             
    
26.             With .Axes(xlCategory)                               '  X®y¼Ð¶b (®É¶¡¶b)
    
27.                 ' .CategoryType = xlCategoryScale
    
28.                 ' .TickLabelSpacing = 1                            '  ¼Ð¥Ü¶¡¶Z
    
29.                 .TickLabels.NumberFormatLocal = "yyyy/m/d"
    
30.                 .TickLabels.Font.ColorIndex = 5                  '  Blue Color
    
31.                 ' .TickLabels.Orientation = xlTickLabelOrientationUpward
    
32.             End With
    
33.         End With
    
34.     End With
    
35. End Sub

½Æ»s¥N½X