How to make a calculator in excel | create a calculator in excel 2017 using vba

दोस्तों आज के इस आर्टिकल में मैं आपको बताऊंगा कि आप ( How to make a calculator in excel) एक्सेल में केलकुलेटर कैसे बना सकते हैं | इसके लिए आपको VBA की जानकारी का ज्ञान होना आवश्यक है|  जिसका उपयोग करके आप भी एक्सेल में कुछ इस तरह का केलकुलेटर बना सकते हैं |तो यदि आप इस तरह से का कुछ इंटरेस्टिंग सीखना चाहते हैं | तो आप नीचे दिए गए लिंक पर क्लिक करके जान सकते हैं | तो चलिए शुरू करते हैं |

Read Also - How to use Conditional Formatting in Google Sheets

Read Aslo- How to use Conditional Formatting in excel with On/Off Button

You Can Copy Code here

Dim A As Long

Dim b As Long

Dim c As Long

Dim d As Long

 

Private Sub CommandButton1_Click()

TextBox1.Text = TextBox1.Text + "1"

 

End Sub

 

Private Sub CommandButton10_Click()

TextBox1.Text = TextBox1.Text + "00"

End Sub

 

Private Sub CommandButton11_Click()

TextBox1.Text = TextBox1.Text + "0"

End Sub

 

Private Sub CommandButton12_Click()

TextBox1.Text = TextBox1.Text + "9"

End Sub

 

Private Sub CommandButton18_Click()

TextBox1.Text = Clear

End Sub

 

Private Sub CommandButton2_Click()

TextBox1.Text = TextBox1.Text + "2"

End Sub

 

Private Sub CommandButton3_Click()

TextBox1.Text = TextBox1.Text + "3"

End Sub

 

Private Sub CommandButton4_Click()

TextBox1.Text = TextBox1.Text + "4"

End Sub

 

Private Sub CommandButton5_Click()

TextBox1.Text = TextBox1.Text + "8"

End Sub

 

Private Sub CommandButton6_Click()

TextBox1.Text = TextBox1.Text + "7"

End Sub

 

Private Sub CommandButton7_Click()

TextBox1.Text = TextBox1.Text + "6"

End Sub

 

Private Sub CommandButton8_Click()

TextBox1.Text = TextBox1.Text + "5"

End Sub

 

Private Sub CommandButton9_Click()

b = TextBox1.Text

Call function_1

End Sub

 

Private Sub division_Click()

d = 4

A = TextBox1.Text

TextBox1.Text = ""

End Sub

 

Private Sub minus_Click()

d = 2

A = TextBox1.Text

TextBox1.Text = ""

End Sub

 

Private Sub multiply_Click()

d = 3

A = TextBox1.Text

TextBox1.Text = ""

End Sub

 

Private Sub plus_Click()

d = 1

A = TextBox1.Text

TextBox1.Text = ""

End Sub

 

Private Sub function_1()

If d = 1 Then

c = A + b

TextBox1.Text = c

End If

 

If d = 2 Then

c = A - b

TextBox1.Text = c

End If

 

If d = 3 Then

c = A * b

TextBox1.Text = c

End If

 

If d = 4 Then

c = A / b

TextBox1.Text = c

End If

 

End Sub

Download Sheet For Practice Link Given Below