Metin, excel'de bir çalışma sayfası işlevidir, ancak VBA'da aralık özelliğini kullanırken de kullanılabilir, bu işlevin işlevi çalışma sayfası işlevine benzer ve olması gereken değerler olan aynı sayıda bağımsız değişken alır. dönüştürülmüş ve belirli bir sayı biçimi.
Excel VBA Metin İşlevi
METİN, çalışma sayfasında bulunan işlevdir, ancak maalesef Excel VBA'da yerleşik bir işlev değildir. Bu işleve erişmek için, VBA'daki çalışma sayfası işlevi sınıfı nesnesini kullanmamız gerekir. Excel'deki metin işlevi, bir değeri belirtilen sayı biçimine dönüştürür.
Argüman olarak bu işlevle ilgili sorunlardan biri. VBA çalışma sayfası işlev sınıfını kullandığımızda, çalışma sayfamızdaki gibi net sözdizimini göremeyiz. Sadece "Arg1" ve "Arg2" diyor.
- Arg1 , biçimlendirmeyi uygulamamız gereken değerdir.
- Arg2 , uygulamamız gereken biçimlendirmedir ve biçimlendirme kodunu belirtmemiz gerekir.
Excel'de VBA Metin İşlevi Örnekleri
Aşağıda Excel VBA Metin Fonksiyonu örnekleri verilmiştir.
Örnek 1
Size VBA Excel'de TEXT'in basit bir örneğini göstereyim. Visual Basic'te aşağıdaki koda bakın.
Kod:
Sub Text_Example1 () Dim FormattingValue As String Dim FormattingResult As String FormattingValue = 0.564 FormattingResult = WorksheetFunction.Text (FormattingValue, "hh: mm: ss AM / PM") MsgBox FormattingResult End Sub
Öncelikle VBA'da iki değişkeni dizge olarak tanımladım.
Dim FormattingValue As String Dim FormattingResult As String
İlk değişken için, biçimlendirmemiz gereken biçimlendirme numarasını verdim.
FormattingValue = 0.564
Şimdi başka bir değişken için, TEXT işlevini atadım.
FormattingResult = WorksheetFunction.Text (FormattingValue, "ss: dd: ss ÖÖ / ÖS")
Gözlemlerseniz, zaman biçimlendirmesini uyguladım, yani "ss: dd: ss ÖÖ / ÖS."
Sonunda, sonucu göstermek için bir VBA mesaj kutusu uyguladım.
MsgBox Biçimlendirmesi
Kodu çalıştırdığımda TEXT işlevi 0.564 sayısına zaman formatını uygulayacak ve sonucu aşağıdaki gibi gösterecektir.
Yani saati 01:32:10 olarak aldık .
Örnek 2
Tarih biçimi örneğine benzer şekilde, bu örnekte bazı küçük değişiklikler yaptık. Kod aşağıdadır.
Kod:
Alt Metin_Örneği2 () Dim FormattingValue As String Dim FormattingResult As String FormattingValue = 43585 FormattingResult = WorksheetFunction.Text (FormattingValue, "DD-MMM-YYYY") MsgBox FormattingSonuç Son Alt
Önceki koddan, Biçimlendirme Değerini 0,565'ten 43585'e değiştirdim ve biçimlendirme stilini "GG-AA-YYYY" olarak değiştirdim.
Bu, biçimlendirmeyi tarih olarak 43585 numarasına uygulayacaktır ve sonuç aşağıdaki gibidir.
Hücrelere Biçimlendirme Uygulama
Basit örnekler gördük. Şimdi, bir çalışma sayfasındaki hücrelerle nasıl çalışılacağına bakın. Bu örnek için aşağıdaki verilere bakın.
Tüm bu sayılar için saat formatını uygulamamız gerekiyor. Bu kod, biçimlendirmeyi uygulayacaktır.
Kod:
Alt Metin_Örnek3 () Dim k As Integer For k = 1 To 10 Cells (k, 2) .Value = WorksheetFunction.Text (Cells (k, 1) .Value, "hh: mm: ss AM / PM") Sonraki k End Alt
Bu kod 10 hücreden geçecek ve aşağıdaki biçimlendirmeyi uygulayacaktır.
Bunun gibi, VBA TEXT işlevini kullanarak hücrelere sayı biçimlendirmesi uygulayabiliriz.
