我正在尝试创建一个宏,该工作表中带有该表的名称并将其与文本组合在一起。例如,对于表1,我希望它在Sheet1的I5中说“ThisIs_Sheet1_Test”。有几张纸,但它应该适用于所有人。连接产生错误,下划线
我的代码有什么问题?我认为下划线可能会毁了这一切。下面是我有:
Dim SheetName As String
Public Sub CommandButton1_Click()
SheetName = ActiveSheet.Name
Sheets("Sheet1").Range("I5", "I5") = ThisIs_" & SheetName.text & "_Test
Sheets("Sheet2").Range("H5", "H5") = ThisIs_" & SheetName.text & "_Test
Sheets("Sheet3").Range("G5", "G5") = ThisIs_" & SheetName.text & "_Test
End Sub
这个问题已经被转发到Pull in Earlier Value Using Concatenation
每个页面的范围是不同的我怎样才能改变它 另外,如果我拿出来,我可以使用我的代码来显示表格名称“ThisIs_”和“_Test”。所以我不确定你提到的字符串/对象是否有区别。 – Daniel 2010-05-28 12:20:25
对不起,Daniel,我没有注意范围的变化。如果您已经对表格名称进行了硬编码(例如Sheets(“Sheet1”)),为什么不只是使用 表格(“Sheet1”)。Range(“I5”)。Value =“ThisIs_Sheet1_Test” 我得到当我尝试编译你的代码时,“invalid qualifier”意味着没有String变量的Text属性。我们必须错过一些东西。 – 2010-05-28 15:09:34
你上面看到我的答案了吗?我不确定它为什么如此,但现在我遇到了一个全新的问题! – Daniel 2010-05-28 15:35:00