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


10 Ekim 2004 Pazar

TextBox SendKeys


'UserForm1
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]TextBox SendKeys..."
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
If Not (IsNumeric(TextBox1)) Then SendKeys "{bs}"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
If Right(TextBox2, 1) Like "[0-9]" Then SendKeys "{bs}"
End Sub

1 Ekim 2004 Cuma

TextBox String Convert



'UserForm1

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]TextBox String Convert..."
TextBox1.Value = "textBox string convert": Label1.Caption = " vbFormUnicode"
TextBox2.Value = "textBox string convert": Label2.Caption = " vbHiragana"
TextBox3.Value = "textBox string convert": Label3.Caption = " vbKatakana"
TextBox4.Value = "textBox string convert": Label4.Caption = " vbLowerCase"
TextBox5.Value = "textBox string convert": Label5.Caption = " vbNarrow"
TextBox6.Value = "textBox string convert": Label6.Caption = " vbProperCase"
TextBox7.Value = "textBox string convert": Label7.Caption = " vbUnicode"
TextBox8.Value = "textBox string convert": Label8.Caption = " vbUpperCase"
TextBox9.Value = "textBox string convert": Label9.Caption = " vbWide"
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.Value = VBA.StrConv(TextBox1.Value, vbFromUnicode)
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox2.Value = VBA.StrConv(TextBox2.Value, vbHiragana)
End Sub
Private Sub TextBox3_Change()
On Error Resume Next
TextBox3.Value = VBA.StrConv(TextBox3.Value, vbKatakana)
End Sub
Private Sub TextBox4_Change()
On Error Resume Next
TextBox4.Value = VBA.StrConv(TextBox4.Value, vbLowerCase)
End Sub
Private Sub TextBox5_Change()
On Error Resume Next
TextBox5.Value = VBA.StrConv(TextBox5.Value, vbNarrow)
End Sub
Private Sub TextBox6_Change()
On Error Resume Next
TextBox6.Value = VBA.StrConv(TextBox6.Value, vbProperCase)
End Sub
Private Sub TextBox7_Change()
On Error Resume Next
TextBox7.Value = VBA.StrConv(TextBox7.Value, vbUnicode)
End Sub
Private Sub TextBox8_Change()
On Error Resume Next
TextBox8.Value = VBA.StrConv(TextBox8.Value, vbUpperCase)
End Sub
Private Sub TextBox9_Change()
On Error Resume Next
TextBox9.Value = VBA.StrConv(TextBox9.Value, vbWide)
End Sub

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