返回列表 上一主題 發帖

[發問] EXCEL VBA 圖表

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
212  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-14 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-6-3 13:18 | 只看該作者

[發問] EXCEL VBA 圖表

請問一下各位大大

以下是我圖表操作使用的語法
  1. Worksheets(3).ChartObjects("Chart 4").Activate

  3. ActiveChart.SeriesCollection(1).Values = Range("H34:H" & Range("H65536").End(xlUp).Row)
複製代碼
請問能否合併成一句語法

而不需要先有Activate的動作

像是這樣的字句
  1. worksheets(3).Chartobjects("Chart 4").SeriesCollection(1).Values = Range("H34:H" & Range("H65536").End(xlUp).Row)
複製代碼
可是一直沒辦法

試了好幾個方法的不知該怎樣合併


請問一下大大

謝謝
收藏 分享
用功到世界末日那一天∼∼∼

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
212  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-14 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2014-6-3 18:19 | 只看該作者
回復 2# GBKEE

感謝版大的幫忙 : )

原來是這樣@@

我真的很搞不懂 用什麼方法去執行

常常拼拼湊湊  就試出結果

但都不清楚實際操作邏輯規則是如何= =
用功到世界末日那一天∼∼∼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-6-3 14:24 | 只看該作者
回復 1# li_hsien
  1. Worksheets(3).ChartObjects("Chart 4").Chart.SeriesCollection(1).Values = Range("H34:H" & Range("H65536").End(xlUp).Row)
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題