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. Sebelumnya pasti kalian kaget kenapa bisa kalkulator di ms. Excel,
nah maka dari itu mari kita liat bagaiman kodingan untuk membuat kalkulator
sederhana di Microsoft Excel.
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 kemudian nanti akan muncul
gambar dan kalian tekan OK.
Demikian penjelasan tentang
kalkulator sederhana yg dapat saya tampilkan disini semoga bermanfaat bagi
kalian semua, barakallah..wasalamualaikum .. :-).
0 comments:
Post a Comment