0

我正在设置一个用于分析数据记录的宏。数据记录是从硬件生成的，带有一个名为 AAA 的 .txt 文件（虽然这可能会自动更改）。我已经完成了宏并使用这个 AAA 文件进行了测试。是否有任何我可以替代的 AAA 通用代码？

ActiveChart.FullSeriesCollection(1).Name = "=""Desk"""
ActiveChart.FullSeriesCollection(1).XValues = "='AAA'!$A$7:$A$20"
ActiveChart.FullSeriesCollection(1).Values = "='AAA'!$C$7:$C$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=""Chair"""
ActiveChart.FullSeriesCollection(2).XValues = "='AAA'!$A$629:$A$669"
ActiveChart.FullSeriesCollection(2).Values = "='AAA'!$C$629:$C$669"

我想用通用代码更改 AAA，这样我就可以将此宏渗透到每个数据记录中，而不仅仅是 AAA。

谢谢！

4

1 回答 1

0
  • You can use a Variable instead of AAA, and assign a Value to that variable at the Beginning of the code.

Like:

nm = "AAA"

ActiveChart.FullSeriesCollection(1).Name = "=""Desk"""
ActiveChart.FullSeriesCollection(1).XValues = "='" & nm & "'!$A$7:$A$20"
ActiveChart.FullSeriesCollection(1).Values = "='" & nm & "'!$C$7:$C$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=""Chair"""
ActiveChart.FullSeriesCollection(2).XValues = "='" & nm & "'!$A$629:$A$669"
ActiveChart.FullSeriesCollection(2).Values = "='" & nm & "'!$C$629:$C$669"

So you will have to change the Name once in line nm = "AAA"

于 2019-08-14T13:28:43.810 回答