Kalkulator Hitung Sederhana Ala Microsoft Excel

kalkulator sederhana ala 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
Memanggil applikasi kalkulator dengan VBA Excel

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
Membuat kalkulator sederhana ala Excel

Berikutnya, silahkan tambahkan beberapa Controls di UserForm yang sudah dibuat sebelumnya seperti berikut
excelive - kalkulator sederhana
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.
kalkulator ala excelive

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.

Tidak ada komentar:
Write komentar

Our Services


design

all the design of each tutorial has passed the test for excel 2007 up

installation

every each codes on this site are provided "as is" and are easy to install

youtube

in order to facilitate you in learning excel, you can visit our channel here

download

to complete all excel lessons, we have provided a download link for you

Contact Us


EXCELIVE.com
is a blogger resources site who provides
best excel tutorial based on daily needs.
The main mission of excelive is to share
our little experience in excel
to deliver best time killer for your excel issues.
Singhasari Malang 65153
East Java

end of page