函数应用程序定义或对象定义错误

hbwzy

  原有一段代码 ActiveChart.SetSourceData Source:=Sheets("摘要项").Range("A1:A30,K1:K30") 因需加入行变量，我模仿改为下面一段，其中T 为已定义了的变量，运行到这句提示“应用程序定义或对象定义错误” 1004。不知是何原因，麻烦老师指教，谢谢。ActiveChart.SetSourceData Source:=Sheets("摘要项").Range("（cells(1,1):cells(T,1)）,（cells(1,11)：cells(T,11)）")

gufengaoyue

最好是上传附件。要不就没法测了。
改成这样试试
Sheets("摘要项").Range(range(cells(1,1),cells(T,1)）, range(cells(1,11),cells(T,11)))

hbwzy

谢谢指导，现在发现去掉 Sheets("摘要项"). 这段能运行，但取得的值是另一个表"项目进度一览表"的，没取指定的“摘要项”这个表，估计还需用其他办法指定。下面是相关代码
Sheets("项目进度一览表").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
Sheets("摘要项").Select
  Sheets("摘要项").Range("A2").Select
      Dim t  As Long
    t = Range("A65536").End(xlUp).Row
   
   Sheets("进度差异分布图 ").Select
        ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    Application.CutCopyMode = False
     
            ActiveChart.SetSourceData Source:=Sheets("摘要项").Range(Range(Cells(1, 1), Cells(t, 1)), Range(Cells(1, 11), Cells(t, 11)))
     Application.CutCopyMode = False

hbwzy

hbwzy 发表于 2018-3-9 17:00
谢谢指导，现在发现去掉 Sheets("摘要项"). 这段能运行，但取得的值是另一个表"项目进度一览表"的，没取指 ...

请老师教教我啊！！！