Chr

Söz dizimi​

Chr(charcode)
Chr$(charcode)

• charcode: Zorunlu. Dönüştürülecek karakter kodunu belirten, Long türünde bir sayıdır. Tek baytlı sistemlerde 0 ile 255 arasında olmalıdır; çift baytlı (DBCS) sistemlerde -32768 ile 65535 arasındaki değerler kabul edilir. Varsayılan değeri yoktur.
• Chr$: İşlevin dolar işaretli biçimidir. Chr sonucu Variant olarak, Chr$ ise doğrudan String olarak döndürür; iki biçimin ürettiği karakter aynıdır.

Kod aralıkları ve sık kullanılan kodlar​

• 0 - 31: Yazdırılmayan denetim karakterleridir. Örneğin 9 sekme, 10 satır başı olmadan alt satıra geçiş (Line Feed), 13 satır başına dönüş (Carriage Return) karakteridir.
• 32 - 126: Standart ASCII yazdırılabilir karakterlerdir. 32 boşluk, 34 çift tırnak, 65 büyük A, 97 küçük a karakteridir.
• 127 - 255: Bilgisayarın etkin ANSI kod sayfasına bağlıdır. Aynı kod farklı bilgisayarlarda farklı karakter verebilir.
• Aralık dışı değer: Çalışma zamanı hatası 5 (Invalid procedure call or argument) oluşur.

• vbTab: Chr(9), sekme karakteri.
• vbLf: Chr(10), alt satıra geçiş.
• vbCr: Chr(13), satır başına dönüş.
• vbCrLf: Chr(13) ve Chr(10) çifti. Çoğu zaman vbNewLine ile aynı işi görür.
• vbNullChar: Chr(0), boş karakter.

Chr, ChrW ve Türkçe karakterler​

• Ş: 350, ş: 351
• İ: 304, ı: 305
• Ğ: 286, ğ: 287
• Euro işareti: 8364

Metin = "Sa" & ChrW(287) & "l" & ChrW(305) & "k"

1. Kodları karakterlere çevirme​

Option Explicit

Sub KodlariKaraktereCevir()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    ' 2. satırdan 12. satıra kadar her kodu karaktere çevir
    For i = 2 To 12
        ws.Cells(i, 2).Value = Chr(CLng(ws.Cells(i, 1).Value))
    Next i
End Sub

2. Çift tırnak ve hücre içi satır sonu​

Option Explicit

Sub EtiketOlustur()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    For i = 2 To 7
        ' Chr(34) = çift tırnak, Chr(10) = hücre içinde alt satır
        ws.Cells(i, 3).Value = Chr(34) & ws.Cells(i, 1).Value & Chr(34) _
            & Chr(10) & ws.Cells(i, 2).Value & " TL"
    Next i

    ' Alt satırın görünmesi için metni kaydır
    ws.Range("C2:C7").WrapText = True
    ws.Rows("2:7").AutoFit
End Sub

3. Asc ve Chr ile harf kaydırma​

Option Explicit

Sub KelimeKaydir()
    Dim ws As Worksheet
    Dim i As Long, k As Long
    Dim kod As Long, kayma As Long
    Dim kelime As String, sonuc As String

    Set ws = ActiveSheet

    For i = 2 To 9
        kelime = ws.Cells(i, 1).Value
        kayma = CLng(ws.Cells(i, 2).Value)
        sonuc = ""

        For k = 1 To Len(kelime)
            kod = Asc(Mid(kelime, k, 1))
            ' Yalnızca A-Z (65-90) arasındaki harfleri kaydır
            If kod >= 65 And kod <= 90 Then
                kod = 65 + ((kod - 65 + kayma) Mod 26)
            End If
            sonuc = sonuc & Chr(kod)
        Next k

        ws.Cells(i, 3).Value = sonuc
    Next i
End Sub

Kullanırken dikkat edin​

• Aralık dışı kod hata verir: Chr işlevine 0 ile 255 dışında bir değer (örneğin 350 ya da 8364) verirseniz çalışma zamanı hatası 5 oluşur. 255'ten büyük Unicode kodları için ChrW işlevini kullanın.
• Türkçe karakterlerde ChrW kullanın: 128-255 arasındaki kodlar bilgisayarın kod sayfasına bağlıdır; Türkçe Windows'ta çalışan kod başka bir bilgisayarda farklı karakter üretebilir. Ş, İ, Ğ gibi harfleri kodla yazarken ChrW(350), ChrW(304), ChrW(286) gibi Unicode kodlarını tercih edin.
• Hücre içinde satır sonu: Excel hücresinde Alt+Enter ile eklenen satır sonu Chr(10) karakteridir. Hücreye vbCrLf yazmak çoğu zaman da çalışır, ancak hücre içinde Chr(10) yeterlidir. Alt satırın görünmesi için hücrede Giriş > Hizalama > Metni Kaydır (Home > Alignment > Wrap Text) açık olmalı, VBA'da ise WrapText özelliği True yapılmalıdır.
• Metin içinde çift tırnak: VBA'da metin içine çift tırnak koymak için tırnağı iki kez yazabilir ("") ya da Chr(34) kullanabilirsiniz. Uzun formül metinlerinde Chr(34) kullanmak, tırnak sayısını karıştırma hatasını azaltır.
• Yazdırılmayan karakterler: 0-31 arasındaki kodlar ekranda görünmez. Bir metindeki gizli karakterleri bulmak için karakterleri tek tek Asc ile kontrol edebilir, temizlemek için Replace işlevinde Chr(kod) ile arayabilirsiniz.
• İlgili konular:
  • ChrW: Unicode koduna karşılık gelen karakteri verir.
  • Asc ve AscW: Karakterin ANSI ya da Unicode kodunu verir.
  • vbCrLf, vbTab, vbLf, vbNullChar: Sık kullanılan denetim karakterlerinin VBA sabitleri.
  • String: Aynı karakteri belirli sayıda yineler.
  • KARAKTER: Çalışma sayfasında kodu karaktere çeviren işlev.
  • KOD: Çalışma sayfasında karakterin kodunu veren işlev.