İşte Türkçe karakterleri destekleyen bir fonksiyon daha. Adından da anlaşılacağı gibi verilen string i büyük harfe çevirir.

Public Function BuyukHarfYap(ByVal Metin1 As String) As String
Dim Sayac, Sonuc, Boy As Long
Dim Metin2, BasMetin, BitMetin As String
Boy = Len(Trim(Metin1))
Metin2 = UCase(Trim(Metin1))
For Sayac = 1 To Boy
Sonuc = InStr(Sayac, Metin1, "i")
If Sonuc > 0 Then
BasMetin = left(Metin2, Sonuc - 1)
BitMetin = right(Metin2, Boy - Sonuc)
Metin2 = BasMetin & "İ" & BitMetin
End If
Next
For Sayac = 1 To Boy
Sonuc = InStr(Sayac, Metin1, "ı")
If Sonuc > 0 Then
BasMetin = left(Metin2, Sonuc - 1)
BitMetin = right(Metin2, Boy - Sonuc)
Metin2 = BasMetin & "I" & BitMetin
End If
Next
BuyukHarfYap = Metin2
End Function


Kullanımı :

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


Kolay Gelsin.

Popülerlik: 4%