UCase

Söz dizimi​

UCase(string)
UCase$(string)

• string: Büyük harfe çevrilecek metin ifadesi; zorunludur, varsayılan değeri yoktur. Hücre değeri, değişken ya da metin sabiti olabilir.

Dönüş değeri ve davranış​

• Yalnız küçük harfler değişir: Büyük harfler, rakamlar, boşluklar ve işaretler olduğu gibi kalır.
• Boş metin: Boş metin ("") verirseniz sonuç da boş metindir.
• Null: Argüman Null ise sonuç da Null olur.
• Sayılar: Sayı verirseniz önce metne çevrilir; sonuç metin olarak döner.
• Özgün metin değişmez: İşlev yeni bir metin üretir; hücreye yazmak sizin göreviniz olur.

Türkçe karakterler ve benzer yollar​

• StrConv: vbUpperCase sabitiyle aynı işi yapar; ayrıca vbProperCase ile sözcük başlarını büyütebilir.
• Option Compare Text: Modül başına eklenirse karşılaştırmalar büyük/küçük harf duyarsız olur.
• Çalışma sayfası işlevi: Hücrede aynı işi şu formül yapar:

=BÜYÜKHARF(A2)

=UPPER(A2)

1. Şehir adlarını büyük harfe çevirme​

Option Explicit

Sub SehirleriBuyut()
    Dim ws As Worksheet
    Dim i As Long
    Dim sonSatir As Long

    Set ws = ActiveSheet
    ' A sütunundaki son dolu satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To sonSatir
        ' Her şehri büyük harfe çevirip B sütununa yaz
        ws.Cells(i, 2).Value = UCase(ws.Cells(i, 1).Value)
    Next i
End Sub

2. Büyük/küçük harf duyarsız kod karşılaştırma​

Option Explicit

Sub KodlariKarsilastir()
    Dim ws As Worksheet
    Dim i As Long
    Dim sonSatir As Long

    Set ws = ActiveSheet
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To sonSatir
        ' İki kodu da büyük harfe çevirip karşılaştır
        If UCase(ws.Cells(i, 1).Value) = UCase(ws.Cells(i, 2).Value) Then
            ws.Cells(i, 3).Value = "Evet"
        Else
            ws.Cells(i, 3).Value = "Hayır"
        End If
    Next i
End Sub

3. UCase ile ilk harfi büyütme işlevi​

Option Explicit

' Metnin ilk harfini büyük, geri kalanını küçük yapar
Function IlkHarfBuyuk(metin As String) As String
    If Len(metin) = 0 Then
        IlkHarfBuyuk = ""
    Else
        IlkHarfBuyuk = UCase(Left(metin, 1)) & LCase(Mid(metin, 2))
    End If
End Function

Sub UrunAdlariniDuzenle()
    Dim ws As Worksheet
    Dim i As Long
    Dim sonSatir As Long

    Set ws = ActiveSheet
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To sonSatir
        ' Hücre değeri metne çevrilip işleve gönderilir
        ws.Cells(i, 2).Value = IlkHarfBuyuk(CStr(ws.Cells(i, 1).Value))
    Next i
End Sub

Kullanırken dikkat edin​

• Yalnız değeri döndürür: UCase hücreyi ya da değişkeni kendisi değiştirmez. Sonucu bir hücreye ya da değişkene atamayı unutmayın; aksi halde işlem hiçbir etki yaratmaz.
• Null değer hatası: Veri tabanından ya da Variant değişkenden gelen değer Null olabilir. Böyle bir değerle UCase$ kullanırsanız hata alırsınız; UCase ise Null döndürür. Sonucu String değişkene atarken önce Null denetimi yapın.
• i ve ı harflerine dikkat: Büyütme işlemi Windows bölgesel ayarlarına bağlıdır. Türkçe adlardaki i, ı, İ, I harfleri farklı bilgisayarlarda farklı sonuç verebilir. Önemli verilerde sonucu mutlaka deneyin; makro başka bir ülke ayarlı bilgisayarda çalışacaksa Replace ile açık dönüşüm yapın.
• Karşılaştırmada iki tarafı da çevirin: Yalnız bir tarafı büyütürseniz karşılaştırma yine yanlış çıkabilir. Karşılaştırmanın her iki tarafına da aynı işlevi (UCase ya da LCase) uygulayın veya modüle Option Compare Text ekleyin.
• Hücre değeri hata ise: Hücrede #YOK gibi bir hata değeri varsa Value özelliği hata türünde bir Variant döndürür ve UCase çalışırken hata verir. Gerekirse IsError ile önceden denetleyin.
• İlgili konular:
  • LCase: Metni küçük harfe çevirir.
  • StrConv: vbUpperCase, vbLowerCase ve vbProperCase sabitleriyle dönüşüm yapar.
  • Left, Mid, Right: Metnin belirli bölümünü almak için kullanılır.
  • StrComp ve Option Compare Text: Büyük/küçük harf duyarsız karşılaştırma sağlar.
  • InStr: Metin içinde arama yapar; karşılaştırma türü seçilebilir.
  • Replace: Belirli karakterleri değiştirmek için kullanılır.
  • BÜYÜKHARF, KÜÇÜKHARF ve YAZIM.DÜZENİ: Çalışma sayfasındaki karşılık işlevlerdir.