Membuat Program Kalkulator Dengan Macro Excel

Sekarang saya akan sedikit membahas bagaimana cara membuat program kalkulator sederhana dengan MS. Excel, dengan fitur Makro Excel yang sudah ada.

Mari kita mulai, cekidooot.............(belum ada gambarnya #menyusul)hehehe

Buatlah tampilan awalnya seperti berikut.

Untuk Membuat Macronya Ketik Alt+F8, maka akan muncul seperti ini.

Klik Create, Maka akan muncul Jendela VBE-nya.

Untuk menampilkan Formnya pada lembar kerja Excel ketikkan codding “UserForm1.show” seperti berikut.

Lalu Klik 2x pada form nya, lalu ketikkan codingan seperti di bawah ini :

Private Sub Frame1_Click()

End Sub

Private Sub Label14_Click()

End Sub

Private Sub UserForm_Click()

Dim var1 As Single, var2 As Single

Dim hasil As Single

End Sub

Private Sub Form_Load()

    TextBox1.Text = ""

    TextBox2.Text = ""

    Label3.Caption = ""

End Sub

Private Sub OptionButton1_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = var1 + var2

    Label3.Caption = hasil

End Sub

Private Sub OptionButton2_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = var1 - var2

    Label3.Caption = hasil

End Sub

Private Sub OptionButton3_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = var1 * var2

    Label3.Caption = hasil

End Sub

Private Sub OptionButton4_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = var1 / var2

    Label3.Caption = hasil

End Sub

Private Sub OptionButton5_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = var1 & var2

    Label3.Caption = hasil

End Sub

Private Sub OptionButton6_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = (var1 > var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton7_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = (var1 < var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton8_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = (var1 = var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton10_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = (var1 >= var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton11_Click()

    var1 = TextBox1.Text

    var2 = TextBox2.Text

    hasil = (var1 <= var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton12_Click()

    var1 = IIf(TextBox1.Text = "True", -1, 0)

    hasil = Not (var1)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton13_Click()

    var1 = IIf(TextBox1.Text = "True", -1, 0)

    var2 = IIf(TextBox2.Text = "True", -1, 0)

    hasil = (var1 Or var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Private Sub OptionButton14_Click()

    var1 = IIf(TextBox1.Text = "True", -1, 0)

    var2 = IIf(TextBox2.Text = "True", -1, 0)

    hasil = (var1 And var2)

    Label3.Caption = Format(hasil, "True/False")

End Sub

Lalu keluar dari jendela VBE dan kembali ke lembar kerja microsot excel.

Agar program yang kita buat tadi dapat ditampilkan klik kanan pada gambar kalkulatornya lalu pilih Assign macro

Maka akan muncul seperti ini lalu pilih nama macronya klik OK.

Coba jalankan dengan cara mengklik gambarnya, maka akan muncul seperti berikut.

Renungan Kala Senja

Saat ku terdiam ku berfikir

Kenapa semua yang ku jalani tak sesuai dengan inginku

Kenapa hidup kadang tak sependapat dengan ku

Mungkin hidup memusuhiku

Di hening senja ini sejenak ku berfikir

Hidup ini terlalu indah tuk di sesali

Hidup ini terlalu indah tuk di maki

Hanya karena ku yang tak bisa mengerti akan semua ini

Dan saat ku merenungkan semuanya,

Mungkin  ini yang sedang sang kuasa siapkan

Agar menjadi yang terbaik kelak

Ku hanya bisa berdoa

Creted by : Rivan Agusta