excelive - kumpulan artikel dan tutorial excel: Custom Function

New Posts

Post Top Ad

Your Ad Spot
Tampilkan postingan dengan label Custom Function. Tampilkan semua postingan
Tampilkan postingan dengan label Custom Function. Tampilkan semua postingan

Berhitung dengan InputBox dan Custom Function

26.8.17 0
berhitung

Syarat utama yang diminta oleh Microsoft Excel dalam memulai sebuah hitungan (baca:mengolah angka) adalah harus mengawalinya dengan sebuah simbol sama dengan (=) untuk setiap masukan. Maka secara otomatis ia akan dibaca sebagai sebuah fungsi yang akan diolah sesuai dengan apa yang ditulis oleh pengguna.

Sebagai contoh, ketika pengguna memasukkan sebuah nilai seperti =5*2 maka Microsoft Excel akan langsung mengolah angka-angka tersebut dan akan menghasilkan nilai 10, karena simbol * yang digunakan diantara angka-angka tersebut difungsikan sebagai perkalian. Hal ini pun sama berlakunya ketika seorang pengguna hendak menuliskan sebuah formula, seperti =SUM, =AVERAGE, dan lain sebagainya. Formula-formula tersebut akan berfungsi sebagaimana mestinya jika diawali dengan karakter sama dengan.

Formula Microsoft Excel memang sudah tersedia dan pengguna hanya tinggal memakainya saja sesuai dengan kaidah penulisan yang berlaku. Sementara jika ingin membuat sebuah Formula sendiri (Custom Function) maka seorang pengguna harus menentukan terlebih dahulu beberapa parameter yang dibutuhkan, yang mana hal ini bisa dilakukan dengan menggunakan Macro VBA.

Pembahasan mengenai Custom Function lain sudah pernah dibahas disini, silahkan kunjungi untuk memahami struktur dan cara membuatnya.

Untuk tutorial kali ini kita akan mencoba menggabungkan Custom Function dan InputBox untuk mengolah angka sederhana seperti contoh diatas, dan seperti yang sudah Anda ketahui, baik Custom Function dan InputBox sama-sama harus dibuat menggunakan Macro VBA. Jadi, silahkan Anda aktifkan terlebih dahulu jendela Microsoft Visual Basic Editor dengan cara menekan tombol Alt + F11 di keyboard Anda.

Setelah jendela VBE terbuka, tambahkan sebuah Module baru dan ketikkan baris kode berikut:
Function Hitung()
On Error Resume Next
Dim X As Double
Dim Y As Double

X = InputBox("Masukkan angka pertama", "Masukkan Nomor")
Y = InputBox("Masukkan angka kedua", "Masukkan Nomor")
Hitung = X * Y
End Function

Hitung merupakan sebuah nama dari Formula baru kita, dan usahakan nama dari formula ini tidak sama dengan nama-nama formula yang sudah ada di Microsoft Excel.
download

Penggunaan Formula baru ini cukup sederhana, yakni Anda tinggal mengetikkan =Hitung() di sebuah sel kemudian akhiri dengan tombol Enter untuk langsung menampilkan beberapa jendela InputBox, serta harus menggunakan nilai berupa angka agar operasi ini berhasil.
hitung dengan inputbox

Sekarang Anda sudah berhasil mempelajari bagaimana cara membuat hitungan sederhana dengan menggunakan Custom Function yang dikombinasikan dengan InputBox. Semoga belajar Macro VBA excel bersama excelive untuk edisi ini ada manfaatnya.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, see u next time.

Read More ...

Membuat Angka Acak Secara Statis

27.10.16
random number

Microsoft Excel telah menyediakan ratusan formula untuk digunakan dalam berbagai keperluan. Sebut saja formula SUM. Salah satu formula andalan dari pengguna Microsoft Excel ini digunakan untuk menjumlahkan isi data berupa angka dalam range tertentu.

Tentu saja formula SUM tidak bisa digunakan jika ingin mencari rata-rata suatu nilai, dan lain sebagainya. Hal ini karena setiap formula yang ada di Microsoft Excel memiliki fungsi yang berbeda antara satu dengan yang lainnya. Akan tetapi pengguna Excel bisa mengkombinasikan antar formula untuk menghasilkan nilai yang diinginkannya.

