返回列表 上一主題 發帖

[發問] 折線圖用VBA控制多數列資料

earl

帖子
6 
主題
3 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2012-4-20 
最後登錄
2016-2-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-12 18:08 | 顯示全部帖子

[發問] 折線圖用VBA控制多數列資料

請教各位大大,目前已經用VBA控制達到能出現選擇的資料折線

但是在全部點選資料在取消的時候會出現刪除錯誤的線或出錯
請問除了透過"ActiveChart.SeriesCollection(1)"可以控制數列外,還有其他指令嗎?
或者有其他辦法可以達到我的需求?
謝謝
Book1.zip (13.97 KB)
收藏 分享

earl

帖子
6 
主題
3 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2012-4-20 
最後登錄
2016-2-17 
2#
發表於 2015-6-14 17:25 | 顯示全部帖子
沒人回:L
不過小弟自己試出來了, 提供有興趣的人參考
在每個刪除的部分加上下列的程序: (變數名稱要自行修改:maxline, avgline, minline)
  1. If nseries = 3 Then
  2.             If avgline = 2 Then
  3.                 If maxline = 3 Then
  4.                     maxline = maxline - 1
  5.                 ElseIf minline = 3 Then
  6.                     minline = minline - 1
  7.                 End If
  8.             End If
  9.         ElseIf nseries = 4 Then
  10.             If avgline = 3 Then
  11.                 If maxline = 4 Then
  12.                     maxline = maxline - 1
  13.                 ElseIf minline = 4 Then
  14.                     minline = minline - 1
  15.                 End If
  16.             ElseIf avgline = 2 Then
  17.                 maxline = maxline - 1
  18.                 minline = minline - 1
  19.             End If
  20.         End If
  21.         nseries = nseries - 1
  22. End IF
複製代碼

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題