ENUM adalah bentuk ringkas untuk penghitungan, hampir di setiap bahasa pengaturcaraan, kita mempunyai penghitungan, ada yang ditentukan sebelumnya dan sebilangannya adalah penghitungan yang ditentukan pengguna, seperti dalam VBA Vbnewline adalah penghitungan dan kita dapat membuat penghitungan kita sendiri menggunakan pernyataan ENUM.
Penghitungan VBA (Jumlah)
Kami biasanya menyatakan pemboleh ubah dan memberikan jenis data kepada mereka. Jenis data umum yang kami gunakan adalah "Integer, Long, Single, Double, Varian, and String". Tetapi kami mempunyai satu lagi jenis data iaitu VBA "Enum". Anda mesti memikirkan apa ini dan kelihatan aneh, tetapi untuk menghilangkan keraguan anda, kami memaparkan artikel ini mengenai "Penghitungan VBA"
Apa itu VBA Enum?
"Enum" bermaksud Penghitungan. Enum adalah jenis pemboleh ubah seperti rentetan atau bilangan bulat kita atau jenis data lain tetapi di sini kita membuat elemen senarai menggunakan pernyataan Enum Excel VBA. Penghitungan bermaksud "tindakan menyebut beberapa perkara satu persatu".
Dalam Excel VBA Enum adalah jenis yang mengandungi penghitungan pemalar. Penghitungan membuat senarai item dan membuatnya dalam satu kumpulan. Contohnya jenis telefon bimbit: "Redmi, Samsung, Apple, Vivo, Oppo".
Dengan menggunakan penghitungan, kita dapat mengumpulkan semuanya dengan satu nilai. Enum boleh digunakan sebagai pemboleh ubah dalam VBA dan ia adalah jenis data pemboleh ubah berangka LONG.
Formula VBA Enum
Sekiranya anda tidak memahami apa-apa, jangan bimbang anda akan perlahan-lahan mengetahuinya. Sekarang lihat formula VBA Enum.
Enum GroupName Member1 = [Long] Member2 = [Long] Member3 = [Long] Member4 = [Long] Member5 = [Long] End Enum
Seperti yang saya katakan pada awalnya Enum boleh digunakan sebagai pemboleh ubah dan ia adalah jenis data pemboleh ubah berangka Long.
Contoh VBA Enum
Sebelum saya memulakan contoh Enum, saya akan menunjukkan contoh "Tetap" di VBA. Constant juga merupakan kata yang digunakan untuk menyatakan pemboleh ubah dalam VBA.
Lihat kod di bawah.
Kod:
Option Explicit Const Samsung = 15000 Const VIVO = 18000 Const Redmi = 8500 Const Oppo = 18500 Sub Enum_Contoh1 () End Sub
Saya telah menyatakan pemboleh ubah di bahagian atas modul dengan menggunakan kata Const.
Const Samsung = 15000
Const VIVO = 18000
Const Redmi = 8500
Const Oppo = 18500
Sekarang saya tahu semua pemboleh ubah ini adalah ahli kumpulan Mobile. Sekiranya saya ingin menggunakan pemboleh ubah ini katakanlah "Vivo" dalam modul.
Kod:
Sub Enum_Contoh1 () V Akhir Sub
Semasa saya memulakan watak "v" saya dapat melihat banyak perkara lain dari VBA yang bercampur dengan mereka adalah perkara yang bermula dengan huruf "v".
Di sinilah gambar "Enumerasi" VBA masuk ke dalam gambar.
Untuk pemahaman yang lebih baik mari cuba menukar warna latar belakang sel.
Kod:
Sub Enum_Contoh1 () AcriveCell.Interior.Color = RGB Akhir Sub
Seperti yang anda lihat dalam kod di atas kita dapat melihat semua warna RGB yang terdapat di VBA. Ini semua pemalar dengan nama yang indah dengannya.
Sebenarnya, semua warna RGB ini adalah sebahagian dari penghitungan keluarga yang disebut " xlRGBColor ".
Kod:
Sub Enum_Contoh1 () AcriveCell.Interior.Color = xlrg End Sub
Dengan menggunakan penghitungan VBA ini, saya dapat mengakses semua ahli kumpulan penghitungan ini.
Kod:
Sub Enum_Contoh1 () AcriveCell.Interior.Color = XlRgbColor. Sub Akhir
Seperti yang dapat kita lihat pada gambar di atas, kita hanya melihat kombinasi warna yang lain. Inilah gambaran keseluruhan ringkas mengenai "VBA Enum".
Ok, sekarang kita akan kembali kepada contoh asal ahli kumpulan Bergerak kami. Seperti bagaimana kita telah melihat ahli kumpulan warna RGB sama, kita dapat menyatakan pemboleh ubah dengan menggunakan pernyataan VBA Enum.
Kod:
Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Contoh1 () End Sub
Sekarang saya telah menyatakan semua jenama mudah alih di bawah kumpulan "Mobiles" dengan menggunakan pernyataan "Enum".
Dengan menggunakan nama kumpulan "Mobiles" sekarang saya dapat mengakses semua jenama ini dalam modul.
Kod:
Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Contoh1 () Mob End Sub
Pilih kumpulan dan letakkan titik untuk melihat semua ahli kumpulan.
Lihatlah kita hanya dapat melihat ahli kumpulan kumpulan "Mobiles" tidak lain. Ini adalah bagaimana kita dapat menggunakan Penghitungan VBA untuk mengelompokkan senarai item di bawah satu bumbung.
Menggunakan Pembolehubah Penghitungan VBA untuk Menyimpan Data
Mari kita lihat contoh mudah menggunakan pemboleh ubah Enum yang dinyatakan. Nyatakan nama kumpulan Enum sebagai "Jabatan" dan tambahkan nama jabatan sebagai ahli kumpulan.
Kod:
Enum Mobiles Finance = 150000 HR = 218000 Sales = 458500 Marketing = 718500 End Enum Sub Enum_Contoh1 () End Sub
Saya telah menyatakan nombor gaji setiap jabatan di hadapan mereka.
Sekarang kita akan menyimpan nilai-nilai nombor ini ke excel sheet. Sebelum menggunakan kod buat jadual seperti di bawah.
Sekarang kembali ke editor asas visual dan rujuk sel B2 dengan menggunakan objek RANGE .
Kod:
Sub Enum_Contoh1 () Julat ("B2"). Nilai = Sub Akhir 
Di sel A2 kita mempunyai jabatan Kewangan dan begitu juga di sel B2, kita akan menyimpan gaji jabatan ini. Oleh itu, akses pertama nama kumpulan " Jabatan ".
Kod:
Sub Enum_Contoh1 () Julat ("B2"). Nilai = Sub Akhir Depan 
Sekarang dalam kumpulan ini, kita hanya dapat melihat nama jabatan yang dinyatakan .
Kod:
Sub Enum_Contoh1 () Julat ("B2"). Nilai = Jabatan. Sub Akhir
Pilih nama jabatan " Kewangan ".
Kod:
Sub Enum_Contoh1 () Julat ("B2"). Nilai = Jabatan. Sub Akhir Kewangan 
Begitu juga, untuk semua sel lain pilih nama jabatan masing-masing.
Kod:
Sub Enum_Contoh1 () Julat ("B2"). Nilai = Jabatan. Julat Kewangan ("B3"). Nilai = Jabatan. Julat HR ("B4"). Nilai = Jabatan. Julat Pemasaran ("B5"). Nilai = Jabatan .Jualan Akhir Sub 
Run this VBA code we will get the assigned salary amount for these departments.
This is how we can use VBA Enum.
You can download this VBA Enum Excel here. VBA Enum Excel Template
