- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 36# GBKEE
¿ù»~°T®§¤@¼Ë¡Aµo²{°ÝÃDÀ³¸Ó¬O¥X¦b ----> °}¦C³]©w ¤W¡C- 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)
- Private Sub °}¦C³]©w(ShName As String)
- Dim Rng As Range
- xRow(1) = IIf(ShName = "Omega", 4, 1)
- xRow(2) = IIf(ShName = "Omega", 18, 16)
- xRow(3) = IIf(ShName = "Omega", 4, 1)
- xRow(4) = IIf(ShName = "Omega", 18, 16)
- xRow(5) = IIf(ShName = "Omega", 4, 1)
- xRow(6) = 31
- yCol(1) = IIf(ShName = "Omega", 55, 1)
- yCol(2) = IIf(ShName = "Omega", 35, 1)
- yCol(3) = IIf(ShName = "Omega", 39, 5)
- yCol(4) = IIf(ShName = "Omega", 39, 5)
- yCol(5) = IIf(ShName = "Omega", 43, 9)
- yCol(6) = 1
- cWidth(1) = IIf(ShName = "Omega", 209, 222)
- cWidth(2) = IIf(ShName = "Omega", 209, 222)
- cWidth(3) = 209
- cWidth(4) = 209
- cWidth(5) = 405
- cWidth(6) = 810
- cHeight(1) = 240
- cHeight(2) = 240
- cHeight(3) = 240
- cHeight(4) = 240
- cHeight(5) = IIf(ShName = "Omega", 485, 488)
- cHeight(6) = 480
- xText(1) = "¥D¤O¬É¤J"
- xText(2) = "¤O®t"
- xText(3) = "®ø¤Æ¤O"
- xText(4) = "§¡®t(¤j¤á)"
- xText(5) = "¥D¤O¡B´²¤á¡B»P¦¨¥æ»ù¡B¶q"
- xText(6) = "¦¨¥æ»ù»P¦¨¥æ¶q"
- With Sheets("²Îp¹Ïªí")
- Set Rng = .Range("A1").CurrentRegion
- Set Chart_Source(1) = Union(Rng.Columns(2), Rng.Columns(27))
- Set Chart_Source(2) = Union(Rng.Columns(2), Rng.Columns(28))
- Set Chart_Source(3) = Union(Rng.Columns(2), Rng.Columns(29))
- Set Chart_Source(4) = Union(Rng.Columns(2), Rng.Columns(30))
- Set Chart_Source(5) = Union(Rng.Columns(2), Rng.Columns(6), Rng.Columns(9), Rng.Columns(10), Rng.Columns(22))
- Set Chart_Source(6) = Union(Rng.Columns(2), Rng.Columns(6), Rng.Columns(22))
- End With
- End Sub
½Æ»s¥N½X |
|