Daha önce verdiğim BuyukHarfYap ve KucukHarfYap fonksiyonlarını kullanarak sadece baş harfi büyük yapmaya yarayan fonksiyondur.

Not : BuyukHarfYap ve KucukHarfYap Fonksiyonuna gereksinim duyar.


Public Function BBuyukYap(ByVal vdata As String) As String
Dim I As Long
vdata = Trim$(vdata)
If Len(vdata) < 1 Then
BBuyuk = vdata
Exit Function
End If
vdata = BuyukHarfYap(left$(vdata, 1)) & KucukHarfYap(right$(vdata, Len(vdata) - 1))
For I = 2 To Len(vdata)
If (Mid$(vdata, I, 1) = " ") And (I + 1 <= Len(vdata)) Then
Mid$(vdata, I + 1, 1) = BuyukHarfYap$(Mid$(vdata, I + 1, 1))
End If
Next I
BBuyukYap = vdata
End Function

Kullanımı :

Dim yazi as String
yazi = “Deneme dede DENEME İğıÇöş”
yazi = BBuyukYap(yazi)
MsgBox yazi

Kolay Gelsin.

Popülerlik: 4%