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

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

c_c_lai

¦^´_ 38# GBKEE

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

¤U¸ü¦¸¼Æ: 17

2012-4-21 15:58

c_c_lai

¦^´_ 40# GBKEE

¤U¸ü (131.46 KB)

2012-4-21 16:22

c_c_lai

¦^´_ 42# GBKEE
½Ð±Ð±z¡G
Dim xRow(1 To 6), yCol(1 To 6), cWidth(1 To 6), cHeight(1 To 6), xText(1 To 6)
Dim Chart_Source(1 To 6)

³o¨â¦æ¬O¦b«Å§i°}¦C (Array) ¶Ü¡H  (1 To 6) ¡H  ¤@ºû°}¦C¶Ü¡H
°£¤F³oµ¥«Å§i¤è¦¡¥~¡AÁÙ¦³¦óºØ¤è¦¡ªí¹F¡H

c_c_lai

¦^´_ 44# GBKEE
¬Ó¤Ñ¤£¶d¦³¤ß¤H¡A²×©ó§ä¨ì¬°¦ó«¬ºA¤£²Å¤F¡C

1.             With .PlotArea                          ' ¹ÏªíªºÃ¸¹Ï°Ï
   
2.                 .Top = 1
   
3.                 .Left = 1
   
4.                 .Width = cWidth
   
5.                 .Height = cHeight
   
6.                 .Interior.ColorIndex = xlNone
   
7.             End With

½Æ»s¥N½X

°ÝÃD¥X¦b cWidth¡B¥H¤Î cHeight ¨â­ÓÅܼƪº«Å§i¡A¥¦­Ì°_ÀY¬O«Å§i¦¨ °}¦C«¬ºAªº¡C
©Ò¥H¹À¡I

1. 
   
2.            With .PlotArea                          ' ¹ÏªíªºÃ¸¹Ï°Ï
   
3.                 .Top = 16
   
4.                 .Left = 1
   
5.                 .Width = cWidth(xi)
   
6.                 .Height = cHeight(xi)
   
7.                 .Interior.ColorIndex = xlNone
   
8.             End With

½Æ»s¥N½X

¦p¦¹¤~¹ï¡I ÁöµM¬O¤p¦a¤è¡A«o§â¦Ñ©R§Ö·d±¼¤F¡I
¦p¤µ¦A§â¥Lµy¥[­×¹¢¦¨§Ú­nªº»Ý¨D¡A§Ú§â¥¿½TªºÀÉ®×¥ç¤@¨Öªþ¤W¡A
¥i¨Ñ¦³¤ß¦V¾Çªº¦@­×­Ì¤@¦P¨Ó¬ã²ß¡B°Q½×¡C

ÁÙ¦n°©ÀY¨S´²±¼.rar (187.38 KB)

¤U¸ü¦¸¼Æ: 24

2012-4-22 13:14

¤U¸ü (80.28 KB)

2012-4-22 13:18

®tÂI§Ñ¤F¦V±z»¡ÁnÁÂÁ¡I
ªü¨½¤ú¨§¡I

c_c_lai

¦^´_ 46# GBKEE
³o¬O³o­ÓijÃDªº³Ì«á¤@¦¸´£°Ý¡G
Set Rng = .Range("A1").CurrentRegion
¾Ì§Ú­Ó¤HªºÁo©ú¤~´¼¡AªFºËºË¦èºVºV¤]¹ê¦b¬Ý¤£¥X¥¦ªº¹ê»Ú¥Nªí§t¸q¡A
¥¦¦b´£¥Ü¬Æ»ò¡A¥¦§êºtªº¸}¦â¬O¬Æ»ò¡H ¦³¦óÁ|¨¬»´­«¡H
¨C¦¸«ö F1 ®É¡A¨ä»¡©ú¯u¦³¦p¸t¸g¡A¦³¬Ý¨SÀ´¡C
ÁÂÁ±z¡I