返回列表 上一主題 發帖

[發問] 折線圖用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

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
268  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-16 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
3#
發表於 2015-6-17 15:26 | 只看該作者
回復 2# earl
請教earl大:
        您這個程式太好用了,但小弟才疏學淺,看不懂您第二次發表的修正程式要如何修改?可否上傳或私訊給我您改好的檔案,先在此謝謝您
年齡不小,但我很想學

TOP

mike5500

帖子
1 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
window 
軟體版本
8 
閱讀權限
10 
註冊時間
2013-4-28 
最後登錄
2015-8-1 
4#
發表於 2015-8-1 11:51 | 只看該作者
剛學習 正在尋找有關控制圖表顯示區間的範例 是否方便分享 謝謝

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題