How to Create a Calculator Using Excel VBA| Full Tutorial

💡 Source Code Dim fval As String, sval As String, mathsign As Byte, check As Boolean, cntrl As Control Const calcpath As String = "The direction of the pictures\" Private Sub UserForm_Activate() Dim bpic As Byte, rpic As Byte rpic = WorksheetFunction.RandBetween(1, 4) With Me .PictureSizeMode = fmPictureSizeModeStretch .Picture = LoadPicture(calcpath + "Picture " & rpic & ".jpg") End With With CalBackground For bpic = 1 To 4 .AddItem "Picture " & bpic Next bpic End With End Sub Sub Btn_Click_Res() If caltext.Value = 0 Then caltext.Value = Right(ActiveControl.Name, 1) Else: caltext.Value = caltext.Value + Right(ActiveControl.Name, 1) End If End Sub Private Sub btn0_Click() Call Btn_Click_Res End Sub Private Sub btn1_Click() Call Btn_Click_Res End Sub Private Sub btn2_Click() Call Btn_Click_Res End Sub Private Sub btn3_Click() Call Btn_Click_Res End Sub Private Sub btn4_Click() Call Btn_Click_Res End Sub Private Sub btn5_Click() Call Btn_Click_Res End Sub Private Sub btn6_Click() Call Btn_Click_Res End Sub Private Sub btn7_Click() Call Btn_Click_Res End Sub Private Sub btn8_Click() Call Btn_Click_Res End Sub Private Sub btn9_Click() Call Btn_Click_Res End Sub Private Sub CalBackground_Change() Me.Picture = LoadPicture(calcpath + CalBackground.Text & ".jpg") End Sub Private Sub clearsign_Click() caltext.Value = 0 End Sub Private Sub divisionsign_Click() fval = caltext.Value caltext.Value = caltext.Value + "/" check = 1 mathsign = 4 End Sub Private Sub leftsign_Click() If caltext.Value ◀▶ "" And Len(caltext.Value) ▶ 1 Then caltext.Value = Left(caltext.Value, _ Len(caltext.Value) - 1) Else: caltext.Value = 0 End Sub Private Sub minussign_Click() fval = caltext.Value caltext.Value = caltext.Value + "-" check = -1 mathsign = 2 End Sub Private Sub multiplicationsign_Click() fval = caltext.Value caltext.Value = caltext.Value + "*" check = -1 mathsign = 3 End Sub Private Sub percentsign_Click() caltext.Value = Val(caltext.Value) / 100 End Sub Private Sub plussign_Click() fval = caltext.Value caltext.Value = caltext.Value + "+" check = -1 mathsign = 1 End Sub Private Sub Equalsign_Click() If check = -1 Then sval = caltext.Value If mathsign = 1 Then sval = Replace(Replace(sval, "+", ""), fval, "") caltext.Value = Val(fval) + Val(sval) ElseIf mathsign = 2 Then sval = Replace(Replace(sval, "-", ""), fval, "") caltext.Value = Val(fval) - Val(sval) ElseIf mathsign = 3 Then sval = Replace(Replace(sval, "*", ""), fval, "") caltext.Value = Val(fval) * Val(sval) ElseIf mathsign = 4 Then sval = Replace(Replace(sval, "/", ""), fval, "") caltext.Value = Val(fval) / Val(sval) End If End If End Sub ------------------------------------------------------------------------------------------ Buy a Cofee ☕ for theworldofalgorithms: https://ko-fi.com/theworldofalgorithms 🥰Thank you for the donation. I am deeply grateful for your help!🥰 ------------------------------------------------------------------------------------------ #excel #msexcel #msexceltutorial #msexcelcourse #vba #vbatutorial #excelvba #fulltutorial #excelvbatutorial #microsoftexceltutorial #tutorial #exceltutorial #advancedexcel #advancedexceltraining #tutor #exceltutor #exceltutoring #exceltutoringonline #onlineexceltutoring #algorithm #algorithms #programming #program #script #vbamacro #vbamacros #usingmacro #veryuseful #useful #veryusefulmacro #freeeducation #freeprogramming #freelancer #excelfreelancer #vbafreelancer #freelanceservices #userform #vbauserform #vbacombobox #combobox #textboxexcel #textbox #vbatextbox #excelvbatextbox #calculator #createacalculator #calculatorinexcel #howtocreateacalculator #simplecalculator #createasimplecalculator