Jenis Data Berganda Excel VBA
VBA Double adalah sejenis jenis data yang kami tetapkan untuk menyatakan pemboleh ubah, yang merupakan versi yang lebih baik atau lebih panjang dari pemboleh ubah jenis data "Tunggal" dan biasanya digunakan untuk menyimpan tempat perpuluhan yang lebih lama.
Jenis data Integer VBA selalu menukar nilai perpuluhan ke nilai integer terdekat, jenis data tunggal dapat menunjukkan hingga dua digit tempat perpuluhan. Di sisi lain, jenis data "Double" dapat menyimpan nilai dari -1.79769313486231E308 hingga -4.94065645841247E324 untuk nilai negatif dan untuk nombor positif, ia dapat menyimpan nilai dari 4.94065645841247E-324 hingga 1.79769313486232E308 .
Lebih penting lagi, ia memakan 8 byte memori.
Contoh untuk menggunakan Jenis Data Berganda VBA
Anda boleh memuat turun Templat VBA Double Excel ini di sini - Templat VBA Double ExcelContoh # 1
Sebelum kita melihat contoh jenis data "Double" mari kita perhatikan contoh kod jenis data "Integer" dan "Single" di VBA. Lihat kod VBA di bawah.
Kod:
Sub Integer_Ex () Dim k As Integer k = 2.569999947164 MsgBox k Akhir Sub
Saya telah menyatakan pemboleh ubah "k" sebagai Integer dan untuk pemboleh ubah ini, saya telah menetapkan nilainya sebagai 2.569999947164.
Mari kita jalankan kod ini secara manual atau menggunakan kunci pintasan excel F5, untuk melihat nilai akhir di kotak mesej di VBA.
Hasilnya ditunjukkan sebagai 3 dan bukannya nombor yang dibekalkan 2.569999947164. Sebabnya kerana VBA telah menukar nombor menjadi nilai integer terdekat iaitu 3.
Apabila nilai perpuluhan lebih dari 0.5 maka ia akan berubah menjadi nilai integer seterusnya dan apabila nilai perpuluhan kurang dari 0.51 maka akan ditukarkan menjadi nilai integer di bawah.
Sekarang saya akan menukar jenis data dari Integer menjadi Single.
Kod:
Sub Integer_Ex () Dim k As Single k = 2.569999947164 MsgBox k Akhir Sub
Jalankan kod tersebut melalui kekunci pintas F5, dan lihat nombor apa yang kita dapat kali ini.
Kali ini kami mendapat keputusan sebagai 2.57, jadi kali ini kami mendapat dua tempat perpuluhan. Nilai asal yang telah kami tetapkan adalah 2.569999947164, jadi dalam hal ini, ketiga, nilai perpuluhan yang ditempatkan adalah 9, jadi kerana ini lebih dari 5 ia telah menukar nilai perpuluhan tempat kedua 6 hingga 7.
Sekarang ubah jenis data dari Single ke Double.
Kod:
Sub Integer_Ex () Dim k As Double k = 2.569999947164 MsgBox k Akhir Sub
Sekarang jalankan kod secara manual dan lihat berapa digit yang kita dapat dalam hasil kotak mesej.
Kali ini mendapat semua nilai perpuluhan. Kami boleh menyediakan hingga 14 digit tempat perpuluhan di bawah Jenis data berganda.
Sekiranya anda memberikan nilai yang lebih besar daripada 14 kedudukan perpuluhan akan ditukar menjadi nilai terdekat. Sebagai contoh lihat gambar di bawah.
Saya telah menaip 15 tempat perpuluhan dan bukannya 14, jika saya menekan butang enter, ia akan menjadi 14 digit sahaja.
Daripada 59 (dua digit terakhir), kita mendapat 6 iaitu kerana digit terakhir adalah 9 yang lebih besar daripada 5 nombor sebelumnya 5 ditukar ke nilai integer seterusnya iaitu 6
Contoh # 2
Sekarang saya akan menunjukkan cara bekerja dengan rujukan sel dalam lembaran kerja. Berikut adalah nombor yang telah saya masukkan dalam lembaran kerja.
Mari kita mulakan menangkap nilai yang sama seterusnya dengan menggunakan jenis data INTEGER , jenis data SINGLE , dan jenis DOUBLE .
Di bawah ini adalah kod untuk mengekalkan nilai dari lajur A hingga B dengan menggunakan jenis data INTEGER.
Kod:
Sub Double_Ex () Dim k Sebagai Integer Dim CellValue Sebagai Integer Untuk k = 1 Hingga 6 CellValue = Sel (k, 1). Value Cell (k, 2). Value = CellValue Next k End Sub
Mari jalankan kod melalui kekunci pintas F5, untuk melihat nilai apa yang kita dapat di lajur B.
Apabila kita telah menggunakan Integer sebagai jenis data, kita mendapat semua nombor bulat iaitu tanpa perpuluhan.
Sekarang saya hanya akan menukar jenis data vba pemboleh ubah dari integer ke Single.
Kod:
Sub Double_Ex () Dim k As Integer Dim CellValue As Single For k = 1 To 6 CellValue = Cells (k, 1). Value Cells (k, 2). Value = CellValue Next k End Sub
Kod ini akan memberikan hasil di bawah.
Kali ini kami hanya mendapat dua tempat perpuluhan.
Sekarang menukar jenis data dari satu menjadi dua kali ganda.
Kod:
Sub Double_Ex () Dim k As Integer Dim CellValue As Double For k = 1 To 6 CellValue = Cells (k, 1). Value Cells (k, 2). Value = CellValue Next k End Sub
Ini akan memberikan hasil di bawah.
Kami mendapat nilai tepat dari lajur A.
Perkara yang Perlu Diingat
- Double adalah jenis data yang lebih baik dari jenis data tunggal.
- Ia boleh menampung hingga 14 tempat perpuluhan.
- Ia memakan 8 byte memori sistem.
