Textboxa girilen cümlenin sadece ilk harfi büyük

[yilmazweb]

Merhaba
Formda yaptığım araştırmalar sonucunda, textbox girilen metnin ilk harfleri büyük, hepsi büyük veya hepsi kücük olmasını sağlayan kodlara ulaştım. Ancak, benim istediğim textboxa girilen cümlenin sadece ilk harfinin büyük olması.

Örneğin: "Excel'i excel.web.tr ile öğreniyorum." cümlesindeki gibi sadece "Excel" kelimesinin "E" harfi büyük, diğerleri küçük harf olacak.

Ya da word da olduğu gibi otomatik algılansın.

Teşekkür ederim.

 

[asi_kral]

Merhaba

Private Sub TextBox1_Change()
Dim UZ As Long
UZ = Len(TextBox1)
TextBox1 = UCase(Replace(Replace(Mid(TextBox1, 1, 1), "ı", "I"), "i", "İ")) & _
LCase(Replace(Replace(Mid(TextBox1, 2, UZ), "I", "ı"), "İ", "i"))
End Sub

Buşekilde dener misiniz_?

 

[yilmazweb]

Teşekkür ederim Hocam.

 

[asi_kral]

Teşekkür ederim Hocam.

Kolay Gelsin.

 

[Hacı Bayram ÖZKAN]

Buda oluyor.

 

[Hacı Bayram ÖZKAN]

Buda oluyor.

Private Sub TextBox1_Change()
TextBox1= Evaluate("=PROPER(""" & TextBox1& """)")
End Sub.

 

[Civan Jack]

O olmaz