LÃSTBOXTA KAREKTER BULMA
Aşşağıdaki kod textboxtaki karekterlerden hangisi aratılırsa buluyor ACABA listbox içinde böyle bir kod varmı saygıdeğer üstatlarıma rica ediyorum.
Dim A As Integer
Private Sub CommandButton1_Click()
Static say As Byte
txt = TextBox1.Text
If say > 0 Then GoTo atla
ara = InputBox("Aramak istediğiniz kelimeyi seçin")
TextBox1.Text = WorksheetFunction.Substitute(txt, vbCrLf, " ")
If InStr(1, txt, ara, vbTextCompare) > 0 Then
A = InStr(1, txt, ara, vbTextCompare)
TextBox1.SetFocus
TextBox1.SelStart = A - 1
TextBox1.SelLength = Len(ara)
say = say + 1
Exit Sub
Else
MsgBox "Aradığınız kelime bulunamadı", vbCritical
Exit Sub
End If
atla:
Cevap = MsgBox("Aramaya devam etmek için EVET" & vbCrLf & "Yeni arama için İPTAL tıklayın", vbQuestion + vbYesNo)
If Cevap = vbNo Then GoTo Son
If InStr(A + 1, txt, ara, vbTextCompare) > 0 Then
A = InStr(A + 1, txt, ara, vbTextCompare)
TextBox1.SetFocus
TextBox1.SelStart = A - 1
TextBox1.SelLength = Len(ara)
Else: MsgBox "Aradığınız kelime bulunamadı", vbCritical: say = 0
End If
Exit Sub
Son:
say = 0
End Sub
Aşşağıdaki kod textboxtaki karekterlerden hangisi aratılırsa buluyor ACABA listbox içinde böyle bir kod varmı saygıdeğer üstatlarıma rica ediyorum.
Dim A As Integer
Private Sub CommandButton1_Click()
Static say As Byte
txt = TextBox1.Text
If say > 0 Then GoTo atla
ara = InputBox("Aramak istediğiniz kelimeyi seçin")
TextBox1.Text = WorksheetFunction.Substitute(txt, vbCrLf, " ")
If InStr(1, txt, ara, vbTextCompare) > 0 Then
A = InStr(1, txt, ara, vbTextCompare)
TextBox1.SetFocus
TextBox1.SelStart = A - 1
TextBox1.SelLength = Len(ara)
say = say + 1
Exit Sub
Else
MsgBox "Aradığınız kelime bulunamadı", vbCritical
Exit Sub
End If
atla:
Cevap = MsgBox("Aramaya devam etmek için EVET" & vbCrLf & "Yeni arama için İPTAL tıklayın", vbQuestion + vbYesNo)
If Cevap = vbNo Then GoTo Son
If InStr(A + 1, txt, ara, vbTextCompare) > 0 Then
A = InStr(A + 1, txt, ara, vbTextCompare)
TextBox1.SetFocus
TextBox1.SelStart = A - 1
TextBox1.SelLength = Len(ara)
Else: MsgBox "Aradığınız kelime bulunamadı", vbCritical: say = 0
End If
Exit Sub
Son:
say = 0
End Sub