Fungsi VBA VARTYPE

Fungsi VarType VBA Excel

VBA VARTYPE berarti "Jenis Variabel". Fungsi ini membantu kita untuk 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 ditugaskan ke variabel, maka di sini kita memiliki fungsi VBA "VarType".

Contoh

Anda dapat mendownload Template Excel VBA VARTYPE ini di sini - Template VBA VARTYPE Excel

Contoh 1

Di VBA saat menulis kode, kami biasanya mendeklarasikan variabel dan menetapkan tipe data padanya. Untuk contoh 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", jadi dengan menggunakan fungsi VarType kita dapat menemukan tipe data dari variabel.

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 kode 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.

NilaiKonstanDeskripsi
0vbEmptyVariabel belum diinisialisasi
1vbNullTidak ada data yang valid yang diberikan
2vbIntegerNilai variabelnya adalah tipe data "Integer"
3vbLongNilai variabelnya adalah tipe data "Long"
4vbSingleNilai variabelnya adalah tipe data "Tunggal"
5vbDoubleNilai variabelnya adalah tipe data "Double"
6vbCurrencyNilai variabelnya adalah tipe data "Mata Uang"
7vbDateNilai variabelnya adalah tipe data "Tanggal"
8vbStringNilai variabelnya adalah tipe data "String"
9vbObjectNilai variabel adalah tipe data "Objek"
10vbErrorNilai variabelnya adalah Nilai Kesalahan
11vbBooleanNilai variabel adalah tipe data "Boolean"
12vbVariantNilai variabel adalah tipe data "Varian" (hanya digunakan dengan larik varian)
13vbDataObjectNilai variabel adalah Objek Akses Data
14vbDecimalNilai variabel adalah tipe data "Desimal"
17vbByteNilai variabelnya adalah tipe data "Byte"
20vbLongLongNilai variabelnya adalah tipe data "LONG LONG" (hanya valid di platform 64-bit)
36vbUserDefinedTypeNilai variabel adalah tipe data "Buatan Pengguna"
8192vbArrayNilai variabelnya adalah Array

Ok, sekarang kode kita telah menyetel kembali tipe data variabel menjadi 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 variabel yaitu yang berisi tipe data “Objek”. Ya, ini benar karena untuk variabel "MyVar" kami telah menetapkan 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 ditetapkan 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 mendapat 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-angka unik jadi lihat tabel untuk memahami angka mana yang mewakili tipe data variabel mana.