Bilangan bulat adalah jenis data dalam VBA yang diberikan kepada mana-mana pemboleh ubah untuk menahan nilai bilangan bulat, batasan atau tanda kurung untuk bilangan pemboleh ubah integer yang dapat dipegang sama di VBA dengan yang sama dengan bahasa lain, sebarang pemboleh ubah didefinisikan sebagai bilangan bulat pemboleh ubah menggunakan pernyataan DIM atau kata kunci dalam VBA.
Integer Excel VBA
Jenis data sangat penting dalam mana-mana bahasa pengekodan kerana semua deklarasi pemboleh ubah harus diikuti oleh jenis data yang diberikan kepada pemboleh ubah tersebut. Kami mempunyai beberapa jenis data untuk digunakan dan setiap jenis data mempunyai kelebihan dan kekurangan tersendiri yang berkaitan dengannya. Semasa kita menyatakan pemboleh ubah adalah penting untuk mengetahui perincian mengenai jenis data tertentu. Ini adalah artikel yang dikhaskan untuk jenis data "Integer" di VBA. Kami akan menunjukkan gambaran lengkap mengenai jenis data "Integer".
Apakah Jenis Data Integer?
Bilangan bulat adalah nombor bulat yang mungkin positif, negatif, dan sifar tetapi bukan nombor pecahan. Dalam konteks VBA, "Integer" adalah jenis data yang kami tetapkan kepada pemboleh ubah. Ini adalah jenis data berangka yang dapat menyimpan nombor bulat tanpa kedudukan perpuluhan. Storan data bilangan bulat 2 bait yang merupakan separuh daripada jenis data VBA LONG iaitu 4 bait.
Contoh Jenis Data Integer Excel VBA
Berikut adalah contoh jenis Data Integer VBA.
Anda boleh memuat turun Templat Jenis Data Integer VBA ini di sini - Templat Jenis Data Integer VBAContoh # 1
Apabila kita menyatakan pemboleh ubah, perlu menetapkan jenis data padanya dan bilangan bulat salah satunya yang biasanya digunakan oleh semua pengguna berdasarkan keperluan.
Seperti yang saya katakan bilangan bulat hanya boleh menyimpan nombor bulat, bukan nombor pecahan. Ikuti langkah di bawah untuk melihat contoh jenis data integer VBA.
Langkah 1: Nyatakan pemboleh ubah sebagai Integer.
Kod:
Sub Integer_Contoh () Dim k Sebagai Sub End Integer
Langkah 2: Tetapkan nilai 500 ke pemboleh ubah "k".
Kod:
Sub Integer_Contoh1 () Dim k Sebagai Integer k = 500 Sub Akhir
Langkah 3: Tunjukkan nilai di kotak mesej VBA.
Kod:
Sub Integer_Contoh1 () Dim k Sebagai Integer k = 500 MsgBox k End Sub
Apabila kita menjalankan kod menggunakan kunci F5 atau secara manual, kita dapat melihat 500 di kotak mesej.
Contoh # 2
Sekarang saya akan memberikan nilai sebagai -500 ke pemboleh ubah "k".
Kod:
Sub Integer_Contoh2 () Dim k Sebagai Integer k = -500 MsgBox k Akhir Sub
Jalankan kod ini secara manual atau tekan F5 kemudian, ia juga akan menunjukkan nilai -500 di kotak mesej.
Contoh # 3
Seperti yang saya katakan VBA Integer jenis data boleh menyimpan nombor bulat sahaja bukan nombor pecahan seperti 25.655 atau 47.145.
Walau bagaimanapun, saya akan cuba memberikan nombor pecahan kepada jenis data VBA Integer. Sebagai contoh lihat kod di bawah.
Kod:
Sub Integer_Contoh3 () Dim k Sebagai Integer k = 85.456 MsgBox k Akhir Sub
Saya telah memberikan 85.456 kepada pemboleh ubah "k". Saya akan menjalankan kod VBA ini untuk melihat apa hasilnya.
- Ia telah menghasilkan hasilnya sebanyak 85 walaupun saya telah memberikan nilai nombor pecahan. Ini kerana VBA membundarkan nombor pecahan ke nombor bulat terdekat.
- Semua nombor pecahan kurang dari 0.5 akan dibundarkan ke bilangan bulat terdekat. Sebagai contoh 2.456 = 2, 45.475 = 45.
- Semua nombor pecahan yang lebih besar daripada 0.5 akan dibundarkan ke bilangan bulat terdekat. Sebagai contoh 10.56 = 11, 14.789 = 15.
Untuk melihat lagi bilangan bulat bulat membolehkan nilai âkâ hingga 85.58.
Kod:
Sub Integer_Contoh3 () Dim k Sebagai Integer k = 85.58 MsgBox k Akhir Sub
Apabila saya menjalankan kod ini menggunakan kekunci F5 atau secara manual ia akan mengembalikan 86 kerana apa-apa lebih daripada 0,5 akan dibundarkan ke nombor bilangan bulat seterusnya.
Batasan Jenis Data Integer dalam Excel VBA
Ralat Limpahan: Jenis data integer harus berfungsi dengan baik selagi nilai yang ditetapkan adalah antara -32768 hingga 32767. Sebaik sahaja ia melintasi had di kedua-dua sisi, ia akan menyebabkan kesalahan.
Sebagai contoh lihat kod di bawah.
Kod:
Sub Integer_Contoh4 () Dim k Sebagai Integer k = 40000 MsgBox k Akhir Sub
Saya telah memberikan nilai 40000 kepada pemboleh ubah "k".
Oleh kerana saya mempunyai pengetahuan lengkap mengenai Jenis Data Integer pasti saya tahu ia tidak berfungsi kerana jenis data integer tidak dapat menyimpan nilai lebih dari 32767.
Mari jalankan kod secara manual atau melalui kekunci F5 dan lihat apa yang berlaku.
Alamak !!!
Saya mendapat ralat sebagai "Overflow" kerana jenis data Integer tidak dapat menahan lebih dari 32767 untuk nombor positif dan -32768 untuk nombor negatif.
Ralat Ketidakcocokan Jenis: Data integer hanya dapat menyimpan nilai berangka antara -32768 hingga 32767. Sekiranya ada nombor yang diberikan lebih daripada nombor ini akan menunjukkan ralat Overflow.
Sekarang saya akan cuba memberikan nilai teks atau rentetan kepadanya. Dalam contoh kod di bawah ini saya telah memberikan nilai sebagai "Hello".
Kod:
Sub Integer_Contoh4 () Dim k Sebagai Integer k = "Hello" MsgBox k Akhir Sub
Saya akan menjalankan kod ini melalui pilihan run atau secara manual dan melihat apa yang berlaku.
Ini menunjukkan kesalahan sebagai "Ketidakcocokan Jenis" kerana kami tidak dapat menetapkan nilai teks ke pemboleh ubah "jenis data integer".
