Bu eğitim, VBA'da Metin İşlevinin nasıl kullanılacağını gösterecektir.
Metin işlevi, bir Excel çalışma sayfasında bir dizenin bir bölümünü belirtilen biçimde döndürmek için kullanılır. Metin işlevi bir VBA işlevi değildir, ancak VBA'da Çalışma Sayfası İşlevi nesnesine başvurarak kullanılabilir.
Çalışma SayfasıFonksiyon.Metin
Bu nedenle VBA'daki sözdizimi aşağıdaki gibi olacaktır:
=Çalışma SayfasıFunction.Text (Arg1, Arg2)
burada Arg1 orijinal dizedir ve Arg2 döndürülmesini istediğimiz dizenin biçimidir.
| 1234567 | Alt TestWSFonksiyonu()Dize Olarak Dim dteDize Olarak Dim strDdte = "08/05/2021"strD= WorksheetFunction.Text(dte, "mmmm")MsgBox strDAlt Bitiş |
Yukarıdaki örnekte, dize değişkeni dte bir tarih depoluyor. Metin işlevi daha sonra tarihin ay kısmını döndürür.
Sayıları Metin İşleviyle Biçimlendirme
VBA kodumuzdaki sayıları biçimlendirmek için metin işlevini kullanabiliriz.
| 1234567 | Alt FormatPara Birimi()Dize Olarak Dim strNumDim strFormat As StringstrNum = "75896.125"strFormat = WorksheetFunction.Text(strNum, "$#,##0.00")MsgBox strFormatAlt Bitiş |
Yukarıdaki örnekte döndürülen dize 75.896,13 ABD doları olacaktır.
Metin İşlevini kullanan diğer sayı biçimlendirme örnekleri şunlardır:
| 12345678 | =Çalışma SayfasıFunction.Text(75896.125, "0")bu dönecek: "75896"=Çalışma SayfasıFunction.Text(75896.125, "0.0")bu dönecek: "75896.1"=Çalışma SayfasıFunction.Text(75896.125, "#,##0")bu dönecek: "75,896" |
Ancak, VBA içinde tarih ve sayıları biçimlendirmek istiyorsak, Excel'in Metin işlevi yerine kullanabileceğimiz yerleşik bir VBA işlevi vardır. Bu, Biçim işlevi olarak bilinir.
VBA Biçim İşlevi
Yukarıdaki örneği alarak WorksheetFunction.Text kullanmak yerine, aynı sonuçları elde etmek için Format Fonksiyonunu kullanabiliriz.
| 12345678 | =Biçim(75896.125, "0")bu dönecek: "75896"=Biçim(75896.125, "0.0")bu dönecek: "75896.1"=Biçim(75896.125, "#,##0")bu dönecek: "75,896" |
Benzer şekilde, bir dizgenin tarih bölümlerini biçimlendirmek için Biçim İşlevini kullanabiliriz.
| 1234567 | Alt TestFormatFunction()Dize Olarak Dim dteDize Olarak Dim strDdte = "08/05/2021"strD= Biçim(dte, "mmmm")MsgBox strDAlt Bitiş |
