以R1C1格式放置变量表引用

Question

我是VBA的新手，我一直在跟踪这个论坛并学到很多东西。但我有一个问题，我似乎无法找到任何答案。

在我的工作簿中，我有一张设置为报告的工作表。根据您正在处理的项目（每个项目都有自己的工作表），您可以使用适当的信息填写报告。

以下代码可以使用

Sheets("Report").ChartObjects("Chart 16").Activate
ActiveChart.FullSeriesCollection(1).Values = "='!1000'!$H$3:$H$9"
ActiveChart.FullSeriesCollection(1).Select
Selection.Format.Fill.Visible = msoFalse
ActiveChart.FullSeriesCollection(2).Values = "='!1000'!$J$3:$J$9"

但这只涉及一个项目（Project！1000）

我有以下代码使变量等于当前项目表

Dim Wksh2 As Worksheet
Dim Fwksh2 As Worksheet
Dim searchThis2 As String

searchThis2 = StudioHomePage.Label3

For Each Wksh2 In ThisWorkbook.Sheets
If Wksh2.Name = searchThis2 Then
Set Fwksh2 = Wksh2
Exit For
End If
Next

If Fwksh2 Is Nothing Then
MsgBox "Error, No Worksheet Found"
Else
Fwksh2.Activate
End If

我要做的是更换＆＃39;！1000＆＃39;与Fwksh2，但我尝试过的一切都不起作用。

任何人都对可能的解决方案有任何见解？