[發問] Range變數用法問題

Jason80Lo

Sub chart()

cr = "C" & sheets("1").range("B9")   '>>>>C25
mr = "M" & sheets("1").range("B9") '  >>>>M25
ActiveChart.ChartObjects("圖1").Activate
ActiveChart.SetSourceDate Source:=Range("C21:cr,M21:mr")

End Sub

小弟想跑完此巨集後自動更改圖1 的選取範圍
但執行後會出現階段錯誤1004，是否哪裡有錯誤請各位大大協助幫忙

GBKEE

回復 1# Jason80Lo

連接文字的運算子 &
   

1. ActiveChart.SetSourceDate Source:=Range("C21:" & cr & ",M21:" & mr)

複製代碼

Jason80Lo

感謝大大 回復，那想請問一下是因為Range() 裡面都一定要是文字所組成的嗎？

GBKEE

回復 3# Jason80Lo
可祥看Range 屬性 的說明

1. Sub Ex()
   
2.    With ActiveSheet
   
3.             .Names.Add "AAA", Range("C1:F1")  '工作表上新增名稱
   
4.             .Range("AAA").Select
   
5.             Range("A1:C3").Select
   
6.             Range(Cells(1, 1), Cells(4, 4)).Select
   
7.             Range(Range("A1"), Range("F5")).Select
   
8.            
   
9.     End With
   
10. End Sub

複製代碼

clio

ActiveChart.SetSourceDate Source:=Range("C21:cr,M21:mr")
妳寫的"C21:cr,M21:mr"，在""內就會變成一個字串，而妳的cr, mr是變數所以要改成這樣子
ActiveChart.SetSourceDate Source:=Range("C21:" & cr & ",M21:" & mr)

&可以連接字串

Jason80Lo

回復 5# clio

感謝大大回覆，問題已解決了 ^^

clio

回復 6# Jason80Lo


不客氣，大家互相學習…