Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ekim 2004 Çarşamba

TextBox vbTextCompare

 
 
'UserForm1

'Additional Tools; TextBox1, Listbox1, Label1, TextBox2
Option Explicit
Dim Sayaç As Double
Dim YerNo As Integer
Dim Metin As String
Dim Aranan As String
Dim No As Double
Private Sub UserForm_Initialize()
    On Error Resume Next
    Me.Caption = "[PBİD®] vbTextCompare..."
    Call Ekran_Kur
    TextBox1.Text = "Erzurum"
End Sub
Private Sub TextBox1_Change()

    On Error GoTo Hata:
    ListBox1.Clear
    Sayaç = 0
    Label1.Caption = ""
    Metin = TextBox2.Text
    TextBox2.Text = Application.WorksheetFunction.Substitute(Metin, vbCrLf, " ")
    Metin = TextBox2.Text
    Aranan = TextBox1.Value
Durak1:
    YerNo = VBA.InStr(YerNo + 1, Metin, Aranan, vbTextCompare)
    If YerNo > 0 Then
        ListBox1.AddItem (Sayaç + 1)
        ListBox1.List(ListBox1.ListCount - 1, 1) = YerNo
        Sayaç = (Sayaç + 1)
        GoTo Durak1
    End If
    Exit Sub
Hata:
    ListBox1.Clear
    YerNo = 0
    Sayaç = 0
    Label1.Caption = ""
End Sub
Private Sub listbox1_Change()

    On Error GoTo Hata:
    No = ListBox1.ListIndex
    YerNo = ListBox1.List(No, 1)
    Label1.Caption = " " & YerNo & "-" & YerNo + VBA.Len(TextBox1.Text) - 1
    With TextBox2
        .SetFocus
        .SelStart = YerNo - 1
        .SelLength = VBA.Len(Aranan)
        .EnterFieldBehavior = fmEnterFieldBehaviorSelectAll
    End With
    Exit Sub
Hata:
    ListBox1.Clear
    YerNo = 0
    Sayaç = 0
    Label1.Caption = ""
End Sub
Private Sub Ekran_Kur()

    On Error Resume Next
    With Me
        .Height = 172
        .Width = 472
        .BackColor = VBA.RGB(242, 242, 242)
    End With
    With TextBox1
        .Left = 6
        .Top = 6
        .Height = 18
        .Width = 96
        .SpecialEffect = fmSpecialEffectEtched
        .ForeColor = vbBlue
        .ControlTipText = "Lütfen aramak istediğiniz terimi yazınız [Please enter the term you want to search]."
    End With
    With ListBox1
        .Left = 6
        .Top = 30
        .Height = 90
        .Width = 96
        .ColumnCount = 2
        .ColumnWidths = "36;48"
        .ListWidth = 84
        .SpecialEffect = fmSpecialEffectEtched
    End With
    With Label1
        .Left = 6
        .Top = 126
        .Height = 18
        .Width = 96
        .SpecialEffect = fmSpecialEffectEtched
        .Caption = ""
    End With
    With TextBox2
        .Left = 108
        .Top = 6
        .Height = 138
        .Width = 354
        .SpecialEffect = fmSpecialEffectEtched
        .MultiLine = True
        .ScrollBars = fmScrollBarsVertical
        .EnterKeyBehavior = True
        .Text = "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .Text = .Text & " " & "Ankara"
        .Text = .Text & " " & "İstanbul"
        .Text = .Text & " " & "Manisa"
        .Text = .Text & " " & "Hakkari"
        .Text = .Text & " " & "Bursa"
        .Text = .Text & " " & "Trabzon"
        .Text = .Text & " " & "Erzurum"
        .Text = .Text & " " & "Antalya"
        .Text = .Text & " " & "Malatya"
        .Text = .Text & " " & "Denizli"
        .Text = .Text & " " & "Sivas"
        .Text = .Text & " " & "Edirne"
        .Text = .Text & " " & "Kahramanmaraş"
        .Text = .Text & " " & "Balıkesir"
        .Text = .Text & " " & "Muş"
        .Text = .Text & " " & "Yozgat"
        .Text = .Text & " " & "Muğla"
        .Text = .Text & " " & "Rize"
        .Text = .Text & " " & "Konya"
        .Text = .Text & " " & "Zonguldak"
        .SetFocus
    End With
End Sub


Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul