Fungsi VarType VBA Excel
VBA VARTYPE berarti "Jenis Variabel". Fungsi ini membantu kita mengidentifikasi tipe data yang ditugaskan ke variabel tertentu atau dengan kata sederhana kita dapat mengatakannya menemukan jenis nilai apa yang disimpan atau ditugaskan ke variabel.
Sintaksis
VarName: Kita hanya perlu memberikan nama variabel untuk menemukan data yang disimpan dalam nama variabel yang disediakan.
Jadi, ini mengambil nama variabel sebagai sintaks atau argumen, dan dalam output, ia mengembalikan tipe data yang ditugaskan ke variabel atau jenis data yang disimpan dalam variabel.
Jadi, jika Anda pernah bertanya-tanya bagaimana menemukan tipe data variabel atau jenis data yang ditetapkan ke variabel, maka di sini kita memiliki fungsi VBA "VarType".
Contoh
Contoh 1
Di VBA, saat menulis kode, kami biasanya mendeklarasikan variabel dan menetapkan tipe datanya. Misalnya, lihat kode VBA di bawah ini.
Kode:
Sub VarType_Example () Redupkan MyVar Sebagai String MyVar = "Halo" Akhiri Sub
Dalam contoh di atas, kami telah mendeklarasikan variabel sebagai "String", dan untuk string ini, kami telah menetapkan nilai sebagai "Halo".
Ini adalah kasus langsung, tetapi dimungkinkan juga untuk mendeklarasikan variabel tanpa menugaskan variabel ke dalamnya, jadi dalam kasus seperti itu, fungsi VarType membantu kita.
Kode:
Sub VarType_Example () Redupkan MyVar MyVar = "Halo" Akhiri Sub
Dalam kode di atas, kita belum menetapkan tipe data apa pun tetapi langsung menetapkan nilainya sebagai "Halo," sehingga dengan menggunakan fungsi VarType, kita dapat menemukan tipe data dari variabel tersebut.
Buka MSGBOX dalam pengkodean VBA pada kode di atas.
Kemudian buka fungsi VarType.
Sekarang masukkan nama variabel sebagai argumen dari fungsi VARTYPE.
Kode:
Sub VarType_Example () Dim MyVar MyVar = "Halo" MsgBox VarType (MyVar) End Sub
Sekarang jalankan kodenya dan lihat apa yang kita dapatkan di kotak pesan.
Kami mendapat hasil sebagai 8 karena VBA memiliki kode tertentu untuk setiap jenis tipe data variabel, jadi di bawah ini adalah daftar terperinci untuk Anda.
| Nilai | Konstan | Deskripsi | ||
| 0 | vbEmpty | Variabel belum diinisialisasi | ||
| 1 | vbNull | Tidak ada data yang valid yang diberikan | ||
| 2 | vbInteger | Nilai variabelnya adalah tipe data "Integer" | ||
| 3 | vbLong | Nilai variabelnya adalah tipe data "Long" | ||
| 4 | vbSingle | Nilai variabelnya adalah tipe data "Tunggal" | ||
| 5 | vbDouble | Nilai variabelnya adalah tipe data "Double" | ||
| 6 | vbCurrency | Nilai variabelnya adalah tipe data "Mata Uang" | ||
| 7 | vbDate | Nilai variabelnya adalah tipe data "Tanggal" | ||
| 8 | vbString | Nilai variabelnya adalah tipe data "String" | ||
| 9 | vbObject | Nilai variabel adalah tipe data "Objek" | ||
| 10 | vbError | Nilai variabelnya adalah Nilai Kesalahan | ||
| 11 | vbBoolean | Nilai variabelnya adalah tipe data "Boolean" | ||
| 12 | vbVariant | Nilai variabel adalah tipe data "Varian" (hanya digunakan dengan larik varian) | ||
| 13 | vbDataObject | Nilai variabel adalah Objek Akses Data | ||
| 14 | vbDecimal | Nilai variabel adalah tipe data "Desimal" | ||
| 17 | vbByte | Nilai variabelnya adalah tipe data "Byte" | ||
| 20 | vbLongLong | Nilai variabelnya adalah tipe data "LONG LONG" (hanya valid di platform 64-bit) | ||
| 36 | vbUserDefinedType | Nilai variabelnya adalah tipe data "Buatan Pengguna" | ||
| 8192 | vbArray | Nilai variabelnya adalah Array. |
Ok, sekarang kode kita telah menyetel kembali tipe data variabel sebagai 8, yaitu, nama variabel “MyVar” berisi tipe data “String”.
Contoh # 2
Sekarang, lihat kode di bawah ini.
Kode:
Sub VarType_Example2 () Redupkan MyVar Set MyVar = ThisWorkbook MsgBox VarType (MyVar) End Sub
Mari kita jalankan kode ini dan lihat apa hasilnya.
Hasilnya adalah 9, yaitu variabel yang memuat tipe data “Objek”. Ya, ini benar karena, untuk variabel "MyVar", kami telah menyetel referensi buku kerja "Buku Kerja Ini".
Contoh # 3
Sekarang, lihat kode di bawah ini.
Kode:
Sub VarType_Example3 () Redup MyVar MyVar = 32500 MsgBox VarType (MyVar) End Sub
Ini akan mengembalikan hasil sebagai 2.
Karena angka 32500, yang ditugaskan ke variabel, adalah nilai "Integer".
Sekarang saya akan mengubah nilainya menjadi 40000 dan melihat hasilnya.
Kode:
Sub VarType_Example4 () Redupkan MyVar MyVar = 40000 MsgBox VarType (MyVar) End Sub
Ini akan memberikan hasil sebagai 3.
Karena nilai Integer diakhiri pada 32767, jadi apa pun di atas yang akan diperlakukan sebagai tipe data VBA LONG.
Sekarang saya akan mengapit angka dalam tanda kutip ganda.
Kode:
Sub VarType_Example5 () Redupkan MyVar MyVar = "40000" MsgBox VarType (MyVar) End Sub
Jalankan kodenya dan lihat hasilnya.
Kami mendapatkan hasil sebagai 8, yaitu tipe data String.
Ini karena apa pun yang disertakan dalam tanda kurung akan diperlakukan sebagai variabel String.
Hal-hal untuk diingat
- VARTYPE adalah singkatan dari "Variable Type".
- Tipe Data diwakili oleh angka unik jadi lihat tabel untuk memahami angka mana yang mewakili tipe data variabel mana.
