Fungsi Intrinsik dalam VBA Excel
Fungsi intrinsik dalam VBA ini mirip seperti sebuah Function Prosedur (UDF) dimana fungsi ini akan melakukan sebuah tugas spesifik atau mengkalkulasikan dan mengembalikan sebuah nilai. Ada beberapa Fungsi Intrinsik yang dapat digunakan dalam pemrograman Visual Basic For Application (VBA). jika anda pernah menggunakan fungsi text left,mid, right dalam rumus excel, function intrinsik ini juga tidak jauh berbeda dengan VBA, hanya penulisanya saja yang agak berbeda. Function intrinsik dapat digunakan untuk manipulasi data Text (string) atau data tanggal, konversi satu data ke data lainya, atau melakukan operasi matematika.
Fungsi intrinsik untuk Konversi data
Berikut ini Contoh Fungsi Intrinsik yang sering digunakan dalam VBA Excel
- CCur(expr) : Menampilkan tipe data Currency dari ekspresi valid yang dituliskan
- CDbl(expr) : Menampilkan tipe data Double dari ekspresi valid yang dituliskan
- CDate(expr) : Menampilkan tipe data Date dari ekspresi valid yang dituliskan
- CInt(expr) : Menampilkan tipe data Integer dari ekspresi valid yang dituliskan
- CStr(expr) : Menampilkan tipe data String dari ekspresi valid yang dituliskan
- CSng(expr) : Menampilkan tipe data Single dari ekspresi valid yang dituliskan
- CVar(expr) : Menampilkan tipe data Variant dari ekspresi valid yang dituliskan
- CLng(expr) : Menampilkan tipe data Long dari ekspresi valid yang dituliskan
- Val(strexpr) : Menampilkan tipe data Numeric dari ekspresi valid yang dituliskan (karakter string)
Fungsi Intrinsik untuk Evaluasi
Beberapa Fungsi intrinsic juga dapat kita gunakan untuk menghasilkan informasi dari ekspresi atau statement yang kita tuliskan. Kita dapat gunakan ekspresi ini untuk cek suatu nilai atau data.
- IsNumeric(expr) : Mengembalikan sebuah nilai BOOLEAN yang menunjukan apakah ekspresi dapat diartikan sebagai nilai numeric
- IsNull(Expr) : Mengembalikan sebuah nilai BOOLEAN yang menunjukan apakah ekspresi adalah null (0)
- IsDate(expr) : Mengembalikan sebuah nilai BOOLEAN yang menunjukan apakah ekspresi dapat diartikan sebagai data tanggal
- IsEmpty(expr) : Mengembalikan sebuah nilai BOOLEAN yang menunjukan apakah ekspresi, sebuah variable bertipe variant
- IsMissing(argname) : Mengembalikan sebuah nilai BOOLEAN yang menunjukan apakah argument variant telah lulus pada sebuah prosedur.
Fungsi intrinsik untuk Manipulasi text
Anda juga dapat menggunaka fungsi ini untuk Manipulasi data text (string), berikut ini adalah fungsi yang sering digunakan.
- FormatDateTime(DateExpr[,Format]) : Mengembalikan ekpresi ke dalam format data tanggal atau jam
- Format(numExpr|strexpr1, strexpr1) : Mengembalikan Sebuah nilai Variant termasuk data numeric atau karakter
- LCase(strexpr) : Mengembalikan sebuah nilai variant dengan mengkonversi menjadi huruf kecil
- UCase(strexpr) : Mengembalikan sebuah nilai variant dengan mengkonversi menjadi huruf besar
- Trim(strexpr) : Mengembalikan sebuah nilai variant dengan menghapus seluruh spasi dalam data text atau numeric
- Left((strexpr,numexpr) : Mengembalikan sebuah nilai variant dengan mengambil data dari kiri
- Mid(strexpr,numexpr1,numexpr2) : Mengembalikan sebuah nilai variant dengan mengambil data dari tengah
- Right(strexpr,numexpr) : Mengembalikan sebuah nilai variant dengan mengambil data dari kanan
- Replace(strexpr) : Mencari text dan mereplace (merubah) dengan nilai yang ada pada ekpresi yang dituliskan.
Contoh Penggunaan
Di sebuah pabrik sparepart mobil terdapat kode sparepart yang masing-masing karakter mereferensikan sebuah informasi. Berikut ini adalah table referensi kode spareparts
Posisi karakter | Informasi |
1 | Negara |
2 | Jenis sparepart |
3 dan 4 | Model |
11 | Tahun |
12 | Warna |
17 | Klasifikasi |
Dari soal diatas anda diminta untuk mengisi tabel dibawah ini.
Penyelesaian
- Buka file “Fungsi Intrinsik.xlsx”
- Tambahkan Module1
- Tuliskan Prosedur Berikut ini
Option Explicit Sub Kode_spareparts() Dim strKOde As String Dim strTahun As String Dim strJenis As String Dim strModel As String Dim strWarna As String Dim strNegara As String Dim strKlasifikasi As String Range("A2").Select strKOde = ActiveCell.Value strTahun = Mid(strKOde, 11, 1) strJenis = Mid(strKOde, 2, 1) strModel = Mid(strKOde, 3, 2) strWarna = Mid(strKOde, 12, 1) strNegara = Left(strKOde, 1) strKlasifikasi = Right(strKOde, 1) With ActiveCell .Offset(0, 1).Value = strTahun .Offset(0, 2).Value = strJenis .Offset(0, 3).Value = strModel .Offset(0, 4).Value = strWarna .Offset(0, 5).Value = strNegara .Offset(0, 6).Value = strKlasifikasi End With End Sub
- Jalankan dengan Run Program atau Shortcut F5.
Hasil dari prosedur diatas dapat anda lihat seperti dibawah ini.
Anda dapat mencoba fungsi-fungsi intrinsik diatas sesuai dengan kebutuhan, ada banyak sekali latihan yang dapat kita gunakan dalam soal kasus menggunakan fungsi ini, untuk mengambil data tanggal, bulan, tahun, atau yang lainya. untuk contoh kasus lainya akan kami tuliskan kembali di latihan berikutnya.
terimakasih,,,semioga bermanfaat 😀