Question

我有一个名为NewName的用户输入值。

一旦定义了这个，我就需要使用这个值作为查找和替换宏的替换值。

这是查找和替换代码 -

＆＃39;更改报表中的公式以引用新工作表

Sheets("Report").Select
Cells.Select
ExecuteExcel4Macro _
    "FORMULA.REPLACE(""'New Performance'"",""'Performance'"",2,1,FALSE,FALSE,,FALSE,FALSE,FALSE,FALSE)"
Range("H32").Select
Sheets("Report").Select

如何将替换值设为NewName，然后是Performance？（即用NewName的值替换＆＃34; New＆＃34;

Answer 1

如何将替换值设为NewName，然后是Performance？（即用NewName的值替换“New”？

行"FORMULA.REPLACE(""'New Performance'"",""'Performance'"",2,1,FALSE,FALSE,,FALSE,FALSE,FALSE,FALSE)"可以写成

"FORMULA.REPLACE(""'" & "New" & _
" Performance'"",""'Performance'"",2,1,FALSE,FALSE,,FALSE,FALSE,FALSE,FALSE)"

只需将单词"New"替换为InputBox值即可。

Dim newVal

newVal = InputBox("Please enter the new string")

If newVal = "" Then Exit Sub

ExecuteExcel4Macro "FORMULA.REPLACE(""'" & newVal & _
" Performance'"",""'Performance'"",2,1,FALSE,FALSE,,FALSE,FALSE,FALSE,FALSE)"

如何在查找和替换宏中使用输入框值

1 个答案: