Question

excel中，如何写个宏，或vb，(有输入框，有按钮)，一按按钮，就把表中的某一字符(比如2)替换

excel中，如何写个宏，或vb，(有输入框，有按钮)，一按按钮，就把表中的某一字符(比如2)替换成文本框输入的字符？

若以下回答无法解决问题，邀请你更新回答

Answer 1

亲，直接按Ctrl+H就是现成的呀~~~

追问

因为要大量操作，还要生成表，所以需要输入框和按钮！

追答

请问您要替换的字符（比如2）是输入呢，还是写到程序里？

追问

表里原来就带有的，固定的

可以也是输入的

我输入三，一按按钮，就把表里原来的2都替换成三了

用replace命令吗？

追答

 亲，您需要的是这个？

 

Sub th()
Dim st As String
st = Application.InputBox(Prompt:="请输入需要替换成什么字符：")
If st <> "false" Then Cells.Replace "2", st
End Sub

追问

您太牛了，是把这个存在vb里，然后在excel调用吗？

追答

不是。

这样吧，在左下角Sheet1的标签上点右键“查看代码”，然后在右边粘贴这段代码。

按钮，是在开发工具里，插入一个控件。然后在按钮上点右键，选择sheet1.th。

 

追问

大神？

追答

还是上传了个附件，您参考一下吧。

就两行命令，小巫都算不上……

追问

您好，直接把命令存到vb里不行吗？还需要什么附件？

追答

不好意思，这个我就不懂了，我只会编宏……

追问

您好，宏我不太懂，您能告诉我这命令如何放入宏中运行吗？

你的命令行差了几行，需要定义按钮

追答

宏基于Excel运行的，按钮是作为控件直接插入的。您可以下载上面的附件参考一下。

追问

太感谢了，我已经按您说法成功实现了，最后一个问题，cells是当前表，如果我想在这个页面操作其他sheet的替换，能实现吗？(比如在sheet3里按这个按钮，结果sheet2中的字符被替换了)

追答

可以，这个地方改成：
... Sheet2.Cells.Replace ...

追问

谢谢谢谢，非常感谢！宏之大神！

您好，我在您写的宏上改进了一下，遇到几个问题
Sub th()
Dim st As String
st = Application.InputBox(Prompt:="请输入第几行：")
If st >1 and st<500 Then Cells.Replace "2", st
then "这里我想弹出个窗口显示输入数据无效"
End Sub
另外我想为了程序的延续，下次输入5，自动把上一次输入的4替换了，那replace后面的”2”要写个变量了吧，请问如何实现啊，我将st的范围设在1到500之间，需要转换字符型吗？谢谢了。

Answer 2

为何不用自带的ctrl+h替换功能，你大量操作还是避免不了输入，ctrl+h也是可以满足要求的吧