Fungsi Excel VBA CDBL
VBA CDBL adalah fungsi konversi tipe data bawaan dan penggunaan fungsi ini adalah untuk mengubah tipe data dari nilai variabel apa pun menjadi tipe data Ganda, fungsi ini hanya mengambil satu argumen yang merupakan nilai variabel itu sendiri.
Di VBA, "CDBL" adalah singkatan dari "Convert to Double". Fungsi ini mengubah angka yang diberikan menjadi tipe data ganda. Lihatlah sintaks fungsi CDBL.
- Ekspresi adalah nilai yang kami coba ubah menjadi tipe data ganda.
Setiap angka mengambang yang disimpan selain tipe data ganda dapat dikonversi dengan menerapkan fungsi CDBL.
Arahkan ke Ingat Di Sini: Hanya nilai numerik yang dapat dikonversi ke tipe data Ganda. Apa pun selain nilai numerik tidak dapat dikonversi menjadi tipe ganda, jadi akhirnya munculkan "Type Mismatch Error in VBA" seperti di bawah ini.
Pernahkah Anda menggunakan tipe data ganda dalam pengkodean VBA?
Jika tidak, ada baiknya untuk melihatnya sekarang. Double adalah tipe data yang digunakan untuk menyimpan posisi desimal angka tersebut. Kami dapat memiliki hingga 13 angka desimal mengambang.
Misalnya, lihat kode VBA di bawah ini.
Di atas, saya telah mendefinisikan tipe variabel (k) sebagai Integer. Dim k Sebagai Integer
Selanjutnya, saya telah menetapkan nilai sebagai k = 25.4561248694615
Saat saya menjalankan kode tersebut, kita akan mendapatkan hasil sebagai berikut.
Kami mendapatkan hasil sebagai 25 karena kami telah mendefinisikan variabel sebagai bulat VBA Integer ke nilai integer terdekat.
Untuk menunjukkan hasil apa adanya, kita perlu mengubah tipe variabel dari Integer menjadi Double.
Ini akan memberi kita angka persis seperti yang kita tetapkan ke variabel.
Ok, dengan mengingat hal ini, kita juga dapat mengonversi semua bilangan pecahan, yang disimpan sebagai tipe data non-ganda.
Contoh untuk Menggunakan Fungsi VBA CDBL
Contoh 1
Untuk memulai prosesnya, mari kita lihat kode di bawah ini.
Kode:
Sub Double_Example1 () Dim k Sebagai String k = 48.14869569 MsgBox k End Sub
Sekarang saya akan menjalankan kode dan melihat apa yang terjadi.
Meskipun jenis variabel VBA adalah "String", variabel ini masih menampilkan nilai desimal. Ini karena String dapat berupa jenis data apa pun, sehingga bilangan desimal atau mengambang ditampilkan sebagaimana adanya.
Sekarang saya akan mengubah tipe data vba dari string menjadi Integer.
Kode:
Sub Double_Example1 () Dim k Sebagai Integer k = 48.14869569 MsgBox k End Sub
Sekarang saya akan menjalankan kode dan melihat apa yang terjadi.
Di sinilah fungsi CDBL memainkan peran penting dalam mengubah tipe data integer menjadi ganda. Jadi kode di bawah ini sama untuk Anda.
Kode:
Sub Double_Example1 () Dim IntegerNumber Sebagai String Redup DoubleNumber Sebagai Double IntegerNumber = 48.14869569 DoubleNumber = CDbl (IntegerNumber) MsgBox DoubleNumber End Sub
Ini akan mengubah nilai tipe data string menjadi Double.
Contoh # 2
Sekarang mari kita ubah angka 854.6947, yang disimpan sebagai tipe data Variant to Double.
Kode:
Sub Double_Example2 () Redupkan VaraintNumber Dim DoubleNumber Sebagai Double VaraintNumber = 854.6947 DoubleNumber = CDbl (VaraintNumber) MsgBox DoubleNumber End Sub
Variabel pertama yang saya nyatakan sebagai "Varian". Redupkan VaraintNumber
Catatan: Ketika tipe variabel tidak dideklarasikan, itu menjadi tipe data universal Variant.
Selanjutnya, saya telah mendeklarasikan satu variabel lagi, yaitu Dim DoubleNumber As Double.
Untuk variabel pertama, VaraintNumber, kami telah menetapkan nilainya sebagai 854.6947.
Sekarang dengan menggunakan variabel kedua, kami telah menerapkan fungsi CDBL untuk mengubah nilai Varian menjadi tipe data Ganda.
DoubleNumber = CDbl (VaraintNumber)
Bagian terakhir adalah menampilkan hasil di kotak pesan. MsgBox DoubleNumber
Sekarang saya akan menjalankan kode untuk melihat hasilnya.
Hal-hal untuk diingat
- Tipe data ganda hanya dapat menerima angka numerik.
- Jika nilai teks diberikan, itu akan menyebabkan kesalahan Jenis Ketidakcocokan.
- Tipe data ganda hanya dapat menampilkan 13 digit angka mengambang.
