Format

Söz dizimi​

Format(Expression, [Format], [FirstDayOfWeek], [FirstWeekOfYear])

• Expression: Biçimlendirilecek sayı, tarih ya da metin. Zorunludur.
• Format: Biçim deseni; hazır bir ad (ör. "Percent") ya da özel desen (ör. "#,##0.00"). İsteğe bağlıdır; atlanırsa değer biçimsiz biçimde metne çevrilir.
• FirstDayOfWeek: Haftanın ilk gününü belirleyen sabit. İsteğe bağlıdır; varsayılanı vbUseSystemDayOfWeek (0), yani sistem ayarıdır. Diğer değerler: vbSunday (1), vbMonday (2) ... vbSaturday (7).
• FirstWeekOfYear: Yılın ilk haftasını belirleyen sabit. İsteğe bağlıdır; varsayılanı vbUseSystem (0). Diğerleri: vbFirstJan1 (1), vbFirstFourDays (2), vbFirstFullWeek (3). Yalnızca hafta numarası içeren (ww) desenlerde etkili olur.

Hazır (adlandırılmış) biçimler​

• General Number: Sayıyı binlik ayırıcısız gösterir.
• Currency: Para birimi simgesi ve binlik ayırıcıyla gösterir.
• Fixed: En az bir tam basamak ve iki ondalık basamak gösterir.
• Standard: Binlik ayırıcılı ve iki ondalık basamaklı gösterir.
• Percent: Değeri 100 ile çarpar ve yüzde işareti ekler.
• Scientific: Bilimsel (üstel) gösterim kullanır.
• Yes/No, True/False, On/Off: Sıfır dışındaki değer için ilk, sıfır için ikinci sözcüğü yazar.
• General Date, Long Date, Medium Date, Short Date: Tarihi sistemin genel, uzun, orta ve kısa tarih düzenine göre yazar.
• Long Time, Medium Time, Short Time: Saati uzun, 12 saatlik ve 24 saatlik kısa düzene göre yazar.

Özel sayı ve metin simgeleri​

• 0: Rakam yer tutucusudur; karşılığında rakam yoksa 0 yazar. Format(5, "000") sonucu 005 olur.
• #: Rakam yer tutucusudur; karşılığında rakam yoksa hiçbir şey yazmaz.
• . (nokta): Ondalık ayırıcının yerini belirler.
• , (virgül): Binlik ayırıcı ekler.
• %: Değeri 100 ile çarpar ve yüzde işareti ekler.
• E+ / E-: Bilimsel gösterim üretir.
• "metin" ya da \ : Tırnak içindeki metni ya da ters bölüden sonraki karakteri olduğu gibi yazar. VBA dizesi içinde tırnak çift yazılır.
• ; (noktalı virgül): Bölümleri ayırır: pozitif;negatif;sıfır;Null. Örneğin ikinci bölüm negatif sayıların görünümünü belirler.
• @ ve &: Metin için karakter yer tutucusudur; @ karakter yoksa boşluk, & ise hiçbir şey yazmaz.
• < ve >: Metni küçük ya da büyük harfe çevirir.

Tarih ve saat simgeleri​

• d, dd: Ayın günü (tek ya da iki haneli).
• ddd, dddd: Gün adı (kısa ya da tam).
• m, mm: Ay numarası (tek ya da iki haneli).
• mmm, mmmm: Ay adı (kısa ya da tam).
• yy, yyyy: İki ya da dört haneli yıl.
• q: Yılın çeyreği; ww: yılın haftası.
• h, hh: Saat.
• n, nn: Dakika. VBA'da dakika için n kullanmak, m simgesiyle ay karışıklığını önler.
• s, ss: Saniye.
• AM/PM: 12 saatlik düzende öğleden önce ya da sonra göstergesi.

1. Tutar ve oranı biçimlendirme​

Option Explicit

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

    Set ws = ActiveSheet
    ' Sonuç sütunlarını metin yapıyoruz; Excel yazılan metni yeniden sayıya çevirmesin
    ws.Range("D2:E7").NumberFormat = "@"

    For i = 2 To 7
        ' Binlik ayırıcılı, iki ondalıklı tutar
        ws.Cells(i, 4).Value = Format(ws.Cells(i, 2).Value, "#,##0.00")
        ' Bir ondalıklı yüzde
        ws.Cells(i, 5).Value = Format(ws.Cells(i, 3).Value, "0.0%")
    Next i
