c_c_lai

¦^´_ 29# GBKEE

§Ú±N¦¹¨â­¶¤§µe­±ªþ¤W¨Ñ°Ñ¦Ò¡G

¤U¸ü (76.61 KB)

2012-4-19 17:22

¤U¸ü (92.96 KB)

2012-4-19 17:25

GBKEE

¦^´_ 31# c_c_lai
¹ï¤£°_ :§Aªºª©¥»¸û¥ý¶i §Ú¤£©ö°»¿ù
¥u¦³§A¾É¤Þ·s¼W¹Ïªí ¸û²©öªº¤èªk, ¤§«á§A¦A¨Ì§Aªº»Ý¨D­×§ï

1. Sub Ex()
   
2. Dim Rng As Range, xi As Integer
   
3. With ActiveSheet
   
4.     .ChartObjects.Delete  '¹Ïªí¥þ³¡§R°£
   
5.     For xi = 0 To 4
   
6.        ' Set Rng = .[a1].Offset(, xi * 10)  ' ¶¡¹j10Äæ
   
7.         Set Rng = .[a1].Offset(xi * 15)    ' ¶¡¹j15¦C
   
8.         With .ChartObjects.Add(Rng.Left, Rng.Top, Rng.Resize(, 10).Width, Rng.Resize(10).Height).Chart
   
9.                  ' .ChartObjects.Add(Left, Top, Width, Height)  '¹Ïªí·s¼W( ¥kÃä¦ì¸m, ¤W¤è¦ì¸m ,¼e«×, °ª«× )
   
10.             .SetSourceData Source:=Sheets("²Î­p¹Ïªí").UsedRange.Columns(xi + 1), PlotBy:=xlColumns
    
11.             .HasTitle = True
    
12.             .ChartTitle.text = "¹Ïªí " & xi + 1      
    
13.         End With
    
14.     Next
    
15.    End With
    
16. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 32# GBKEE
§Ú±o¨ì¤F¤@­Ó¤ß±o¡A¨º´N¬O·í±z¹Ïªíªº¸ê®Æ¨Ó·½«ü¦V«D¥»¤u§@ªí³æ®É (¨Ò¦p¡G­n¦b A¤u§@ªí³æ ø»s²Î­p¹Ïªí¡B¦Ó¨Ó·½¸ê®Æ«o¦b B¤u§@ªí³æ )¡A
©ó­«·s¦bø»s®É¡A®É¦Ó¥¿±`¡A¦h®É¶Ã§Ç¡C
¦ý¬O¸g¦h¦¸´ú¸Õµo²{³Ì­«­nªºÄpµ²¬O¡G ·í A¤u§@ªí³æ ¤º®e°£¤F©Ò»Ý¿ï¾Ü«ö¶s¥~¡AµL¥ô¦ó¸ê®Æ¦s¦b¡A¤@¤Á¥¿±`¡C
                                                                     ***  ·í A¤u§@ªí³æ ¤º®e°£¤F©Ò»Ý¿ï¾Ü«ö¶s¥~¡A¤w¸g¦s¦b¦³¨ä¥Lªº¥ô¦ó¸ê®Æ (¦pªþ¥ó¤§ª¬ªp)¡A¤Ö¤Ö°õ¦æ¥¿±`¡B¦h®É²æ½u¶Ã§Ç¡C
·Ð½ÐÀ°¦£¬Ý¬Ý¡AÁÂÁ±z¡I

¤U¸ü (62.61 KB)

2012-4-20 08:19

¤U¸ü (33.85 KB)

2012-4-20 08:20

³Q¹Ïªí§Ë±o§Ö­n±Y¼ì¤F.rar (185.92 KB)

¤U¸ü¦¸¼Æ: 12

2012-4-20 08:20

GBKEE

¦^´_ 33# c_c_lai
­«·s ­×§ï¾ã²z §Aªº µ{¦¡½X , ½Ð±N¥þ³¡ªºµ{¦¡½X ½Æ»s¦b¦P¤@¼Ò²Õ¤¤.

1. Dim xRow(1 To 6), yCol(1 To 6), cWidth(1 To 6), cHeight(1 To 6), xText(1 To 6)
   
2. Dim Chart_Source(1 To 6)
   
3. Private Sub °}¦C³]©w(ShName As String)
   
4.     Dim Rng As Range
   
5.     xRow(1) = IIf(ShName = "Omega", 4, 1)
   
6.     xRow(2) = IIf(ShName = "Omega", 18, 16)
   
7.     xRow(3) = IIf(ShName = "Omega", 4, 1)
   
8.     xRow(4) = IIf(ShName = "Omega", 18, 16)
   
9.     xRow(5) = IIf(ShName = "Omega", 4, 1)
   
10.     xRow(6) = 31
    
11.     yCol(1) = IIf(ShName = "Omega", 55, 1)
    
12.     yCol(2) = IIf(ShName = "Omega", 35, 1)
    
13.     yCol(3) = IIf(ShName = "Omega", 39, 5)
    
14.     yCol(4) = IIf(ShName = "Omega", 39, 5)
    
15.     yCol(5) = IIf(ShName = "Omega", 43, 9)
    
16.     yCol(6) = 1
    
17.     cWidth(1) = IIf(ShName = "Omega", 209, 222)
    
18.     cWidth(2) = IIf(ShName = "Omega", 209, 222)
    
19.     cWidth(3) = 209
    
20.     cWidth(4) = 209
    
21.     cWidth(5) = 405
    
22.     cWidth(6) = 810
    
23.     cHeight(1) = 240
    
24.     cHeight(2) = 240
    
25.     cHeight(3) = 240
    
26.     cHeight(4) = 240
    
27.     cHeight(5) = IIf(ShName = "Omega", 485, 488)
    
28.     cHeight(6) = 480
    
29.     xText(1) = "¥D¤O¬É¤J"
    
30.     xText(2) = "¤O®t"
    
31.     xText(3) = "®ø¤Æ¤O"
    
32.     xText(4) = "§¡®t(¤j¤á)"
    
33.     xText(5) = "¥D¤O¡B´²¤á¡B»P¦¨¥æ»ù¡B¶q"
    
34.     xText(6) = "¦¨¥æ»ù»P¦¨¥æ¶q"
    
35.     With Sheets("²Î­p¹Ïªí")
    
36.         Set Rng = .Range("A1").CurrentRegion
    
37.         Set Chart_Source(1) = Union(Rng.Columns(2), Rng.Columns(27))
    
38.         Set Chart_Source(2) = Union(Rng.Columns(2), Rng.Columns(28))
    
39.         Set Chart_Source(3) = Union(Rng.Columns(2), Rng.Columns(29))
    
40.         Set Chart_Source(4) = Union(Rng.Columns(2), Rng.Columns(30))
    
41.         Set Chart_Source(5) = Union(Rng.Columns(2), Rng.Columns(6), Rng.Columns(9), Rng.Columns(10), Rng.Columns(22))
    
42.         Set Chart_Source(6) = Union(Rng.Columns(2), Rng.Columns(6), Rng.Columns(22))
    
43.      End With
    
44. End Sub
    
45. Sub ¥þ³¡­«Ã¸()  '­«Ã¸²Î­p¹Ïªí ¤]¬O¥Î¦¹µ{§Ç
    
46.     »s¹Ïµ{§Ç Sheets(Array("²Î­p¹Ïªí", "Omega"))
    
47. End Sub
    
48. Sub ­«Ã¸Omega()
    
49.     »s¹Ïµ{§Ç Sheets(Array("Omega"))
    
50. End Sub
    
51. Private Sub »s¹Ïµ{§Ç(xlSh As Sheets)     '¥þ³¡­«Ã¸
    
52.     Dim Sh As Worksheet, xi As Integer
    
53.     For Each Sh In xlSh   '"'Sheets(Array("²Î­p¹Ïªí", "Omega"))
    
54.         Sh.ChartObjects.Delete
    
55.         °}¦C³]©w Sh.Name
    
56.         For xi = 1 To IIf(Sh.Name = "Omega", 5, 6)
    
57.             With Sh.ChartObjects.Add(Sh.Cells(xRow(xi), yCol(xi)).Left, Sh.Cells(xRow(xi), yCol(xi)).Top, cWidth(xi), cHeight(xi)).Chart
    
58.                 .ChartType = IIf(xi >= 5, xlLine, xlColumnStacked)  'xlLine-> §é½u¹Ï 'xlColumnStacke-> °ïÅ|ª½±ø¹Ï
    
59.                 .SetSourceData Source:=Chart_Source(xi)
    
60.                 .HasLegend = 0                                          '¹Ïªíªº¹Ï¨Ò:  ¤£¥i¨£
    
61.                 .SeriesCollection(1).AxisGroup = IIf(xi >= 5, 2, 1)
    
62.                 With .Axes(xlCategory)                'X®y¼Ð¶b
    
63.                     .CategoryType = xlCategoryScale
    
64.                     .TickLabels.NumberFormatLocal = "hh:mm"
    
65.                     .MinorTickMark = xlNone
    
66.                     .Border.Weight = xlHairline
    
67.                     .Border.LineStyle = xlNone
    
68.                     .TickLabelPosition = xlLow
    
69.                     .TickLabels.Font.Size = 10
    
70.                 End With
    
71.                '''''''''''''''''''''''''
    
72.                 If .ChartType = xlColumnStacked Then              '°ïÅ|ª½±ø¹Ï
    
73.                     .SeriesCollection(1).Shadow = False           '¹Ïªí¤¤ªº¼Æ¦C(1)
    
74.                     .SeriesCollection(1).InvertIfNegative = True
    
75.                     With .SeriesCollection(1).Border
    
76.                         .Weight = xlHairline
    
77.                         .LineStyle = xlNone
    
78.                     End With
    
79.                     With .SeriesCollection(1).Interior
    
80.                         .ColorIndex = 5
    
81.                         .PatternColorIndex = 42
    
82.                         .Pattern = xlSolid
    
83.                     End With
    
84.                 Else                                               '§é½u¹Ï
    
85.                     .HasLegend = True
    
86.                     .Legend.Top = 1
    
87.                     .Legend.Position = xlCorner
    
88.                     .SeriesCollection(1).MarkerStyle = xlNone
    
89.                     With .Legend.Border
    
90.                         .Weight = xlHairline
    
91.                         .LineStyle = xlNone
    
92.                     End With
    
93.                 End If
    
94.                 '''''''''''''''''''''''''''
    
95.                 With .Axes(xlValue).TickLabels.Font   'Y®y¼Ð¶b¤W¨è«×ªº¨è«×¼ÐÅÒªº¦rÅé
    
96.                     .FontStyle = "¼Ð·Ç"
    
97.                     .Size = 10
    
98.                 End With
    
99.                 .HasTitle = True                        '¹Ïªíªº¼ÐÃD   ¥i¨£
    
100.                  With .ChartTitle                       '¹Ïªíªº¼ÐÃD
     
101.                     .Top = 1
     
102.                     .text = xText(xi)
     
103.                     .Font.Size = 14
     
104.                 End With
     
105.                 With .PlotArea                          ' ¹ÏªíªºÃ¸¹Ï°Ï
     
106.                     .Top = 1
     
107.                     .Left = 1
     
108.                     .Width = cWidth
     
109.                     .Height = cHeight
     
110.                     .Interior.ColorIndex = xlNone
     
111.                 End With
     
112.             End With
     
113.         Next
     
114.     Next
     
115. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 34# GBKEE
¦Ñ¬O¥´ÂZ±z¤]·|·P¨ì¤£¦n·N«äªº¡A¦ý¤£¥©ªº¥¦¥X²{¦p¤Uªº¿ù»~°T®§¡A¥¦¤S¨S«ü¥X¬O­þ¸Ì¡A¥u±o¨D§U±z¤F¡I

¤U¸ü (64.96 KB)

2012-4-21 11:53

GBKEE

¦^´_ 35# c_c_lai
¦b2003ª©¬O¨S³o°ÝÃDªº ¨ºµy¥[­×§ï ¦p¤U

1. Sub ¥þ³¡­«Ã¸()  '­«Ã¸²Î­p¹Ïªí ¤]¬O¥Î¦¹µ{§Ç
   
2.     »s¹Ïµ{§Ç "²Î­p¹Ïªí"
   
3.     ­«Ã¸Omega
   
4. End Sub
   
5. Sub ­«Ã¸Omega()
   
6.     »s¹Ïµ{§Ç "Omega"
   
7. End Sub
   
8. Private Sub »s¹Ïµ{§Ç(xlSh As String)      '¥þ³¡­«Ã¸
   
9.     Dim Sh As Worksheet, xi As Integer
   
10.     Set Sh = Sheets(xlSh)
    
11.     Sh.ChartObjects.Delete
    
12.     °}¦C³]©w Sh.Name
    
13.     For xi = 1 To IIf(Sh.Name = "Omega", 5, 6)
    
14.         With Sh.ChartObjects.Add(Sh.Cells(xRow(xi), yCol(xi)).Left, Sh.Cells(xRow(xi), yCol(xi)).Top, cWidth(xi), cHeight(xi)).Chart
    
15.             .ChartType = IIf(xi >= 5, xlLine, xlColumnStacked)  'xlLine-> §é½u¹Ï 'xlColumnStacke-> °ïÅ|ª½±ø¹Ï
    
16.             .SetSourceData Source:=Chart_Source(xi)
    
17.             .HasLegend = 0                                          '¹Ïªíªº¹Ï¨Ò:  ¤£¥i¨£
    
18.             .SeriesCollection(1).AxisGroup = IIf(xi >= 5, 2, 1)
    
19.             With .Axes(xlCategory)                'X®y¼Ð¶b
    
20.                 .CategoryType = xlCategoryScale
    
21.                 .TickLabels.NumberFormatLocal = "hh:mm"
    
22.                 .MinorTickMark = xlNone
    
23.                 .Border.Weight = xlHairline
    
24.                 .Border.LineStyle = xlNone
    
25.                 .TickLabelPosition = xlLow
    
26.                 .TickLabels.Font.Size = 10
    
27.             End With
    
28.             '''''''''''''''''''''''''
    
29.             If .ChartType = xlColumnStacked Then              '°ïÅ|ª½±ø¹Ï
    
30.                 .SeriesCollection(1).Shadow = False           '¹Ïªí¤¤ªº¼Æ¦C(1)
    
31.                 .SeriesCollection(1).InvertIfNegative = True
    
32.                 With .SeriesCollection(1).Border
    
33.                     .Weight = xlHairline
    
34.                     .LineStyle = xlNone
    
35.                 End With
    
36.                 With .SeriesCollection(1).Interior
    
37.                     .ColorIndex = 5
    
38.                     .PatternColorIndex = 42
    
39.                     .Pattern = xlSolid
    
40.                 End With
    
41.             Else                                               '§é½u¹Ï
    
42.                 .HasLegend = True
    
43.                 .Legend.Top = 1
    
44.                 .Legend.Position = xlCorner
    
45.                 .SeriesCollection(1).MarkerStyle = xlNone
    
46.                 With .Legend.Border
    
47.                     .Weight = xlHairline
    
48.                     .LineStyle = xlNone
    
49.                 End With
    
50.             End If
    
51.                 '''''''''''''''''''''''''''
    
52.             With .Axes(xlValue).TickLabels.Font   'Y®y¼Ð¶b¤W¨è«×ªº¨è«×¼ÐÅÒªº¦rÅé
    
53.                 .FontStyle = "¼Ð·Ç"
    
54.                 .Size = 10
    
55.             End With
    
56.             .HasTitle = True                        '¹Ïªíªº¼ÐÃD   ¥i¨£
    
57.             With .ChartTitle                       '¹Ïªíªº¼ÐÃD
    
58.                 .Top = 1
    
59.                 .text = xText(xi)
    
60.                 .Font.Size = 14
    
61.             End With
    
62.             With .PlotArea                          ' ¹ÏªíªºÃ¸¹Ï°Ï
    
63.                 .Top = 1
    
64.                 .Left = 1
    
65.                 .Width = cWidth
    
66.                 .Height = cHeight
    
67.                 .Interior.ColorIndex = xlNone
    
68.             End With
    
69.         End With
    
70.     Next
    
71. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 36# GBKEE
¿ù»~°T®§¤@¼Ë¡Aµo²{°ÝÃDÀ³¸Ó¬O¥X¦b  ----> °}¦C³]©w  ¤W¡C

1. Dim xRow(1 To 6), yCol(1 To 6), cWidth(1 To 6), cHeight(1 To 6), xText(1 To 6)
   
2. Dim Chart_Source(1 To 6)
   
3. 
   
4. Private Sub °}¦C³]©w(ShName As String)
   
5.     Dim Rng As Range
   
6. 
   
7.     xRow(1) = IIf(ShName = "Omega", 4, 1)
   
8.     xRow(2) = IIf(ShName = "Omega", 18, 16)
   
9.     xRow(3) = IIf(ShName = "Omega", 4, 1)
   
10.     xRow(4) = IIf(ShName = "Omega", 18, 16)
    
11.     xRow(5) = IIf(ShName = "Omega", 4, 1)
    
12.     xRow(6) = 31
    
13. 
    
14.     yCol(1) = IIf(ShName = "Omega", 55, 1)
    
15.     yCol(2) = IIf(ShName = "Omega", 35, 1)
    
16.     yCol(3) = IIf(ShName = "Omega", 39, 5)
    
17.     yCol(4) = IIf(ShName = "Omega", 39, 5)
    
18.     yCol(5) = IIf(ShName = "Omega", 43, 9)
    
19.     yCol(6) = 1
    
20. 
    
21.     cWidth(1) = IIf(ShName = "Omega", 209, 222)
    
22.     cWidth(2) = IIf(ShName = "Omega", 209, 222)
    
23.     cWidth(3) = 209
    
24.     cWidth(4) = 209
    
25.     cWidth(5) = 405
    
26.     cWidth(6) = 810
    
27. 
    
28.     cHeight(1) = 240
    
29.     cHeight(2) = 240
    
30.     cHeight(3) = 240
    
31.     cHeight(4) = 240
    
32.     cHeight(5) = IIf(ShName = "Omega", 485, 488)
    
33.     cHeight(6) = 480
    
34. 
    
35.     xText(1) = "¥D¤O¬É¤J"
    
36.     xText(2) = "¤O®t"
    
37.     xText(3) = "®ø¤Æ¤O"
    
38.     xText(4) = "§¡®t(¤j¤á)"
    
39.     xText(5) = "¥D¤O¡B´²¤á¡B»P¦¨¥æ»ù¡B¶q"
    
40.     xText(6) = "¦¨¥æ»ù»P¦¨¥æ¶q"
    
41. 
    
42.     With Sheets("²Î­p¹Ïªí")
    
43.         Set Rng = .Range("A1").CurrentRegion
    
44.         Set Chart_Source(1) = Union(Rng.Columns(2), Rng.Columns(27))
    
45.         Set Chart_Source(2) = Union(Rng.Columns(2), Rng.Columns(28))
    
46.         Set Chart_Source(3) = Union(Rng.Columns(2), Rng.Columns(29))
    
47.         Set Chart_Source(4) = Union(Rng.Columns(2), Rng.Columns(30))
    
48.         Set Chart_Source(5) = Union(Rng.Columns(2), Rng.Columns(6), Rng.Columns(9), Rng.Columns(10), Rng.Columns(22))
    
49.         Set Chart_Source(6) = Union(Rng.Columns(2), Rng.Columns(6), Rng.Columns(22))
    
50.     End With
    
51. 
    
52. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 37# c_c_lai
¤W¶Ç§AªºÀɮ׬ݬÝ

c_c_lai

¦^´_ 38# GBKEE

¤u§@ªí³æ¤@.rar (183.39 KB)

¤U¸ü¦¸¼Æ: 17

2012-4-21 15:58

GBKEE

¦^´_ 39# c_c_lai
©_©Ç §Ú°õ¦æ Sub ¥þ³¡­«Ã¸()  ©Î Sub ­«Ã¸Omega() ³£¨S°ÝÃDªü
½Ð°Ý§A¬O¦p¦ó°õ¦æ Sub ¥þ³¡­«Ã¸()  ©Î Sub ­«Ã¸Omega()