Teks VBA - Bagaimana menggunakan Fungsi Teks di VBA Excel? (dengan Contoh)

Isi kandungan

Fungsi Teks Excel VBA

Teks adalah fungsi lembar kerja di excel tetapi dapat juga digunakan di VBA ketika menggunakan rentang properti dengannya, fungsi untuk fungsi ini mirip dengan fungsi lembaran kerja dan memerlukan jumlah argumen yang sama yang merupakan nilai yang harus ada ditukar dan format nombor yang ditentukan.

Fungsi Teks Excel VBA

TEXT adalah fungsi yang tersedia dengan lembaran kerja, tetapi sayangnya, ini bukan fungsi terbina dalam Excel VBA. Untuk mengakses fungsi ini, kita perlu menggunakan objek kelas fungsi lembaran kerja di VBA. Fungsi teks dalam Excel menukar nilai ke format nombor yang ditentukan.

Salah satu masalah dengan fungsi ini sebagai hujah. Setiap kali kita menggunakan kelas fungsi lembaran kerja VBA, kita tidak dapat melihat sintaks yang jelas seperti di lembaran kerja kita. Hanya tertulis "Arg1" dan "Arg2".

Arg1 adalah nilai yang kita perlukan untuk menerapkan pemformatan.
Arg2 adalah format yang perlu kita terapkan, dan kita perlu menentukan kod pemformatan.

Contoh Fungsi Teks VBA di Excel

Berikut adalah contoh Fungsi Teks Excel VBA.

Contoh # 1

Mari saya tunjukkan contoh ringkas TEKS dalam VBA Excel. Lihat kod di bawah dalam Visual Basic.

Kod:

Sub Teks_Contoh1 () Dim FormattingValue As String Dim FormattingResult As String FormattingValue = 0.564 FormattingResult = WorksheetFunction.Text (FormattingValue, "hh: mm: ss AM / PM") MsgBox FormattingResult End Sub

Pertama saya telah menyatakan dua pemboleh ubah sebagai rentetan dalam VBA.

Dim FormattingValue As String Dim FormattingHasil As String

Untuk pemboleh ubah pertama, saya telah menetapkan nombor pemformatan, yang perlu kita format.

FormattingValue = 0.564

Sekarang untuk pemboleh ubah lain, saya telah menetapkan fungsi TEXT.

FormattingResult = WorksheetFunction.Text (FormattingValue, "hh: mm: ss AM / PM")

Jika anda perhatikan, saya telah menerapkan pemformatan waktu, yaitu, "hh: mm: ss AM / PM."

Akhirnya, saya telah menggunakan kotak mesej VBA untuk menunjukkan hasilnya.

MsgBox FormattingResult

Semasa saya menjalankan kod TEXT fungsi akan menerapkan format waktu ke nombor 0,564 dan memaparkan hasilnya seperti di bawah.

Jadi, kami mendapat masa sebagai " 01:32:10 PM ".

Contoh # 2

Sama seperti contoh format tarikh, kami telah membuat beberapa perubahan kecil dalam contoh ini. Berikut adalah kodnya.

Kod:

Sub Teks_Contoh2 () Dim FormattingValue As String Dim FormattingResult As String FormattingValue = 43585 FormattingResult = WorksheetFunction.Text (FormattingValue, "DD-MMM-YYYY") MsgBox FormattingResult End Sub

Dari kod sebelumnya, saya telah mengubah Nilai Pemformatan dari 0,565 menjadi 43585 dan mengubah gaya pemformatan sebagai "DD-MMM-YYYY."

Ini akan menerapkan pemformatan ke angka 43585 sebagai tarikh, dan hasilnya adalah seperti berikut.

Terapkan Pemformatan ke Sel

Kami telah melihat contoh-contoh mudah. Sekarang, lihat cara bekerja dengan sel dalam lembaran kerja. Untuk contoh ini, lihat data di bawah.

Untuk semua nombor ini, kita perlu menggunakan format masa. Kod ini akan menggunakan pemformatan.

Kod:

Sub Teks_Contoh3 () Dim k Sebagai Integer Untuk k = 1 Hingga 10 Sel (k, 2). Nilai = Lembaran KerjaFungsi.Teks (Sel (k, 1). Nilai, "hh: mm: ss AM / PM") Seterusnya k Akhir Sub