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

[µo°Ý] °ÊºA­×¥¿¶×¤J¹Ïªíªº³Ì«á¸ê®Æ¦C¤§¦C¼Æ©Ò©µ¦ùªº°ÝÃD

¦^´_ 29# GBKEE

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

01.png (76.61 KB)

01.png

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-19 17:52 ½s¿è

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

TOP

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


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

TOP

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-21 14:37 ½s¿è

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

TOP

¦^´_ 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. 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
½Æ»s¥N½X

TOP

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

TOP

¦^´_ 38# GBKEE

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD