Membuat Aplikasi Kalkulator di Excel

Pada kesempatan tutorial VBA excel kali ini kita akan belajar bersama-sama dengan bantuan ChatGPT untuk membuat aplikasi kalkulator sederhana.

Ketiikan perintah seperti di bawah ini pada chatGPT.

Buatkan script VBA Excel untuk membuat kalkulator sederhana

Hasil Jawaban dari ChatGPT:

Berikut adalah contoh script VBA untuk membuat kalkulator sederhana di Excel. Script ini akan membuat sebuah form dengan beberapa tombol (0-9, tambah, kurang, kali, bagi, sama dengan, dan clear) serta sebuah text box untuk menampilkan hasil perhitungan.

1. Buka Excel.
2. Tekan Alt + F11 untuk membuka VBA editor.
3. Klik Insert > UserForm untuk membuat form baru.
4. Tambahkan sebuah TextBox dan beberapa CommandButton ke form tersebut.
5. Atur Caption dari masing-masing CommandButton sesuai dengan fungsinya (misalnya, "1", "2", "+", "-", dsb).
6. Klik kanan pada form dan pilih View Code untuk menambahkan script VBA berikut:

Dim currentOperation As String
Dim firstNumber As Double
Dim secondNumber As Double
Dim result As Double

Private Sub CommandButton1_Click() ' Button 1
    TextBox1.Text = TextBox1.Text & "1"
End Sub

Private Sub CommandButton2_Click() ' Button 2
    TextBox1.Text = TextBox1.Text & "2"
End Sub

Private Sub CommandButton3_Click() ' Button 3
    TextBox1.Text = TextBox1.Text & "3"
End Sub

Private Sub CommandButton4_Click() ' Button 4
    TextBox1.Text = TextBox1.Text & "4"
End Sub

Private Sub CommandButton5_Click() ' Button 5
    TextBox1.Text = TextBox1.Text & "5"
End Sub

Private Sub CommandButton6_Click() ' Button 6
    TextBox1.Text = TextBox1.Text & "6"
End Sub

Private Sub CommandButton7_Click() ' Button 7
    TextBox1.Text = TextBox1.Text & "7"
End Sub

Private Sub CommandButton8_Click() ' Button 8
    TextBox1.Text = TextBox1.Text & "8"
End Sub

Private Sub CommandButton9_Click() ' Button 9
    TextBox1.Text = TextBox1.Text & "9"
End Sub

Private Sub CommandButton0_Click() ' Button 0
    TextBox1.Text = TextBox1.Text & "0"
End Sub

Private Sub CommandButtonAdd_Click() ' Button +
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "+"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonSubtract_Click() ' Button -
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "-"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonMultiply_Click() ' Button *
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "*"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonDivide_Click() ' Button /
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "/"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonEquals_Click() ' Button =
    secondNumber = CDbl(TextBox1.Text)
    Select Case currentOperation
        Case "+"
            result = firstNumber + secondNumber
        Case "-"
            result = firstNumber - secondNumber
        Case "*"
            result = firstNumber * secondNumber
        Case "/"
            result = firstNumber / secondNumber
    End Select
    TextBox1.Text = result
End Sub

Private Sub CommandButtonClear_Click() ' Button Clear
    TextBox1.Text = ""
    firstNumber = 0
    secondNumber = 0
    result = 0
    currentOperation = ""
End Sub

7. Tutup VBA editor dan kembali ke Excel.
8. Tekan Alt + F8, pilih UserForm yang telah Anda buat, dan klik Run untuk menjalankan kalkulator.

Sekarang Anda memiliki kalkulator sederhana di Excel yang dapat melakukan operasi penjumlahan, pengurangan, perkalian, dan pembagian.

Download Project File Kalkulator