各位好,利用VBA寫一個介面,想要畫出圖表
先利用VBA做好一個篩選介面,
再按確定會執行出一個圖表時,會跳出一個訊息,
執行階段錯誤'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.以錄製巨集的方式將建立圖表的過程錄製下來
2.將步驟1的VBA放到 bt1_click 裡
3.把 bt1_click 修改成你要的樣子