修复Excel文件名-名称范围和图表

编程问答 2022-06-03

问题描述

在启用了宏的excel文件中，我定义了四个名称范围，并创建了一个图表，该图表会随着我每天为销售和购买添加数据（按行和列）而动态更新。

我在图表顶部有两个按钮，分别是“销售”和“购买”。单击每个按钮将触发相应的功能，该功能将更新图表以显示“销售”或“购买”。

按钮1：

Sub dynamic_chart_sales()
    ActiveSheet.ChartObjects("Dynamic_Chart1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range( _
    "'my_file_name.xlsm'!year_period,'my_file_name.xlsm'!name_range_sales_one,'my_file_name.xlsm'!name_range_sales_two")
    ActiveChart.SeriesCollection(1).Name = "Sales This Year"
    ActiveChart.SeriesCollection(2).Name = "Sales Last Year"
End Sub

Button2：

Sub dynamic_chart_purchases()
    ActiveSheet.ChartObjects("Dynamic_Chart1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range( _
    "'my_file_name.xlsm'!year_period,'my_file_name.xlsm'!name_range_purchases_one,'my_file_name.xlsm'!name_range_purchases_two")
    ActiveChart.SeriesCollection(1).Name = "Purchases This Year"
    ActiveChart.SeriesCollection(2).Name = "Purchases Last Year"
End Sub

当文件名为“ my_file_name.xlsm”时，该功能可以正常工作并绘制图表，但是当文件以其他名称保存时，Excel会引发错误。

不管文件名是什么，是否都有一种使功能按定义方式工作的方法？

很高兴获得您的帮助。

谢谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelexcel-chartsnamed-rangesvba