Fungsi Val VBA

Fungsi Excel VBA Val

Fungsi Val di vba berada di bawah fungsi String. Ini juga merupakan fungsi bawaan di VBA yang dapat digunakan untuk mendapatkan nilai numerik dari variabel data. Misalnya, jika variabel A memiliki nilai A10, maka fungsi VAL akan memberi kita 10 sebagai output. Ini karena dibutuhkan string sebagai argumen dan mengembalikan angka yang ada dalam string.

VAL adalah singkatan dari VALUE dalam terminologi VBA. Fungsi ini mengubah string yang berisi angka menjadi angka sebenarnya. Misalnya, jika Anda memberikan string teks “1234 Global”, itu hanya akan mengembalikan bagian numerik, yaitu 1234.

Ketika kita mendownload atau mendapatkan data dari nomor web, biasanya disimpan sebagai nilai teks dalam spreadsheet. Namun, konversi teks menjadi angka adalah tugas tersulit jika Anda tidak mengetahui fungsi yang benar di Excel. Sebagai fungsi lembar kerja biasa, kami memiliki fungsi yang disebut VALUE, yang akan mengonversi semua string yang mewakili angka menjadi angka persis dengan fungsi sederhana di lembar kerja. Artikel ini akan menunjukkan bagaimana VBA dapat mencapainya dengan menggunakan fungsi VAL.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA Val Function (wallstreetmojo.com)

Sintaksis

Ia hanya memiliki satu argumen: String .

String: Ini hanyalah nilai string. Kami mencoba mengeluarkan bagian numeriknya.

Jadi, fungsi VAL mengubah string yang disediakan menjadi nilai numerik.

Catatan: Fungsi VAL selalu mengabaikan karakter spasi dan terus membaca angka setelah karakter spasi atau beberapa karakter.

Misalnya, jika string yang diberikan adalah “145 45 666 3”, maka akan mengabaikan karakter spasi dan mengembalikan hasilnya sebagai “145456663”.

Contoh Fungsi VAL di Excel VBA

Contoh 1

Mari kita coba contoh pertama dengan angka sederhana, “14 56 47.”

Kode di bawah ini untuk Anda.

Kode:

Sub Val_Example1() Dim k As Variant k = Val(“14 56 47”) ‘Konversi di atas sebagai 145647 MsgBox k End Sub

Ketika Anda menjalankan VBA codeRun VBA CodeVBA kode mengacu pada satu set instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Visual Basic Applications pada Visual Basic Editor (VBE) untuk melakukan tugas tertentu. Baca lebih lanjut menggunakan tombol F5 atau secara manual, itu akan kembalikan hasilnya sebagai “145647” dengan mengabaikan semua karakter spasi, seperti yang ditunjukkan di bawah ini.

Contoh #2

Dalam contoh ini, kita akan melihat bahwa hasil dari string adalah “+456.”

Kode:

Sub Val_Example2() Dim k As Variant k = Val(“+456”) ‘Konversi di atas sebagai 456 MsgBox k End Sub

Anda dapat menjalankan kode ini secara manual atau melalui tombol F5 untuk mengembalikan nilai sebagai 456 dengan mengabaikan +456.

Contoh #3

Sekarang, mari kita coba angka yang sama dengan tanda negatif.

Kode:

Sub Val_Example3() Dim k As Variant k = Val(“-456”) ‘Konversi di atas sebagai -456 MsgBox k End Sub

Kode ini hanya akan mengembalikan nilai -456 karena harus menunjukkan angka dengan tanda operator.

Contoh #4

Sekarang, mari kita coba senar “100 Kg” ini.

Kode:

Sub Val_Example4() Dim k As Variant k = Val(“100 KG”) ‘Abaikan KG dan kembalikan hanya 100 MsgBox k End Sub

Jika Anda menjalankan kode ini secara manual atau menggunakan tombol F5, kode di atas mengabaikan “KG” dan hanya mengembalikan “100” di kotak pesan VBAKotak Pesan VBAFungsi VBA MsgBox adalah fungsi keluaran yang menampilkan pesan umum yang disediakan oleh pengembang. Pernyataan ini tidak memiliki argumen dan pesan yang dipersonalisasi dalam fungsi ini ditulis di bawah tanda kutip ganda sedangkan untuk nilai referensi variabel disediakan.baca lebih lanjut.

Contoh #5

Sekarang, coba string tanggal, “14-05-2018.”

Kode:

Sub Val_Example5() Dim k As Variant k = Val(“14-05-2019”) ‘Mengembalikan 14 sebagai hasilnya. MsgBox k End Sub

Kode di atas mengembalikan 14 karena fungsi VAL hanya dapat mengambil nilai numerik hingga menemukan selain karakter numerik.

Contoh #6

Sekarang, coba string “7459Good456.”

Kode:

Sub Val_Example6() Dim k As Variant k = Val(“7459 Good 456”) ‘Mengembalikan 7459 sebagai hasilnya. MsgBox k End Sub

Itu akan mengekstrak angka sampai menemukan karakter non-numerik, yaitu hasilnya adalah 7459. Kemudian, meskipun ada nilai numerik setelah nilai non-numerik “Baik”, itu sama sekali mengabaikan angka.

Contoh #7

Sekarang, coba nilai string “H 12456.”

Kode:

Sub Val_Example7() Dim k As Variant k = Val(“H 12456”) ‘Mengembalikan 0 sebagai hasilnya. MsgBox k End Sub

Jalankan kode di atas menggunakan tombol pintas F5 atau secara manual, lalu mengembalikan hasilnya sebagai nol. Karena karakter pertama dari string yang kami berikan adalah non-numerik, hasilnya adalah nol.

Contoh #8

Sekarang coba string ini ‘24545 . 2’.

Kode:

Sub Val_Example8() Dim k As Variant k = Val(“24545 .2”) ‘Mengembalikan 24545.2 sebagai hasilnya. MsgBox k End Sub

Kode mengembalikan hasil sebagai 24545.2 karena fungsi VBA VAL menganggap karakter titik (.) sebagai karakter desimal dan mengembalikan hasilnya sesuai dengan itu.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk Fungsi Val VBA. Di sini, kita belajar cara menggunakan fungsi VAL di VBA, contoh praktis, dan template Excel yang dapat diunduh. Di bawah ini Anda dapat menemukan beberapa artikel Excel VBA yang berguna: –