VB作業求助














uj5u.com熱心網友回復:
加我Q:527524938uj5u.com熱心網友回復:
Private Sub Command1_Click()
Dim find As String
Dim address As String
find = InputBox("請輸入你要查找的字串")
address = InStr(1, Text1.Text, find)
If address <> 0 Then
Text1.SelStart = address - 1
Text1.SelLength = Len(find)
Text1.SetFocus
Else
MsgBox "沒有找到字串"
End If
End Sub
下次圖片請電腦截圖,不要用手機拍,用手機拍也請拍清楚點
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/36980.html
標籤:VBA
上一篇:關于VB控制元件事件的運行機制
