这段代码是把Excel表格中-包含有TextBox1的字符替换为TextBox2的字符,范围是Excel表单最前的四行四列(A1到D4),方法为CommandButton1的点击事件,控件就是2个TextBox和一个CommandButton。
Private
Sub
CommandButton1_Click()
MsgBox " 替换 " + TextBox1.Text + " 为 " + TextBox2.Text
Dim Rag As Range
For Each Rag In Range( " a1:d4 " )
Rag.Replace what: = TextBox1.Text, replacement: = TextBox2.Text
Next Rag
End Sub
MsgBox " 替换 " + TextBox1.Text + " 为 " + TextBox2.Text
Dim Rag As Range
For Each Rag In Range( " a1:d4 " )
Rag.Replace what: = TextBox1.Text, replacement: = TextBox2.Text
Next Rag
End Sub