[已解决]谢谢hwc2ycy 老师。如何简化这段代码

lhj323323 · 发表于 2012-10-3 23:06

本帖最后由 lhj323323 于 2012-10-4 14:33 编辑

老师：
如下代码是录制的

Sheet1.ChartObjects("图表 309").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("明细").Range("M103:M116"), PlotBy:= _
      xlColumns

我改为
      With Sheet12 '表[明细]
            Myr = .[m65536].End(xlUp).Row
      End With
   Sheet1.ChartObjects("图表 309").SetSourceData Source:=Sheets("明细").Range("M103:M116"), PlotBy:=xlColumns

但要报错，请帮我看看，我错在哪儿了，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-4 08:13

lhj323323 发表于 2012-10-4 00:06
老师：
这是附件，请看看

Sheet1.ChartObjects("图表 1").Chart.SetSourceData Source:=Sheets("数据源").Range("B2:M" & Myr), PlotBy:=xlColumns

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2012-10-3 23:14

Sheet1.ChartObjects("图表 309").PlotArea.SetSourceData Source:=Sheets("明细").Range("M103:M116"), PlotBy:=xlColumns

lhj323323 · 发表于 2012-10-3 23:38

hwc2ycy 发表于 2012-10-3 23:14
Sheet1.ChartObjects("图表 309").PlotArea.SetSourceData Source:=Sheets("明细").Range("M103:M116") ...

老师：
运行简化后的语句，电脑提示“对象不支持属性和方法”

hwc2ycy · 发表于 2012-10-3 23:43

你传个附件来吧。

lhj323323 · 发表于 2012-10-4 00:06

hwc2ycy 发表于 2012-10-3 23:43
你传个附件来吧。

老师：
这是附件，请看看

曲线图.rar (10.48 KB, 下载次数: 7)

hwc2ycy · 发表于 2012-10-4 08:13

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

lhj323323 发表于 2012-10-4 00:06
老师：
这是附件，请看看

Sheet1.ChartObjects("图表 1").Chart.SetSourceData Source:=Sheets("数据源").Range("B2:M" & Myr), PlotBy:=xlColumns

复制代码

		自动登录	找回密码
密码			注册