Board logo

標題: [發問] Range變數用法問題 [打印本頁]
作者: Jason80Lo    時間: 2016-4-2 14:00     標題: Range變數用法問題

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    時間: 2016-4-2 14:12

回復 1# Jason80Lo

連接文字的運算子 &
   
  1. ActiveChart.SetSourceDate Source:=Range("C21:" & cr & ",M21:" & mr)
複製代碼
作者: Jason80Lo    時間: 2016-4-6 23:23

感謝大大 回復，那想請問一下是因為Range() 裡面都一定要是文字所組成的嗎？
作者: GBKEE    時間: 2016-4-7 07:54

回復 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    時間: 2016-4-7 09:11

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

&可以連接字串
作者: Jason80Lo    時間: 2016-4-14 20:43

回復 5# clio

感謝大大回覆，問題已解決了 ^^
作者: clio    時間: 2016-4-15 16:55

回復 6# Jason80Lo


不客氣，大家互相學習…



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)