- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 4# li_hsien
§A³oµøµ¡¬O2003¥H¤Wªºª©¥»,¦¹µ{¦¡½X¬O¥H2003½s¼g.¸Õ¸Õ¬Ý¬O§_¥i¦æ.- Option Explicit
- Sub Ex()
- Dim MoObject As ChartObject, MoChart As Chart, i As Integer, Rng As Range
- Dim Q(1 To 2)
- Sheet1.ChartObjects.Delete
- Set Rng = [F1:M21] '¹Ïªí¸ê®Æ½d³ò
- Set MoObject = Sheet1.ChartObjects.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
- '[F1:M21]¤W·s¼W¹Ïªí
- Set Rng = [b2:b21].Resize(, 3) '³]©w½d³ò
- '** ½Ð¦b [A2:A21]¶ñ¤W ¤é´Á ©Î ¼Æ¦r : §@¬°X®y¼Ðªº¼ÆÈ
-
- MoObject.Chart.SetSourceData Rng '«ü©w¹Ïªí¸ê®Æ½d³ò
- Set MoChart = MoObject.Chart
- With MoChart
-
- Q(1) = Split(.SeriesCollection(3).Formula, ",")(2) '¸ê®Æ¦CªºÀx¦s®æ¦ì§}
- Q(2) = Split(.SeriesCollection(1).Formula, ",")(2)
- .SeriesCollection(1).Values = Range(Q(1)) '«ü©w¨ìÀx¦s®æ
- .SeriesCollection(3).Values = Range(Q(2)) '¥i¦bÀx¦s®æ¤WÅܰʼÆÈ
- '******************************************************
- Stop
- Q(1) = .SeriesCollection(3).Values '¸ê®Æ¦Cªº¼ÆÈ
- Q(2) = .SeriesCollection(1).Values
- .SeriesCollection(1).Values = Q(1) '§ïÅܼÆÈ
- .SeriesCollection(3).Values = Q(2) '¥i¦b¸ê®Æ¦CÅܰʼÆÈ
-
- End With
- End Sub
½Æ»s¥N½X ¹Ï¥Ü: ¥i¦b¸ê®Æ¦CÅܰʼÆÈ
|
|