Membuat Custom Formula atau Rumus Excel dengan menggunakan Macro Excel (VBA)

haloooo.... kali ini saya akan menulis cara membuat custom formula excel dengan VBA..

sudah pada bisa aktifasi Excel Macro (VBA) nya ya.. kalo belom bisa.. bisa di cek disini >> http://m-aybs.blogspot.co.id/2017/01/cara-meng-aktifkan-excel-macro-dan.html

oke.. langsung saja.. kali ini saya akan membaeri contoh menggabungkan kata antara range satu dengan yang lainnya.. sebenernya excel sudah menyediakan functionnya bisa menggunakan

• CONCATENATE

=CONCATENATE(B2,B3,B4,B5,B6)

• FORMULA &

=B2&B3&B4&B5&B6

tetapi kali ini saya akan memberi contoh dengan macro excel.

• pertama - tama buka VBA editor dan tambahkan module baru

sampai muncul seperti ini..


dan tuliskan coding (copy, paste) berikut:

       

Option Explicit

Public Function GABUNG_KATA(ByVal rngs As Range, Optional ByVal delimiter As String = "") As String
 Dim rng As Range, strOut As String, delim As String

 For Each rng In rngs
  strOut = strOut & delim & rng.Text
  delim = delimiter
 Next

 GABUNG_KATA = strOut
End Function

       
 

seperti pada gambar:

sekarang tinggal panggil di sheet excel nya..


atau dengan menggunakan delimiter

atau

berikut video tutorial nya..
oke sekian dulu ya..
Semoga bermanfaat.. #HappyCoding #ExcelSakti