Cümlelerin ilk harfini büyük harf yapma...

[zemeckiss]

arkadaşlar wörd için ne kadar basit olsa da excel için belki de çok zor birşey
istediğimin farkındayım...

cümlenin değil de her hücredeki yazının ilk harfini

=büyükharf(Soldan(a1;1))
=parçaal(a1;2;10000)

fonksyonlarını kullandıktan sonra

bu iki hücreye birleştir komutunu uyguladıktan sonra, büyük harf haline getirebiliyorum.


fakat bunu hücre içindeki diğer cümleler için başaramıyorum.

bi fikri olan yada daha önce yapmış olan arkadaşlar çalışmalarını yada fikirlerini paylaşırlarsa sevinirim.

 

[Ömer]

Sorunuzu tam anlayamadım,

=YAZIM.DÜZENİ(A1)

İstediğiniz bu mu?

 

[Orion1]

Kod ile

Sub ilk_harf_buyuk()
Dim deg As String
deg = WorksheetFunction.Proper("ilk harf büyük")
MsgBox deg
End Sub

 

[zemeckiss]

sorunumun gönderdiğim dosyadaki a1 hücresindeki ilk harfi büyük harf yapıyor ama 2. cümlenin ilk harfini büyük harf yapmıyor...
evde 2007 kullanıyor ve noktayı koyduktan sonra wörddeki gibi hemen 2. cümleye büyük harfle başlıyor...

ama gelin görün ki iş yerinde 2003 kullanıyorum ve maalesefki böle bi fonksyon yok.

 

[hsayar]

Aşağıdaki linkleri iincelemenişzi tavsiye ederim.
Başlangıç içöin düzenelediğim basit itip...
http://excel.web.tr/showthread.php?t=40538

son hali
http://excel.web.tr/showpost.php?p=305304&postcount=7

 

[zemeckiss]

çok teşekkürler hsayar

sen yapmışsan ellerine sağlık
alıntıysa da bulup paylaştığın için teşekkür ederim

 

[excel adam]

excelde tüm yazıları nasıl büyük harf yapabilirim?

 

[İhsan Tank]

excelde tüm yazıları nasıl büyük harf yapabilirim?

merhaba
sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
End Sub

bu kodu kopyalayın ve deneyin

formül ile isterseniz

=BÜYÜKHARF(A1)

a1 hücresine yazdığınız varsayılmıştır.

 

[kan-nas]

=UPPER(istediğin hücre)

 

[excel adam]

İlginiz için teşekkürler

yanlız büyük harf yapamadım.exceldeki tüm sayfadaki yazıları büyük harf yapmak istiyorum.olmuyor.

 

[İhsan Tank]

İlginiz için teşekkürler

yanlız büyük harf yapamadım.exceldeki tüm sayfadaki yazıları büyük harf yapmak istiyorum.olmuyor.

merhaba
alt+F11 tuş kombinasyonu ile kitabın kod bölümüne geçin
sol tarafta bulunan Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
End Sub

bunu kopyalayın