ilk harfler büyük

[metinozlu]

ucase ifadesi yazılan ifadeyi büyük harfe,
lcase ifadesi yazılan ifadeyi küçük harfe çeviriyor.
kelimelerin ilk harfini büyük diğerlerini küçük harf yapan kod nedir?bu konuda yardım lütfen.

 

[SGM020]

Metin format kodları:

Case cCaseLower
.Value = LCase(.Text)
Case cCaseUpper
.Value = UCase(.Text)
Case cCaseProper
.Value = StrConv(.Text, vbProperCase)
Case cCaseSentence
.Value = UCase(Left(.Text, 1)) & LCase(Mid(.Text, 2))
Case

 

[htsumer]

Fonksiyon olarak
=YAZIM.DÜZENİ(A1)

 

[metinozlu]

Private Sub TextBox1_Change()
Case cCaseLower
.Value = LCase(.Text)
Case cCaseUpper
.Value = UCase(.Text)
Case cCaseProper
.Value = StrConv(.Text, vbProperCase)
Case cCaseSentence
.Value = UCase(Left(.Text, 1)) & LCase(Mid(.Text, 2))
Case

End Sub

kod ilk satırda hata verdi.

 

[danersin]

Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbProperCase)
End Sub

 

[metinozlu]

teşekkür ederim.
Sayın danersin in kodu işimi gördü.
iyiki varsınız. :hey:

 

[kerem yüce]

selam

Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbProperCase)
End Sub

Yazdığınız kodu yazıya çevir fonksiyonu ile kullanmak istiyorum. Acemi olduğum için bunu nereye yazmam gerektiğini bilemedim. Yazıya çevir fonksiyonunda herhangi bir problem yok. Bir alt satıra Proper fonksiyonu ile istediğim şeyi gerçekleştiriyorum fakak iki iş olduğundan işi aynı satırda çözmek istiyorum. yardımlarınızı bekliyorum.

 

[mgcaglayan]

Peki, excel sayfasında ilk harfi devamlı büyük yapmak için ne gerek

 

[Levent Menteşoğlu]

Bir alt satıra Proper fonksiyonu ile istediğim şeyi gerçekleştiriyorum fakak iki iş olduğundan işi aynı satırda çözmek istiyorum.

Sn kerem yüce

Bunun için proper ile yazıya çevir fonksiyonlarınızı iç içe kullanın. örneğin =PROPE(yazıyaçevir(a1))

Peki, excel sayfasında ilk harfi devamlı büyük yapmak için ne gerek

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:a4d37db625]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
ilk = Target
ilk = Replace(ilk, "i", "İ")
ilk = Replace(ilk, "ı", "I")
Target = StrConv(ilk, vbProperCase)
Application.EnableEvents = True
End Sub
[/vb:1:a4d37db625]

 

[kerem yüce]

Teşekkürler leventm birinci çözüm oldukça kolaymış. Ben proper'dan sonra parantez açmamıştım. Acemilik işte. İkinci çözümüde deneyeceğim.
Malum daha yeniyiz buralarda. Ã?ğreneceğimiz çok şey var daha.
Ayrıca forumdaki faydalı bilgiler için herkese teşekkürler.