Membuat Aplikasi Kalkutalor Sederhana dengan Excel

Membuat Aplikasi Kalkulator Sederhana dengan excel

Untuk membuat Aplikasi Kalkulator pada microsoft excel sangatlah mudah, ikutilah langkah-langkah berikut :

Aplikasi Kalkulator Excel

1. Buatlah sebuah userform dan ganti captionnya dengan "Aplikasi Kalkulator
2. Buatlah tiga buah textbox
3. buatlah tiga buah label, label1 ganti captionnya dengan "Nilai 1", Label2 ganti captionnya dengan "Nilai 2" dan Label3 ganti captionnya dengan "Hasilnya"
4. 
   
5. Buatlah 4 buah commandbutton, commandbutton1 ganti captionnya dengan "Tambah", commandbutton2 ganti captionnya dengan "Kurang" commandbutton3 ganti captionnya dengan "Bagi", dan commandbutton4 ganti captionnya dengan "Kali" sehingga tampilan pada userform seperti gambar berikut:
6. Kemudian Masukan Kode berikut :

Private Sub CommandButton1_Click()

If Not IsNumeric(TextBox1.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

If Not IsNumeric(TextBox2.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)

End Sub

Private Sub CommandButton2_Click()

If Not IsNumeric(TextBox1.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

If Not IsNumeric(TextBox2.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

TextBox3.Value = CDbl(TextBox1.Value) - CDbl(TextBox2.Value)

End Sub

Private Sub CommandButton3_Click()

If Not IsNumeric(TextBox1.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

If Not IsNumeric(TextBox2.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

TextBox3.Value = CDbl(TextBox1.Value) / CDbl(TextBox2.Value)

End Sub

Private Sub CommandButton4_Click()

If Not IsNumeric(TextBox1.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

If Not IsNumeric(TextBox2.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

TextBox3.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)

End Sub

kode untuk menolak apabila data yang diinput bukan angka

If Not IsNumeric(TextBox1.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

If Not IsNumeric(TextBox2.Value) Then

MsgBox "Nilai Harus Angka", vbCritical, "Help"

Exit Sub

End If

TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)

cdbl adalah kode yang harus disisipkan untuk membuat operasi hitung pada userform.

Demikian gambaran singkat untuk latihan membuat aplikasi kalkulator pakai microsoft excel. Jangan lupa untuk menyimpan filenya harus memilh dalam format macro atau berekstensi.Xlm.