texbox larda girilen verinin büyük harfe çevrilmesi

[a_self_lion]

Sevgili arkadaşlar benim yapmak istediğim bazı istediğim texboxlara veri yazarken bunun büyük harfe çevrilmesi yani kişi küçük harf te yazsa bu otomatik olarak büyük harfe çevrilebilirmi...

 

[nziya]

Sayın a_self_lion aşşağıdaki kodları uygulayınız
Private Sub TextBox1_Change()
TextBox1 = büyük(TextBox1)
End Sub
'burası modüle
Function büyük(veri)
Dim a As Integer
Dim b As String
For a = 1 To Len(veri)
If Mid(veri, a, 1) = "i" Then
b = "İ"
ElseIf Mid(veri, a, 1) = "ı" Then
b = "I"
Else
b = Mid(UCase(veri), a, 1)
End If
büyük = büyük & b
Next
End Function

 

[a_self_lion]

Çok Teşekkür ederim Benimde bu konuyu kavramam için kısa kısa karşılarında bir açıklama yazarsanız çok sevinirim.... :mutlu:

 

[Haluk]

Alternatif:

http://www.excel.web.tr/viewtopic.php?p=46774#46774