- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2012-4-5 08:13 編輯
回復 5# dechiuan999
Do Until .SeriesCollection.Count = 4 '執行迴圈: Until ( 一直到) 條件成立(數列的總數=4 ) 時 不執行迴圈
.SeriesCollection(5).Delete '刪除第5個數列資料
Loop- Option Explicit
- Sub Ex()
- Dim Rng(2) As Range, xl As Integer
- With Worksheets("當月統計表及圖表")
- .ChartObjects.Delete '刪除所有圖表
- Set Rng(0) = .Range("a1").Resize(.[a1].End(xlDown).Row - 1, .[a1].End(xlDown).End(xlToRight).Column) '圖表放置範圍
- Set Rng(1) = .[B17:T21] '基隆,台北港,六堵,南崁長榮,桃園 等關數據
- Set Rng(2) = .[B25:F29] '五堵關數據
- With .ChartObjects.Add(Rng(0)(1).Left, Rng(0)(1).Top, Rng(0).Width, Rng(0).Height).Chart
- .Parent.Name = "各關區貨物存放處所統計表"
- For xl = 2 To Rng(1).Rows.Count
- With .SeriesCollection.NewSeries '建立新數列
- .Name = Rng(1).Cells(xl, 0) '列名稱
- .Values = "=" & Rng(1).Rows(xl).Address(, , xlR1C1, 1) & "," & Rng(2).Rows(xl).Address(, , xlR1C1, 1)
- '.Values: 新數列的值-> 連接 Rng(1),Rng(2) 的 R1C1式 位址
- .XValues = "=" & Rng(1).Rows(1).Address(, , xlR1C1, 1) & "," & Rng(2).Rows(1).Address(, , xlR1C1, 1)
- ' .XValues: 新數列 X軸標籤
- End With
- Next
- .HasTitle = True '新增圖表後 沒有指定圖表資料範圍 固須在 資料範圍指定後
- .ChartTitle.Characters.Text = Format(DateAdd("M", -1, Date), "oooo") & " 份各關區貨物存放處所統計表 ( " & Application.Sum(Rng(1), Rng(2)) & " 份)"
- .ApplyDataLabels AutoText:=True '自動顯示適當的數值
- End With
- End With
- End Sub
|
|
發表於 2012-4-5 07:38
| 