Fungsi VBA CDBL

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.

Dalam VBA "CDBL" adalah singkatan dari "Convert to Double". Fungsi ini mengonversi angka yang diberikan menjadi tipe data ganda. Lihatlah sintaks fungsi CDBL.

  • Ekspresi adalah nilai yang kami coba ubah menjadi tipe data Ganda.

Setiap bilangan 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.

Untuk contoh 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

Ketika 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 sebagaimana 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

Anda dapat mendownload Template Fungsi CDBL VBA ini di sini - Template Fungsi CDBL VBA

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 tipe variabel VBA adalah "String", ini masih menunjukkan nilai desimal. Ini karena String dapat berupa tipe data apa pun sehingga bilangan desimal atau mengambang ditampilkan apa adanya.

Sekarang saya akan mengubah tipe data 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 untuk mengubah tipe data integer menjadi double. Jadi kode di bawah ini sama untuk Anda.

Kode:

 Sub Double_Example1 () Dim IntegerNumber Sebagai String Dim 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 menjadi 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 "Variant". 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 nilai sebagai 854.6947.

Sekarang dengan menggunakan variabel kedua, kami telah menerapkan fungsi CDBL untuk mengubah nilai Variant menjadi tipe data Double.

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 Type Mismatch.
  • Tipe data ganda hanya dapat menampilkan 13 digit angka mengambang.