Fungsi VT Excel VBA
VBA VARTYPE bermaksud "Jenis Berubah". Fungsi ini membantu kita untuk mengenal pasti jenis data yang diberikan kepada pemboleh ubah tertentu atau dengan kata mudah kita boleh mengatakan ia menemukan jenis nilai yang disimpan atau diberikan kepada pemboleh ubah.
Sintaks
VarName: Kita hanya perlu memberikan nama pemboleh ubah untuk mencari data yang disimpan dalam nama pemboleh ubah yang dibekalkan.
Jadi, ia mengambil nama pemboleh ubah sebagai sintaks atau argumen, dan dalam output, ia mengembalikan jenis data yang diberikan kepada pemboleh ubah atau jenis data yang disimpan dalam pemboleh ubah.
Oleh itu, jika anda pernah bertanya-tanya bagaimana mencari jenis data pemboleh ubah atau jenis data yang diberikan kepada pemboleh ubah, maka di sini kita mempunyai fungsi VBA "VarType."
Contoh
Contoh # 1
Di VBA, semasa menulis kod, kami biasanya menyatakan pemboleh ubah dan memberikan jenis data kepadanya. Sebagai contoh, lihat kod VBA di bawah.
Kod:
Sub VarType_Example () Dim MyVar Sebagai String MyVar = "Hello" End Sub
Dalam contoh di atas, kami telah menyatakan pemboleh ubah sebagai "String", dan untuk string ini, kami telah menetapkan nilai sebagai "Hello."
Ini adalah kes yang mudah, tetapi juga mungkin untuk menyatakan pemboleh ubah tanpa memberikan pemboleh ubah kepada mereka, jadi dalam kes seperti itu, fungsi VarType membantu kita.
Kod:
Sub VarType_Example () Dim MyVar MyVar = "Hello" Akhir Sub
Dalam kod di atas, kami belum memberikan jenis data tetapi langsung menetapkan nilainya sebagai "Hello", jadi dengan menggunakan fungsi VarType, kita dapat menemukan jenis data pemboleh ubah.
Buka MSGBOX dalam pengekodan VBA dalam kod di atas.
Kemudian buka fungsi VarType.
Sekarang masukkan nama pemboleh ubah sebagai argumen fungsi VARTYPE.
Kod:
Sub VarType_Contoh () Dim MyVar MyVar = "Hello" MsgBox VarType (MyVar) Akhir Sub
Sekarang jalankan kod dan lihat apa yang kita dapat di kotak mesej.
Kami mendapat hasilnya 8 kerana VBA mempunyai kod tertentu untuk setiap jenis jenis data berubah-ubah, jadi di bawah ini adalah senarai terperinci untuk anda.
| Nilai | Pemalar | Penerangan | ||
| 0 | vb Kosong | Pemboleh ubah belum dimulakan | ||
| 1 | vbBatal | Data tidak sah diberikan | ||
| 2 | vbInteger | Nilai pemboleh ubah adalah jenis data "Integer" | ||
| 3 | vbLong | Nilai pemboleh ubah adalah jenis data "Panjang" | ||
| 4 | vbSingle | Nilai pemboleh ubah adalah jenis data "Tunggal" | ||
| 5 | vb ganda | Nilai pemboleh ubah adalah jenis data "Double" | ||
| 6 | vb Mata Wang | Nilai pemboleh ubah adalah jenis data "Mata Wang" | ||
| 7 | vbTarikh | Nilai pemboleh ubah adalah jenis data "Tarikh" | ||
| 8 | vbString | Nilai pemboleh ubah adalah jenis data "String" | ||
| 9 | vbObjek | Nilai pemboleh ubah adalah jenis data "Objek" | ||
| 10 | ralat | Nilai pemboleh ubah adalah Nilai Ralat | ||
| 11 | vbBoolean | Nilai pemboleh ubah adalah jenis data "Boolean" | ||
| 12 | vbVariant | Nilai pemboleh ubah adalah jenis data "Varian" (hanya digunakan dengan susunan varian) | ||
| 13 | vbDataObject | Nilai pemboleh ubah adalah Objek Akses Data | ||
| 14 | vb Perpuluhan | Nilai pemboleh ubah adalah jenis data "Perpuluhan" | ||
| 17 | vbBait | Nilai pemboleh ubah adalah jenis data "Byte" | ||
| 20 | vbLongLong | Nilai pemboleh ubah adalah jenis data “LONG LONG” (hanya berlaku pada platform 64-bit sahaja) | ||
| 36 | Jenis vbUserDefined | Nilai pemboleh ubah adalah jenis data "Ditentukan Pengguna" | ||
| 8192 | vbArray | Nilai pemboleh ubah adalah Array. |
Ok, sekarang kod kami telah menyatukan semula jenis data pemboleh ubah sebagai 8, iaitu, nama pemboleh ubah "MyVar" berisi jenis data "String".
Contoh # 2
Sekarang, lihat kod di bawah.
Kod:
Sub VarType_Example2 () Dim MyVar Set MyVar = ThisWorkbook MsgBox VarType (MyVar) End Sub
Mari jalankan kod ini dan lihat apa hasilnya.
Hasilnya adalah 9, yakni, variabel berisi jenis data "Objek" Ya, ini betul kerana, untuk pemboleh ubah "MyVar," kami telah menetapkan rujukan buku kerja "Buku Kerja Ini".
Contoh # 3
Sekarang, lihat kod di bawah.
Kod:
Sub VarType_Example3 () Dim MyVar MyVar = 32500 MsgBox VarType (MyVar) Akhir Sub
Ini akan mengembalikan hasilnya sebagai 2.
Kerana nombor 32500, yang diberikan pada pemboleh ubah, adalah nilai "Integer".
Sekarang saya akan menukar nilainya menjadi 40000 dan melihat hasilnya.
Kod:
Sub VarType_Example4 () Dim MyVar MyVar = 40000 MsgBox VarType (MyVar) Akhir Sub
Ini akan memberikan hasilnya sebagai 3.
Kerana nilai Integer berakhir pada 32767, jadi apa-apa di atas yang akan dianggap sebagai jenis data VBA LONG.
Sekarang saya akan memasukkan nombor dalam petikan ganda.
Kod:
Sub VarType_Example5 () Dim MyVar MyVar = "40000" MsgBox VarType (MyVar) Akhir Sub
Jalankan kod dan lihat hasilnya.
Kami mendapat hasilnya sebagai 8, iaitu jenis data String.
Ini kerana apa sahaja yang disediakan dalam kurungan akan dianggap sebagai pembolehubah String.
Perkara yang Perlu Diingat
- VARTYPE bermaksud "Jenis Berubah."
- Jenis Data diwakili oleh nombor unik jadi rujuk jadual untuk memahami nombor mana yang mewakili jenis data pemboleh ubah yang mana.
