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

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

GBKEE

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

GBKEE

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

GBKEE

¦^´_ 41# c_c_lai
¨S2010ª© ­þ§Ú¤]¨Sªk«×¤F

GBKEE

¦^´_ 43# c_c_lai

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xRow(), i As Integer
   
4.     xRow = Array(1, 2, 3, 4)    'xRow() ¬O¬°°ÊºA°}¦C
   
5.     For i = 0 To 3
   
6.         MsgBox xRow(i)
   
7.     Next
   
8. End Sub
   
9. Sub Ex1()
   
10.     Dim xRow(4), i As Integer
    
11.     'xRow(4) ¬O¬°ÀRºA°}¦C
    
12.     '³Ì¤p¥i¨Ï¥Îªº°}¦C¯Á¤Þ ¹w³]¬° 0  ¥i¥Î  Option Base {0 | 1} ¨Ó§ïÅÜ ¬O0 ©Î 1
    
13.     '³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ=4
    
14.     'xRow = Array(1, 2, 3, 4,5)  'µLªk¤@¦¸µ¹­È ,ÀRºA°}¦C ¶· ¤@¤@«ü©w­È
    
15.     xRow(0) = 1
    
16.     xRow(1) = 2
    
17.     xRow(2) = 3
    
18.     xRow(3) = 4
    
19.     xRow(4) = 5
    
20.     For i = 0 To 4
    
21.         MsgBox xRow(i)
    
22.     Next
    
23. End Sub
    
24. Sub Ex2()
    
25.     Dim xRow(4 To 8), i As Integer
    
26.     'xRow(4 to 8) ¬O¬°ÀRºA°}¦C
    
27.     '³]©w: ³Ì¤p¥i¨Ï¥Îªº°}¦C¯Á¤Þ =4 , ³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ = 8   
    
28.     'xRow = Array(1, 2, 3, 4,5)  'µLªk¤@¦¸µ¹­È ,ÀRºA°}¦C ¶· ¤@¤@«ü©w­È
    
29.     xRow(4) = 1               '
    
30.     xRow(5) = 2                '
    
31.     xRow(6) = 3
    
32.     xRow(7) = 4
    
33.     xRow(8) = 5
    
34.     For i = 4 To 8
    
35.         MsgBox xRow(i)
    
36.     Next
    
37. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 45# c_c_lai
³o¤Ó²Ê¤ß,ÁÙ¬O§A²Ó¤ßªº§ä¥X¨Ó,
§Ú¬d¥X 2003ª©  ³o¿ù»~:
¦b¹Ïªí: ¹Ïªí°Ï, ø¹Ï°Ï.µ¥ ¦³¥i«ü©w Left ,Top, Width  ,Height ªº¦a¤è
³£¥i¥H±µ¨ü³o°}¦C¤£¥Î¯Á¤Þ­È , ·|¤ñ·Ó ¥ý«e¨Ï¥Î¹Lªº¯Á¤Þ­È  ¦p¤U
With Sh.ChartObjects.Add(Sh.Cells(xRow(xi), yCol(xi)).Left, Sh.Cells(xRow(xi), yCol(xi)).Top, cWidth(xi), cHeight(xi)).Chart

¤U¸ü (37.11 KB)

2012-4-22 15:02

GBKEE

¦^´_ 47# c_c_lai
CurrentRegion ÄÝ©Ê ¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C°ßŪ¡C

1. ActiveCell.CurrentRegion.Select

½Æ»s¥N½X

¦p¹Ï ¥|­ÓÀx¦s®æ¥ô¿ï¤@­Ó  °õ¦æ  ³oµ{¦¡½X ¬Ý¬Ý¦³¦óÅܤƦp¦ó

¤U¸ü (14.38 KB)

2012-4-23 12:20