Bu öğretici, Biçim işlevinin nasıl kullanılacağını gösterecektir.
Biçim İşlevi
Numaraları Önceden Tanımlanmış Biçimlerle Biçimlendir
Biçim işlevi, bir sayıyı önceden tanımlanmış adlandırılmış sayısal biçimlerle biçimlendirilmiş dizeye dönüştürebilir. Bu önceden tanımlanmış biçimler Para Birimi, Sabit, Standart, Yüzde, Bilimsel, Evet/Hayır, Doğru/Yanlış ve Açık/Kapalı'dır.
12345678910111213141516171819202122232425262728293031 | Alt FormatÖrnek_1()MsgBox Format(1234567.8) 'Sonuç: 1234567.8'Biçim, sayıyı olduğu gibi bırakırMsgBox Format(1234567.8, "Para Birimi") 'Sonuç: $1,234.567.80'Para birimi, sistemin para birimi ayarlarını kullanırMsgBox Format(1234567.8, "Sabit") 'Sonuç: 1234567.80'Düzeltildi: Ondalık noktadan önce en az bir basamak ve'ondalık kısım için sistem ayarlarını kullanırMsgBox Format(1234567.8, "Standart") 'Sonuç: 1.234.567.80'Standart: Bin ayırıcı ve standart sistemMsgBox Format(1234567.8, "Yüzde") 'Sonuç: 123456780.00%'Yüzde, % ve standart sistem ile %100 ile çarpılır.MsgBox Format(1234567.8, "Bilimsel") 'Sonuç: 1.23E+06'Bilimsel gösterimMsgBox Format(1234567.8, "Evet/Hayır") 'Sonuç: Evet'Hayır, eğer sayı sıfırsaMsgBox Format(1234567.8, "Doğru/Yanlış") 'Sonuç: Doğru'Sayı sıfıra eşitse yanlışMsgBox Format(1234567.8, "Açık/Kapalı") 'Sonuç: Açık'Sayı sıfırsa kapalıAlt Bitiş |
Numaraları Kullanıcı Tanımlı Biçimlerle Biçimlendir
Biçim işlevi, bir sayıyı bir dizgeye, biçimlendirilmiş kullanıcı tanımlı sayısal biçimlere dönüştürebilir. 0, bir rakamı veya sıfırı gösteren bir rakam yer tutucusudur. #, bir rakam veya hiçbir şey göstermeyen bir rakam yer tutucusudur. Nokta (.) ondalık yer tutucudur, % yüzde yer tutucudur ve virgül (,) binlik ayırıcıdır. Metin, çift tırnak (“”) kullanılarak biçimde eklenebilir ve ters eğik çizgiden (\) sonra kullanılıyorsa tek bir karakter eklenebilir.
1234567891011 | Alt FormatÖrnek_2()MsgBox Format(7.8, "000.00") 'Sonuç: 007.80MsgBox Format(12347.8356, "000.00") 'Sonuç: 12347.84MsgBox Format(7.8, "###.##") 'Sonuç: 7.8MsgBox Format(12347.8356, "###.##") 'Sonuç: 12347.84MsgBox Format(7.8, "\$.00") 'Sonuç: $7.80MsgBox Format(1237.835, "ABA0.00") 'Sonuç: ABA1237.84MsgBox Format(12347.8356, "000.00%") 'Sonuç: %1234783.56MsgBox Format(12347.8356, "%000.00") 'Sonuç: %12347.84Alt Bitiş |
Sayıları Değerlere Göre Biçimlendir
Biçim işlevi, pozitif sayılar, negatif sayılar, sıfır ve Boş için farklı biçim kuralları kullanan farklı bölümlere sahip olabilir. Bu bölümler noktalı virgülle ayrılır.
1234567 | Alt FormatÖrnek_3()MsgBox Format(7.8, "000.00;(000.00);\z\e\r\o;hiçbir şey") 'Sonuç: 007.80MsgBox Format(-7.8, "000.00;(000.00);\z\e\r\o;hiçbir şey") 'Sonuç: (007.80)MsgBox Format(0, "000.00;(000.00);\z\e\r\o;hiçbir şey") 'Sonuç: sıfırMsgBox Format(Null, "000.00;(000.00);\z\e\r\o;hiçbir şey") 'Sonuç: hiçbir şeyAlt Bitiş |
Tarihleri Önceden Tanımlanmış Biçimlerle Biçimlendir
Biçim işlevi, tarihleri önceden tanımlanmış farklı biçimlerle biçimlendirebilir. Bu biçimler uzun, orta ve kısa tarih ve ayrıca uzun, orta ve kısa zamandır.
1234567891011121314 | Alt FormatÖrnek_4()Dim DateEx As DateDateEx = #4/18/2020 19:35:56 PM#MsgBox Format(DateEx, "Genel Tarih") 'Sonuç: 18.04.2020 19:35:56MsgBox Format(DateEx, "Uzun Tarih") 'Sonuç: 18 Nisan 2022 CumartesiMsgBox Format(DateEx, "Orta Tarih") 'Sonuç: 18-Nis-20MsgBox Format(DateEx, "Kısa Tarih") 'Sonuç: 18.04.2020MsgBox Format(DateEx, "Uzun Süre") 'Sonuç: 19:35:56MsgBox Format(DateEx, "Orta Zaman") 'Sonuç: 07:35 PMMsgBox Format(DateEx, "Kısa Süre") 'Sonuç: 19:35Alt Bitiş |
Tarihleri Kullanıcı Tanımlı Biçimlerle Biçimlendir
Biçim işlevi, tarihleri kullanıcı tanımlı biçimlerle biçimlendirebilir. d, m, y, w, q gibi karakterler özel tarih biçimleri oluşturmak için kullanılabilir.
123456789101112131415161718192021222324 | Alt FormatÖrnek_5()Dim DateEx As DateDateEx = #4/18/2020 19:35:56 PM#MsgBox Format(DateEx, "a/g/yy") 'Sonuç: 18.04.2020MsgBox Format(DateEx, "aa-gg-yy") 'Sonuç: 04-18-2020MsgBox Format(DateEx, "aa-gg-yy") 'Sonuç: 18 Nisan 2020MsgBox Format(DateEx, "mmmm-gg-yy") 'Sonuç: Nisan-18-2020MsgBox Format(DateEx, "aa-gg-yy") 'Sonuç: 04-Cts-2020MsgBox Format(DateEx, "mm-dddd-yy") 'Sonuç: 04-Cumartesi-2020MsgBox Formatı(DateEx, "y")'Sonuç: 1091-366 yılındaki gün sayısıMsgBox Formatı(DateEx, "ww")'Sonuç: 161-52 yılındaki hafta sayısıMsgBox Formatı(DateEx, "q")'Sonuç: 2'yıl 1-4'te çeyrekAlt Bitiş |
Özel saat biçimleri oluşturmak için h, n, s ve am, pm kombinasyonları gibi karakterler kullanılabilir.
123456789101112 | Alt FormatÖrnek_6()Dim DateEx As DateDateEx = #4/18/2020 19:06:05 PM#MsgBox Format(DateEx, "h:n:s") 'Sonuç: 19:6:5MsgBox Format(DateEx, "hh:nn:ss") 'Sonuç: 19:06:05MsgBox Format(DateEx, "ss:nn:ss am/pm") 'Sonuç: 07:06:05 pmMsgBox Format(DateEx, "ss:nn:ss AM/PM") 'Sonuç: 07:06:05 PMMsgBox Format(DateEx, "hh:nn:ss a/p") 'Sonuç: 07:06:05 pMsgBox Format(DateEx, "hh:nn:ss A/P") 'Sonuç: 07:06:05 PAlt Bitiş |
Daha İyi Okunabilirlik için Format
Biçim işlevi, daha iyi okunabilirlik için dizeleri veya sayıları biçimlendirebilir. @, bir karakter veya boşluk görüntülemek için kullanılan bir karakter yer tutucusudur. &, bir karakteri veya hiçbir şeyi görüntülemek için kullanılan bir karakter yer tutucusudur. ! karakter yer tutucularını soldan sağa kullanmak için kullanılabilir ve küçük veya büyük harfleri zorlamak için kullanılabilir. Orijinal değeri değiştirmeden telefon numaralarını veya diğer büyük sayıları biçimlendirmede yararlı olabilir.
12345678910111213141516171819202122 | Alt FormatÖrnek_7()Dize Olarak Dim StrExStrEx = "ABCdef"MsgBox Format(StrEx, "-@@@-@@-@@") 'Sonuç: - AB-Cd-efMsgBox Format(StrEx, "-&&&-&&-&&") 'Sonuç: -AB-Cd-ef'Sağdan sola başlar.MsgBox Format(StrEx, "-@@@-@@-@@-@@") 'Sonuç: - -AB-Cd-efMsgBox Format(StrEx, "-&&&-&-&-&-&&") 'Sonuç: --AB-Cd-ef'Sağdan sola başlar. @ karakterleri bittiğinde boşluk ekler ve & hiçbir şey eklemezMsgBox Format(StrEx, "!-@@@-@@-@@-@@") 'Sonuç: -ABC-de-f -MsgBox Format(StrEx, "!-&&&-&-&-&-&&") 'Sonuç: -ABC-de-f' nedeniyle soldan sağa başlar!MsgBox Format(StrEx, ">") 'Sonuç: ABCDEFMsgBox Format(StrEx, "<") 'Sonuç: abcdefMsgBox Biçimi(1234567890, "@@@-@@@-@@@@") 'Sonuç: 123-456-7890MsgBox Biçimi(1234567890, "@@@@-@@@-@@@") 'Sonuç: 1234-567-890Alt Bitiş |
Çalışma Sayfası Hücrelerinde Biçim Kalıpları
Biçim işlevi, VBA kodunda ve ayrıca çalışma sayfası hücrelerinde kullanılabilir. Hücreyi veya hücre aralığını seçin ve Hücreleri Biçimlendir > Özel menü girişini izleyin. Kullanıcı tanımlı birçok format vardır ve ayrıca kullanıcı kendi özel formatlarını oluşturabilir.
Metin Formülüyle Biçim Kalıpları
Biçim işlevi, VBA kodu içindeki bir değerin biçimini doğrudan değiştirebilir. WorksheetFunction.Text kullanarak aynı sonucu elde etmek için excel Metin formülünü de kullanabiliriz.
1234567891011 | Alt FormatÖrnek_8()MsgBox Biçimi(7.8, "000.00")'Sonuç: 007.80MsgBox WorksheetFunction.Text(7.8, "000.00")'Sonuç: 007.80MsgBox Biçimi(7.8, "###.##")'Sonuç: 7.8MsgBox WorksheetFunction.Text(7.8, "###.##")'Sonuç: 7.8Alt Bitiş |