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

Dari soal diatas anda diminta untuk mengisi tabel dibawah ini.

Penyelesaian

1. Buka file “Fungsi Intrinsik.xlsx”
2. Tambahkan Module1
3. 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

4. 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 😀