Kalkulator Hitung Sederhana Ala Microsoft Excel

Pekerjaan menghitung atau mengolah angka didalam Microsoft Excel merupakan fungsi utama dari aplikasi ini, dimana seorang user dapat dengan mudah memasukkan nilai-nilai di dalam lembar kerja Microsoft Excel kemudian memasukkan formula hitung seperti SUM, AVERAGE, dan lainnya untuk menghasilkan nilai yang diinginkannya.

Dengan kata lain, lembar kerja Microsoft Excel bisa dikatakan seperti sebuah kalkulator yang canggih yang mampu menghitung serta mengolah data-data yang sangat kompleks yang tidak bisa dilakukan oleh sebuah kalkulator.

Berbicara tentang kalkulator, seorang user (baca programmer) sebenarnya dapat dengan mudah dan cepat memanggil aplikasi kalkulator bawaan sistem operasi hanya menggunakan kode sederhana Macro VBA

Silahkan coba kode berikut jika Anda ingin memanggil aplikasi kalkulator

Shell "calc", vbNormalFocus

Namun jika Anda ingin membuat kalkulator sendiri menurut versi Anda, atau paling tidak ingin membuat kalkulator sesuai dengan apa yang akan dibahas di tutorial kali ini, maka siapkan terlebih dahulu beberapa bahan-bahan yang dibutuhkan, antara lain :

• 1 UserForm
• 2 TextBox, dan
• 4 CommandButton

Ok, langkah paling awal yang harus dilakukan setelah Anda membuka Aplikasi Microsoft Excel adalah dengan mengaktifkan jendela Microsoft Visual Basic Editor (VBE) yang dapat dengan mudah Anda akses menggunakan tombol pintas Alt + F11

Setelah jendela Microsoft VBE berhasil dibuka, maka buat terlebih dulu sebuah UserForm dengan cara klik menu Insert dan pilih menu UserForm


Berikutnya, silahkan tambahkan beberapa Controls di UserForm yang sudah dibuat sebelumnya seperti berikut

Anda bisa juga mengganti tulisan (caption) dari tombol CommandButton seperti simbol +, -, dan X untuk memudahkan pengoperasiannya nanti.

Loading...

Untuk menuliskan kode VBA, Anda tinggal klik ganda Control berikut, tuliskan kodenya di jendela penulisan kode :

• Tombol C
  

  TextBox1 = vbNullString
  TextBox2 = vbNullString
  TextBox1.SetFocus

• Tombol +
  

  If TextBox2 = vbNullString Then
  TextBox2 = TextBox1
  TextBox1 = vbNullString
  TextBox1.SetFocus
  Else
  TextBox2 = Val(TextBox2) + Val(TextBox1)
  TextBox1 = vbNullString
  TextBox1.SetFocus
  End If

• Tombol -
  

  If TextBox2 = vbNullString Then
  TextBox2 = TextBox1
  TextBox1 = vbNullString
  TextBox1.SetFocus
  Else
  TextBox2 = Val(TextBox2) - Val(TextBox1)
  TextBox1 = vbNullString
  TextBox1.SetFocus
  End If

• Tombol x
  

  If TextBox1 = vbNullString Then
  TextBox1.SetFocus
  Else
  If TextBox2 = vbNullString Then
  TextBox2 = TextBox1
  TextBox1 = vbNullString
  TextBox1.SetFocus
  Else
  TextBox2 = Val(TextBox2) * Val(TextBox1)
  TextBox1 = vbNullString
  TextBox1.SetFocus
  End If
  End If
  

Setelah semua kode ditempatkan di setiap Control yang terdapat di UserForm, sekarang saatnya menjalankan kalkulator sederhana ala Excel.


Dapatkan file project tutorial ini, dan silahkan Anda modifikasi sesuai dengan selera Anda.
download

Loading...

Sekarang Anda sudah berhasil mempelajari bagaimana caranya membuat sebuah kalkulator sederhana dari beberapa tombol. selamat bereksperimen!. Semoga tutorial Macro VBA excel dari excelive untuk edisi ini membawa manfaat untuk semua.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, Adios.