2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-6-3 13:18 | 只看該作者

[發問] EXCEL VBA 圖表

請問一下各位大大

以下是我圖表操作使用的語法

Worksheets(3).ChartObjects("Chart 4").Activate
ActiveChart.SeriesCollection(1).Values = Range("H34:H" & Range("H65536").End(xlUp).Row)

複製代碼

請問能否合併成一句語法

而不需要先有Activate的動作

像是這樣的字句

worksheets(3).Chartobjects("Chart 4").SeriesCollection(1).Values = Range("H34:H" & Range("H65536").End(xlUp).Row)

複製代碼

可是一直沒辦法

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

請問一下大大

謝謝

用功到世界末日那一天～～～

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-3 14:24 | 只看該作者

回復 1# li_hsien

Worksheets(3).ChartObjects("Chart 4").Chart.SeriesCollection(1).Values = Range("H34:H" & Range("H65536").End(xlUp).Row)

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2014-6-3 18:19 | 只看該作者

回復 2# GBKEE

感謝版大的幫忙 : )

原來是這樣@@

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

常常拼拼湊湊就試出結果

但都不清楚實際操作邏輯規則是如何= =

用功到世界末日那一天～～～