End Sub

2. Tarihten gün ve ay adı üretme​

Option Explicit

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

    Set ws = ActiveSheet
    ' Sonuçlar metin olarak kalsın
    ws.Range("C2:E6").NumberFormat = "@"

    For i = 2 To 6
        ' Gün adı (Pazartesi gibi, bölge ayarına göre)
        ws.Cells(i, 3).Value = Format(ws.Cells(i, 2).Value, "dddd")
        ' Ay adı ve dört haneli yıl
        ws.Cells(i, 4).Value = Format(ws.Cells(i, 2).Value, "mmmm yyyy")
        ' Gün.ay.yıl biçimi
        ws.Cells(i, 5).Value = Format(ws.Cells(i, 2).Value, "dd.mm.yyyy")
    Next i
End Sub

3. Özel desenle kod ve işaretli fark​

Option Explicit

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

    Set ws = ActiveSheet
    ws.Range("D2:E8").NumberFormat = "@"

    For i = 2 To 8
        ' Sabit önek ve beş haneli numara (baştaki sıfırlarla)
        ws.Cells(i, 4).Value = Format(ws.Cells(i, 2).Value, """SIP-""00000")
        ' Üç bölüm: pozitif; negatif; sıfır
        ws.Cells(i, 5).Value = Format(ws.Cells(i, 3).Value, "+#,##0;-#,##0;""Sıfır""")
    Next i
End Sub

Kullanırken dikkat edin​

• Sonuç metindir: Format her zaman metin döndürür. Sonucu toplama ya da karşılaştırma gibi işlemlerde kullanacaksanız özgün sayıyı koruyun. Biçimli metni hücreye yazarken Excel onu yeniden sayıya ya da tarihe çevirebilir; bunu önlemek için hücrenin NumberFormat özelliğini önceden "@" yapın.
• Yalnızca görünüm istiyorsanız: Hücredeki değeri değiştirmeden sadece görünümü değiştirmek istiyorsanız Range.NumberFormat özelliğini kullanın. Böylece hücre sayı olarak kalır ve formüllerde sorunsuz çalışır. Format ise etiket, kod, rapor metni ya da ileti oluştururken uygundur.
• Desen ve bölge ayarı: Desen içinde ondalık ayırıcı için nokta, binlik ayırıcı için virgül yazılır; sonuçtaki gerçek karakterleri Windows bölge ayarı belirler. Aynı kod, farklı bölge ayarlı bilgisayarlarda farklı ayırıcı ve ay adı üretebilir. Çıktının her yerde aynı olması gerekiyorsa bu farkı hesaba katın.
• Dakika için n kullanın: Tarih desenlerinde m hem ay hem dakika anlamına gelebilir. Saat desenlerinde dakikayı kesin olarak belirtmek için hh:nn gibi n simgesini kullanın.
• Yuvarlama davranışı: Biçim deseninde ondalık basamak sayısı azaldığında değer yuvarlanarak gösterilir. Round işlevi bankacı yuvarlaması kullanırken Format genellikle yarım değeri yukarı yuvarlar; iki işlevin sonuçları yarım değerlerde farklı çıkabilir.
• Null değeri: Expression Null ise Format Null döndürür. Bu sonucu String türünde bir değişkene atarsanız çalışma zamanı hatası oluşur; değişkeni Variant tanımlayın ya da önce Null denetimi yapın.
• İlgili konular:
  • Range.NumberFormat ve NumberFormatLocal: Hücrenin sayı biçimini ayarlar.
  • FormatNumber, FormatCurrency, FormatPercent, FormatDateTime: Belirli türler için hazır biçimlendirme işlevleri.
  • CStr ve Str: Değeri biçimsiz olarak metne çevirir.
  • Round: Sayıyı yuvarlar.
  • METNEÇEVİR: Çalışma sayfasında aynı işi yapan işlev (Text); VBA'da Application.WorksheetFunction.Text ile çağrılabilir.
  • Hücreleri Biçimlendir: Sayı sekmesindeki özel biçim kodlarını gösteren iletişim kutusu (Format Cells).