[已解决]方法和数据成员未找到

楚雪飞扬

添加趋势图最新日期数据标签
运行代码了错，我的版本是office Excel2007

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-7-5 21:33

是這樣嗎? 請測試看看，謝謝

Sub test()
Dim xR As Range
If ActiveChart Is Nothing Then MsgBox "選圖表": Exit Sub
Set xR = Application.InputBox(prompt:="選資料範圍", Type:=8)
ActiveChart.SetSourceData Source:=xR
End Sub

跳转到最佳答案楼层

sam-wang

是這樣嗎? 請測試看看，謝謝

Sub test()
Dim xR As Range
If ActiveChart Is Nothing Then MsgBox "選圖表": Exit Sub
Set xR = Application.InputBox(prompt:="選資料範圍", Type:=8)
ActiveChart.SetSourceData Source:=xR
End Sub