İlk Harf BÜyÜk

[akarayilan]

İyi akşamlar arkadaşlar.
Ben yazdğım metin belgesinin ilk harfinin büyük diğerlerini küçük olmasını istiyorum
Bu konu ile ilgili birçok araştırma yaptım ancak türkçe karakterlerde problem var.
yanlız sayın modalının http://www.excel.web.tr/attachment.php?attachmentid=24727&d=1190383344
bu adreste verdiği örnekte çözüm var lakin bunu ben güncelleştirme sonrsında yapmak istiyorum. bu konuda bana yardımcı olup bir örnek eklerseniz sevinirm. şimdiden ilgilenen arkadaşlara teşekkürler.

 

[akarayilan]

degerli üstatlarım yardımlarıza bekliyorum
ii akşamlar

 

[Orion1]

Aşağıdaki gibi deneseniz.

ilk = UCase(Replace(Replace(Left(TextBox1.Text, 1), "ı", "I"), "i", "İ"))
MsgBox ilk & Right(TextBox1.Text, Len(TextBox1.Text) - 1)

 

[beab05]

Merhaba;
Sayın Evren Gizlen'in verdiği kodda; replace kısmında "i" ve "ı" ların yerlerini değiştiriniz.. Küçük "i"leri çevirmede sorun yok ama küçük "ı" larda olmuyor. Belki bana has bir olaydır dieyeceğim ama sanırım en başa küçük "ı" koyunca onu kendisi küçük "i" olarak çevirdiği için bu sorun oluyor. Alttaki gibi yazınız..

ilk = UCase(Replace(Replace(Left(TextBox1.Text, 1), "i", "İ"), "ı", "I"))
MsgBox ilk & Right(TextBox1.Text, Len(TextBox1.Text) - 1)

Ya da metin kutusu denetim kaynağında alttaki gibi kullanabilirsiniz..

=UCase(Left(Replace(Replace([metinkutusu];"i";"İ");"ı";"I");1)) & Right([metinkutusu];Len([metinkutusu])-1)