如何在查找和replacemacros中使用input框值

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

一旦定义了这个，我需要使用这个值作为查找和replacemacros的replace值。

这是查找和replace代码 –

'更改报告中的公式以引用新工作表

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 

如何获得replace值为NewName，然后是Performance？ （即用NewName的值replace“New”？

Answer 1

如何获得replace值为NewName，然后是Performance？ （即用NewName的值replace“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"一词replace为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)"