Dim s1, s2 As String
Dim e As Integer
s1 = Form1.RichTextBox1.Text
s2 = InputBox("输入要查找的数字")
e = InStr(0, s1, s2, 0)
Form1.RichTextBox1.SelStart = e
Form1.RichTextBox1.SelLength = Len(s2)
我这样写他提示出错.
Replace 怎么用
Dim e As Integer
s1 = Form1.RichTextBox1.Text
s2 = InputBox("输入要查找的数字")
e = InStr(0, s1, s2, 0)
Form1.RichTextBox1.SelStart = e
Form1.RichTextBox1.SelLength = Len(s2)
我这样写他提示出错.
Replace 怎么用
e = InStr(s1, s2)