Jenis Data Berganda Excel VBA
VBA Double adalah jenis 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 menjadi nilai integer terdekat. Jenis data tunggal boleh menunjukkan hingga dua digit tempat perpuluhan. Sebaliknya 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
Contoh # 1
Sebelum kita melihat contoh jenis data "Double", mari lihat 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 bilangan bulat berikutnya, dan ketika nilai perpuluhan kurang dari 0,51, maka akan berubah menjadi nilai bilangan bulat 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 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 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 membekalkan hingga 14 digit tempat perpuluhan di bawah Jenis data berganda.
Andaikan anda memberikan nilai yang lebih besar daripada 14 kedudukan perpuluhan akan ditukar menjadi nilai terdekat. Contohnya, lihat gambar di bawah.
Saya telah menaip 15 tempat perpuluhan dan bukannya 14. Sekiranya 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 5 sebelumnya 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 .
Berikut adalah kod untuk mengekalkan nilai dari lajur A hingga B dengan menggunakan jenis data INTEGER.
Kod:
Sub Double_Ex () Dim k As Integer Dim CellValue As Integer For k = 1 To 6 CellValue = Cells (k, 1). Value Cell (k, 2). Value = CellValue Next k End Sub
Mari jalankan kod melalui kunci pintasan F5 untuk melihat nilai apa yang kita dapat di lajur B.
Apabila kita telah menggunakan Integer sebagai jenis data, kita mendapat semua nombor keseluruhannya, 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 kita 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.
