Fungsi VBA CLng - Bagaimana menggunakan Fungsi CLng? (dengan Contoh)

Isi kandungan

Fungsi Excel VBA CLng

Fungsi Excel VBA CLng

“CLNG” bermaksud jenis data “Convert to Long”. Had jenis data integer adalah antara -32768 hingga 32767, jadi apa-apa kelebihan yang anda mahu simpan ke pemboleh ubah ini maka kami perlu menggunakan jenis data yang PANJANG di VBA.

Pemboleh ubah penting dalam mana-mana bahasa pengaturcaraan, dan VBA juga tidak berbeza. Tanpa menggunakan pemboleh ubah, adalah tugas yang mustahil untuk menulis kod yang panjang. Sekiranya pemboleh ubah adalah penting, maka pemboleh ubah jenis data yang kami tetapkan kepada pemboleh ubah ini lebih kritikal kerana jenis data yang kami berikan kepada mereka adalah hasil yang kami dapat.

Sering kali kita dapat menetapkan data berangka sebagai "String," jadi ini akan menimbulkan kesalahan semasa melakukan perhitungan, jadi dengan menggunakan fungsi ubah, kita dapat mengubah jenis data yang kita inginkan. Fungsi penukar yang biasa digunakan ialah CLng, CInt, CDbl, CDate, CDec di VBA. Dalam artikel ini, kami akan menunjukkan kepada anda mengenai fungsi penukaran jenis data integer "CLNG."

Sintaks

Berikut adalah sintaks fungsi CLNG.

Ungkapan itu tidak lain hanyalah nilai atau pemboleh ubah yang ingin kita ubah kepada jenis data yang PANJANG.

Catatan: Nilai yang ingin kami ubah harus berupa angka berangka selain dari nilai berangka akan menyebabkan "Ralat Jalankan Masa 13: Ketidakcocokan Jenis."

Contoh untuk Menggunakan Fungsi CLng di VBA

Contoh # 1

Sekarang kita akan melihat bagaimana kita menukar nilai tersimpan teks menjadi jenis data "Panjang".

Contohnya, lihat kod di bawah.

Kod:

Sub CLNG_Contoh1 () Dim LongNumber Sebagai String Dim LongResult As Long LongNumber = "2564589" LongResult = CLng (LongNumber) MsgBox LongResult End Sub

Jadi, sekarang periksa kodnya dengan teliti untuk memahami cara kerjanya.

Pertama, kami telah menyatakan dua pemboleh ubah, String dan Long, masing-masing.

Kod:

Dim LongNombor Sebagai String Dim LongResult As Long

Untuk pemboleh ubah rentetan, kami telah menetapkan nombor nilai tetapi dalam tanda kutip dua, jadi apa yang akan dilakukan adalah ia akan menganggap nombor "2564589" sebagai rentetan, bukan sebagai pemboleh ubah "Panjang". Sekarang untuk pemboleh ubah lain, LongResult, kami telah menggunakan fungsi Clng (LongNumber) untuk menukar garis yang tersimpan nombor menjadi pemboleh ubah LONG.

Kotak mesej seterusnya akan menunjukkan hasilnya sebagai nombor PANJANG yang ditukarkan dari rentetan ke jenis data panjang.

Pengeluaran:

Contoh # 2

Sekarang perhatikan kod di bawah.

Kod:

Sub CLNG_Contoh2 () Dim LongNumber Sebagai String Dim LongResult As Long LongNumber = "Long Number" LongResult = CLng (LongNumber) MsgBox LongResult End Sub

Ini akan memberi kita hasilnya sebagai "Ketidakcocokan Jenis."

Memahami mengapa ralat berlaku adalah asas untuk memperbaiki kesalahan. Apabila anda memeriksa pemboleh ubah untuk pemboleh ubah pertama LongNumber, kami telah menetapkan nilai teks sebagai "Long Number", maka kami telah menggunakan fungsi excel VBA CLNG untuk mengubahnya menjadi jenis data LONG.

Sebab mengapa kami mendapat ralat ini adalah kerana jenis data PANJANG hanya dapat menerima jenis data berangka kerana kami telah memberikan nilai rentetan ke pemboleh ubah, ia tidak dapat menukar nilai rentetan atau nilai teks menjadi jenis data yang panjang. Oleh itu, ia memberikan ralat sebagai "Ketidakpadanan Jenis."

Contoh # 3

Satu lagi ralat yang kita dapat dengan jenis data LONG adalah "Overflow Error in VBA," iaitu, jenis data pemboleh ubah Long dapat menahan nilai dari -2,147,483,648 2,147,483,647. Jadi jumlah di atas ini akan menyebabkan ralat limpahan.

Contohnya, lihat kod di bawah.

Kod:

Sub CLNG_Contoh3 () Dim LongNumber Sebagai String Dim LongResult As Long LongNumber = "25645890003" LongResult = CLng (LongNumber) MsgBox LongResult End Sub

Untuk pemboleh ubah "LongNumber," saya telah memberikan nombor "25645890003," yang melebihi had jenis data "Long". Apabila kita menjalankan kod di atas, ia akan mengalami ralat "Overflow" .