iT邦幫忙

1

VBA問題

各位好,利用VBA寫一個介面,想要畫出圖表

先利用VBA做好一個篩選介面,
https://ithelp.ithome.com.tw/upload/images/20200428/201266078mT69l8Tri.png
https://ithelp.ithome.com.tw/upload/images/20200428/20126607YuAUlo4Wh6.png

再按確定會執行出一個圖表時,會跳出一個訊息,
執行階段錯誤'1004':'Range'方法('_Global'物件)失敗

程式碼如下:
'圖表創立
Private Sub bt1_click()
Range("F1:W2").Select

allrange = Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.Shapes.AddChart2(227, xlLine).Select

ActiveChart.SetSourceData Source:=Range("test!allRange")

End Sub

想請問我該如何處理此問題,謝謝

沒附資料是要怎麼試作呢?且操作的流程、所需的結果又如何簡略。末學真不知從何下手了。真正是愛亦莫能助矣。 感恩感恩 南無阿彌陀佛

1 個回答

1
海綿寶寶
iT邦大神 1 級 ‧ 2020-04-28 15:04:18

1.以錄製巨集的方式將建立圖表的過程錄製下來
2.將步驟1的VBA放到 bt1_click 裡
3.把 bt1_click 修改成你要的樣子

qquve iT邦新手 5 級 ‧ 2020-04-28 15:57:05 檢舉

有先利用巨集錄製過,但位置都是固定住的,
想要讓它根據篩選情況,變成動態圖表,
不知道從何改起,感謝回答

我要發表回答

立即登入回答