Salah satu fungsi Microsoft Excel yang akan dibahas dalam Tutorial kali ini adalah, formula RAND. Formula ini digunakan untuk menghasilkan nilai atau angka secara acak yang diistribusikan secara merata.

Menggunakan formula RAND, akan menghasilkan angka acak baru setiap kali terjadi perubahan di lembar kerja, yang mengakibatkan nilai yang dihasilkan tidak akan sama. Meskipun hal ini bisa diatasi dengan cara merubah terlebih dahulu metode penghitungan lembar kerja dari otomatis menjadi manual, yang bisa dirubah melalui menu Excel Option. Akan tetapi, konsekuensinya adalah setiap formula yang tertulis di lembar kerja tidak akan dihitung secara otomatis, dan pengguna harus menekan tombol F9 untuk melalukan hitungan secara manual.

Maka salah satu solusi untuk membuat angka acak secara statis meskipun terjadi perubahan di lembar kerja adalah dengan cara membuat Fungsi Kustom menggunakan Macro VBA.
  1. Tekan tombol pintas Alt + F11
  2. Buat sebuah Module baru, dan masukkan baris kode ke dalamnya
    Function Statis()
          Statis = Rnd()
    End Function
Untuk menggunakan fungsi kustom ini, ketik di sebuah sel seperti berikut
=Statis()
Maka, nilai acak akan dibuat dan tidak akan berubah meskipun terjadi perubahan di lembar kerja. Lihat tampilan berikut untuk melihat perbedaan formula kustom yang kita buat dengan formula bawaan Microsoft Excel


Untuk menghasilkan nilai acak secara statis antara 0 sampai dengan 100, maka tulis formula seperti berikut :
=INT(statis()*100))

Sekarang anda sudah berhasil membuat Custom Function untuk menampilkan angka acak secara statis. Semoga belajar Custom Function Macro VBA excel bersama excelive untuk edisi ini ada manfaatnya.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, bye.
Read More ...

Fungsi Kustom Macro VBA Menghilangkan Huruf Vokal

25.10.16
Membuat Teks Singkatan seperti SMS
Sebagian dari kita mungkin tanpa sengaja menggunakan bahasa-bahasa singkatan, terutama dalam hal pengiriman pesan pendek atau SMS. Entah hanya sekedar ingin mengikuti fenomena yang ada, atau mungkin malas untuk menggunakan tata bahasa yang benar sesuai dengan kaidah penulisan bahasa.

Dalam tips kali ini, saya mencoba untuk 'menghadirkan' nuansa tulisan pesan SMS. Hanya saja bukan menggunakan telepon genggam melainkan menggunakan Aplikasi Microsoft Excel, lebih tepatnya menggunakan sebuah fungsi yang dibuat menggunakan kode VBA.
  1. Seperti biasa, buka jendela Visual Basic Editor yang bisa diakses menggunakan tombol pintas Alt + F11
  2. Klik menu Insert, dan pilih Module untuk membuat sebuah modul baru
  3. Masukkan baris kode berikut ke dalam module yang baru Anda buat
    Function NoVocal(Txt) As String
    Dim i As Long
    NoVocal = ""
    For i = 1 To Len(Txt)
    If Not UCase(Mid(Txt, i, 1)) Like "[AEIOU]" Then
    NoVocal = NoVocal & Mid(Txt, i, 1)
    End If
    Next i
    End Function
  4. Tutup atau minimize jendela Visual Basic Editor
Untuk mengaplikasikan fungsi kustom yang sudah kita buat menggunakan Macro VBA di atas, adalah dengan cara :
  1. Ketik beberapa kata atau kalimat di sembarang sel, sebagai contoh ketik kata 'Selamat Datang' di sel A1
  2. Di sel B1 (atau terserah mau di letakkan di mana hasil singkatan) ketikkan sebuah fungsi seperti berikut
    =NoVocal(A1)
  3. Akhiri dengan menekan tombol Enter atau klik sel lain untuk melihat hasilnya
Lihat hasil akhir dari fungsi kustom yang sudah kita terapkan dalam lembar kerja Microsoft Excel berikut :
membuat singkatan dengan macro VBA
Read More ...

Post Top Ad

Your Ad Spot