TWed2k - 程式開發討論區 - [求助]關於EXCEL的VBA的位置參考

主題: [其他] [求助]關於EXCEL的VBA的位置參考 [打印本頁]

發表人: ROACH 時間: 2006-6-20 07:56 PM 主題: [求助]關於EXCEL的VBA的位置參考

我有個圖表需要事後去指定範圍跟相關的變數
我先這樣作

CODE:

Sheets("圖表顯示").Select
ActiveSheet.ChartObjects("圖表 1038").Activate

ActiveChart.SeriesCollection(1).Select
　ActiveChart.SetSourceData Source:=Sheets("輸入數據").Range("B" & b1 & ":B" & b2), PlotBy _
　　　　:=xlColumns

ActiveChart.SeriesCollection(1).XValues = Sheets("輸入數據").Range("A" & b1 & ":A" & b2)

　　With ActiveChart
　　　　.HasAxis(xlCategory, xlPrimary) = True
　　　　.HasAxis(xlValue, xlPrimary) = True
　　End With
　　
　　ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
　　

　　
那個b1跟b2是使用者填入儲存格的範圍
現在位址"A""B"也要要改成動態的
由使用者輸入fx後看是A還是A
我改成這樣以後

　ActiveChart.SetSourceData Source:=Sheets("輸入數據").Range(Cells(b1, fx), Cells(b2, fx)), PlotBy _
:=xlColumns

結果發生

直接階段錯誤'1004'
Cells方法('Global'物件)失敗

是否還有其他可以動態選擇範圍的方法呢？？

還有想問一下喔！！
像那個圖表我每拉一個出來他就會用流水號自訂一個號碼
比如這次～～圖表 1038
然後另外一個就變成～～圖表 1038
這個是否可以改成自行定義的呢？

發表人: ROACH 時間: 2006-6-21 07:27 AM

這個我解決的
改成這樣就可以了

ActiveChart.SetSourceData Source:=Sheets("輸入數據").Range(Sheets("輸入數據").Cells(b1, fx), Sheets("輸入數據").Cells(b2, fx)), PlotBy _
:=xlColumns

發表人: jocosn 時間: 2006-7-7 02:15 AM

大大，你連 VBA 都要學啊！
真是佩服你了～

歡迎光臨 TWed2k (http://twed2k.org/)