Excel

Join Diploma in Software Engineering, Hardware Engineering, Animation & ...

2021-10-25T01:16:00.001+05:30

MS-CIT ERA LIVE| How to start mscit eralive on mobile | How to install m...

2021-09-30T13:02:00.000+05:30

TDS |What is TDS| Tax Deducted at source| How TDS Works |TDS Details in ...

2021-09-10T20:30:00.001+05:30

TallyPrime| How to Create Purchase Order In Tally Prime. Purchase Order ...

2021-04-18T20:03:00.001+05:30

How to Create Report in MS ACCESS 2016.

2020-12-17T23:55:00.000+05:30

How to use query in Ms Access , how to use action query/ make table/cros...

2020-12-02T20:59:00.000+05:30

How do we modify and design table in MS Access? | How do you create a fo...

2020-11-02T22:23:00.001+05:30

What Is Microsoft Access and What Do You Use It For? What is a Database?...

2020-10-30T17:19:00.001+05:30

Mscit final exam Preparation |

2020-10-09T01:09:00.001+05:30

MSCIT ad

2020-08-02T20:03:00.001+05:30

Vlook up with iferror Formula | Vlookup with iferror function

2020-07-28T21:57:00.001+05:30

Vlookup with true or false result

2020-07-28T21:56:00.001+05:30

Advance Excel Program - Day 8 – Conditional Formatting Part -II

2020-07-26T18:10:00.001+05:30

Learn How to use Excel Reference formula |Absolute Reference| Relative R...

2020-07-26T18:09:00.001+05:30

Learn how to Use lookup Function in Excel| Vlookup | Hlookup|

2020-07-26T18:08:00.001+05:30

Advance Excel Program - Day 6 – Exploring Pivot Options

2020-07-12T16:47:00.001+05:30

Advance Excel Program - Day 2 – Exploring Simple Options in Home Tab, Pa...

2020-07-08T00:18:00.001+05:30

Advance Excel Program - Day 5 - Pivot Table Design

2020-07-07T23:52:00.001+05:30

Learn How to use Home Tab in Excel Or working with Paste Special Function.

2020-07-01T16:46:00.001+05:30

Learn How to Make Calculator in VBA Excel

2020-05-19T18:58:00.001+05:30

नमस्कार दोस्तों। कैसे हो आप सभी ?

दोस्तों आज हम सीखेंगे विसुअल बेसिक मैं कैलकुलेटर बनाना और अरिथमेटिक ऑपरेशन को भी मतलब +,-.*./ बटनो का इस्तेमाल करना। तो दोस्तों सब से पहले हम डेवलपर मेनू मैं जाकर कैलकुलेटर डेसिंग करना सीखेंगे।

Calculator Design

1) डेवलपर टूल्स से विसुअल बेसिक सेलेक्ट करे

२) इन्सर्ट मेनू पर जाए , यूजर फॉर्म सेलेक्ट करे।

३) टूल बॉक्स से टेस्टबोक्स सेलेक्ट करे और यूजर फॉर्म पर ऊपर की और ड्रैग करे , अब टेस्टबोक्स की प्रॉपर्टीज मैं

फॉण्ट साइज २० ,

बोल्ड ले ,

टेक्स्ट मैं 0 टाइप करे

टेक्स्ट एलाइनमेंट - राइट सेलेक्ट करे ,

आप यूजर फॉर्म का भी नाम चेंज कर सकते यूजर फॉर्म पर क्लिक करे और प्रॉपर्टीज कैप्शन मैं जाकर चेंज करे ,Calculator.

आप चाहे तो टेक्स्ट बॉक्स के ऊपर लेवल भी ड्रैग कर सकते है। और उस पर कुछ न लिखे। जिस से की आपका कैलकुलेटर रियल लग सके।

(नोट : ये सेटिंग हमने इसलिए की क्युकी कैलकुलेटर मैं राइट साइड मैं ही नंबर होते हैं।

अब हम कैलकुलेटर की तरह सभी बटन बनाएंगे और उन सभी बटनो पर नंबर और +,- ,*,/,= साइन लिखंगे। याद रखिए आपको जो भी बटन बनाना हैं उसका नाम टाइप करना हैं जैसे टेस्टबोक्स १ को ऐड जिस से की आपको बटन मैं प्रोगरामिंग करने मैं प्रॉब्लम न हो।

अब हम सभी बटनो मैं प्रोगरामिंग करेंगे। उस से पहले हम वेरिएबल टाइप करेंगे। यूजर फॉर्म पर डबल क्लिक करे।

सबसे पहले हम १ नंबर पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे। रन करे।

इफ कंडीशन से लिखंगे अगर टेक्स्ट बॉक्स मैं वैल्यू ० हैं तो १ नंबर टाइप करने पर १ नंबर आये और अगर १ नंबर को दोबारा प्रेस करे तो १ नंबर रिपीट हो। प्रोग्राम को रन बटन पर क्लिक करे और चेक करे।

अब हम बटन नंबर २ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे। रन करे।

प्रोग्राम वही हैं जो हमने बटन १ मैं टाइप किया हैं। अब चाहिए तो इफ से लेकर एन्ड इफ तक इसे कॉपी कर ले और बटन २ मैं पेस्ट करे बस थोड़ा सा बदलाव करे १ की जगह २ टाइप करे। ऐसे ही ० से डॉट सभी बटनो तक करे।

अब हम बटन नंबर ३ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ४ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ५ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ६ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ७ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ८ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ९ पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर 0 पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन . पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

यहाँ पर हमने सभी बटनो पर प्रोग्राम टाइप कर दिया हैं अब हम जोड़ , घटना , गुणा , भागे , बराबर और प्रतिशत वाले बटन पर प्रोग्राम टाइप करेंगे। जिन्हें ऑपरेटर्स कहते हैं।

OPERATORS

सब से पहले प्लस /ऐड बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

यहाँ पर हमने ऑपरेटर्स का वेरिएबल पहले ही लिखा हुआ हैं।

इस प्रोग्राम मैं लिखा हैं टेस्टबोक्स मैं जो भी नंबर हो + प्रेस करने पर वो जुड़ जाये। इस को कॉपी करके -, *, / .% के लिए पेस्ट करेंगे।

सब्ट्रैक्ट /माइनस बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

मल्टिप्लिकेशन /गुणा बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

डिवाइड / भागे बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

प्रतिशत /परसेंटेज बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

इक्वल / बराबर बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

यहाँ प्रोग्राम मैं लिखा हैं टेक्स्ट बॉक्स मैं पहले से कोई नंबर हो और प्लस , माइनस , मल्टिप्लिकेशन , डिवाइड करने पर उसका जवाब टेस्टबोक्स मैं दिखे।

क्लियर C बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

अब हम प्रोग्राम रन करेंगे और चेक करेंगे की हमारा कैलकुलेटर सही काम कर रहा हैं या नहीं।

यहाँ पर हम ५ + ९ को ऐड करके देखंगे।

= बटन प्रेस करे आपको रिजल्ट दिखाई देगा।

वैसे ही आप सभी बटन चेक कीजिये।

सभी बटनो की प्रोगरामिंग निचे लिखी हैं।

Option Explicit

Dim firstnum As Double

Dim secondnum As Double

Dim Answer As Double

Dim Operators As String

Private Sub CommandButton1_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "1"

Else

TextBox1.Text = TextBox1.Text + "1"

End If

End Sub

Private Sub CommandButton10_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "0"

Else

TextBox1.Text = TextBox1.Text + "0"

End If

End Sub

Private Sub CommandButton11_Click()

If InStr(TextBox1.Text, ".") = "0" Then

TextBox1.Text = TextBox1.Text + "."

End If

End Sub

'Equal

Private Sub CommandButton12_Click()

secondnum = TextBox1.Text

If Operators = "+" Then

Answer = firstnum + secondnum

TextBox1.Text = Answer

ElseIf Operators = "-" Then

Answer = firstnum - secondnum

TextBox1.Text = Answer

ElseIf Operators = "*" Then

Answer = firstnum * secondnum

TextBox1.Text = Answer

ElseIf Operators = "/" Then

Answer = firstnum / secondnum

TextBox1.Text = Answer

ElseIf Operators = "%" Then

Answer = firstnum Mod secondnum

TextBox1.Text = Answer

End If

End Sub

'plus

Private Sub CommandButton13_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "+"

End Sub

'sub

Private Sub CommandButton14_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "-"

End Sub

'multi

Private Sub CommandButton15_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "*"

End Sub

'Div

Private Sub CommandButton16_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "/"

End Sub

'Percentage

Private Sub CommandButton17_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "%"

End Sub

Private Sub CommandButton18_Click()

TextBox1.Text = "0"

End Sub

Private Sub CommandButton2_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "2"

Else

TextBox1.Text = TextBox1.Text + "2"

End If

End Sub

Private Sub CommandButton3_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "3"

Else

TextBox1.Text = TextBox1.Text + "3"

End If

End Sub

Private Sub CommandButton4_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "4"

Else

TextBox1.Text = TextBox1.Text + "4"

End If

End Sub

Private Sub CommandButton5_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "5"

Else

TextBox1.Text = TextBox1.Text + "5"

End If

End Sub

Private Sub CommandButton6_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "6"

Else

TextBox1.Text = TextBox1.Text + "6"

End If

End Sub

Private Sub CommandButton7_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "7"

Else

TextBox1.Text = TextBox1.Text + "7"

End If

End Sub

Private Sub CommandButton8_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "8"

Else

TextBox1.Text = TextBox1.Text + "8"

End If

End Sub

Private Sub CommandButton9_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "9"

Else

TextBox1.Text = TextBox1.Text + "9"

End If

End Sub

Private Sub UserForm_Click()

End Sub

दोस्तों उम्मीद है की आपको कैलकुलेटर आज का सेशन पसंद आया होगा। अगर आपके कुछ सुझाव हैं तो

कमेंट मैं हमें बताइये। धन्यवाद।

How to use Multiple Page in Userform VBA

2020-05-17T19:16:00.000+05:30

हेलो दोस्तों कैसे हो आप सभी आज हम बात करेंगे यूजर फॉर्म मैं मल्टीप्ल पेजेज की। मल्टिप्ले पेजेज को किस तरह से इस्तेमाल करेंगे। मान लीजिये हमें एक सर्वे फॉर्म बनाना हैं बेस्ट एक्टर के लिए जिसमें सभी लोगो अपने एक्टर को चुन सके। आइये इस देखते हैं।

१) सबसे पहले एक्सेल मैं डेवलपर टूल्स से विसुअल बेसिक एप्लीकेशन सेलेक्ट करेंगे।
२) इन्सर्ट मेनू से यूजर फॉर्म पर क्लिक करे ,
३) टूल बॉक्स से मल्टीप्ल पेजेज सेलेक्ट करे , यूजर फॉर्म पर ड्रैग करे।

४) पेज १ और पेज २ का नाम चेंज करे , पर्सनल इनफार्मेशन , फेवरेट एक्टर फोटो
५) लेवल सेलेक्ट करे नाम लिखे नाम और DOB
६) २ टेक्स्ट बॉक्स बनाये
७) फ्रेम ड्रैग करे और उसके अंडर ऑप्शन बटन ड्रैग करे।

पेज २ पर
८) लिस्ट टूल बॉक्स से लिस्ट बनाये लेवल से नाम लिखे बेस्ट एक्टर
९) टूल बॉक्स से इमेज ड्रैग करे और एक ओके बटन इस तरह से।

१०) यूजर फॉर्म पर राइट क्लिक करे और व्यू कोड में जाकर प्रोग्राम टाइप करे।
यूजर फॉर्म इनिशियलाइज़ सेलेक्ट करे या इन्सर्ट मेनू से मॉडल सेलेक्ट करे सब लिखे। फिर प्रोग्राम टाइप करे।

इस प्रोग्राम मैं हमने सभी एक्टर की लिस्ट बनना ली हैं।

११) ओके बटन पर डबल क्लिक करे और प्रोग्राम टाइप करे।

इस प्रोग्राम मैं हमने लिखा हैं शीट १ एक्टिव हो और वर्कशीट मैं डाटा काउंट करे। जिस से टेक्स्ट बॉक्स मैं भी वैल्यू हो एक्टिव वर्कशीट पर दिखाई दे इन्सॉर्ट आपका डाटा वर्कशीट मैं ट्रांसफर होजाये। फिर हमने ऑप्शन बटन के लिए लिखा हैं अगर मेल सेलेक्ट करे तो वर्कशीट मैं मेल लिखकर आये अगर फीमेल है सेलेक्ट करे तो फीमेल लिकर आये। उसके बाद लिस्ट से जिस एक्टर का नाम सेलेक्ट करे उस एक्टर का नाम दिखाई दे। और आखिर मैं फॉर्म को अनलोड कर दे।

१२) अब हम चाहते हैं की जब भी पेज २ मैं कोई एक्टर का नाम सेलेक्ट करे तो उस एक्टर की फोटो इमेज १ मैं दिखाई दे तो उसके लिए हम ये प्रोग्राम टाइप करेंगे।प्रोग्राम टाइप करने से पहले सभी एक्टर की फोटो आपके पास होनी चाहिए। या फिर आप इसे डाउनलोड कर ले। और सभी इमेज का एक फोल्डर बना ले।

लिस्ट बॉक्स पर डबल क्लिक करे और प्रोग्राम टाइप करे

यहाँ पर हमने ७ इमेज ली हैं और सभी की लोकेशन या पाथ लिखा हैं। जिससे जब भी कोई इमेज सेलेक्ट करे उस एक्टर की फोटो उस इमेज बॉक्स मैं दिखाई दे।

अभी प्रोग्राम को रन करे और फाइल को सेव करे फाइल का नाम लिखे ----- मैक्रो इनेबल एक्सटेंशन्स ।

१३) अब हम एक्सेल वर्कशीट मैं एक बटन ड्रैग करेंगे। जिससे की जब आप उस बटन पर क्लिक करेंगे तो आपको यूजर फॉर्म दिखाई दे।

१)बटन बनना के लिए वर्कशीट मैं इन्सर्ट मेनू से शेप सेलेक्ट करे और कोई भी शेप ड्रैग करे।

२) शेप पर राइट क्लिक करे और असिगन मैक्रो करे न्यू सेलेक्ट करेंगे

इसे रन करे। जब आप इसपर डबल क्लिक करेंगे तो यूजर फॉर्म ओपन होगा। यूजर फॉर्म मैं डाटा टाइप करे।

पर्सनल इनफार्मेशन मैं डिटेल फील करे।

फेवरेट एक्टर को सेलेक्ट करे।

जब आप ओके पर क्लिक करेंगे तो आपका डाटा एक्सेल शीट मैं ट्रांसफर हो जायेगा।

Private Sub UserForm1()

End Sub

Private Sub CommandButton1_Click()

Dim emptyRow As Long

'Make Sheet1 active

Sheet1.Activate

'Determine emptyRow

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Transfer information

Cells(emptyRow, 1).Value = TextBox1.Value

Cells(emptyRow, 2).Value = TextBox2.Value

If OptionButton1.Value = True Then

Cells(emptyRow, 3).Value = "Male"

Else

Cells(emptyRow, 3).Value = "Female"

End If

Cells(emptyRow, 4).Value = ListBox1.Value

'Close Userform

Unload Me

End Sub

Private Sub ListBox1_Click()

If ListBox1.ListIndex = 0 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\s.jpg")

End If

If ListBox1.ListIndex = 1 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\sk.jpg")

End If

If ListBox1.ListIndex = 2 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\a2.jpg")

End If

If ListBox1.ListIndex = 3 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\ak.jpg")

End If

If ListBox1.ListIndex = 4 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\r1.jpg")

End If

If ListBox1.ListIndex = 5 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\g.jpg")

End If

If ListBox1.ListIndex = 6 Then

Image1.Picture = LoadPicture("C:\Users\HP-PC\Desktop\Actor\m.jpg")

End If

End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

With ListBox1

.AddItem "Salman Khan"

.AddItem "Shahrukh Khan"

.AddItem "Amitabh Bachhan"

.AddItem "Aamir Khan "

.AddItem "Ranveer Singh "

.AddItem "Govinda "

.AddItem "Mithun Chakrobarty "

End With

End Sub

दोस्तों उम्मीद करता हूँ की आपको आज का मल्टीप्ल पेजेज का सेशन अच्छा लगा होगा। अगर आपके सुझाव है तो बॉक्स मैं लिखे। इस लिंक को अपने दोस्तों के साथ भी साझा करे। धन्यवाद।

Learn How to Create Spin Button,Scroll Button Next, Back, Search, Edit,Delete, Button TextBox Sum in VBA

2020-05-15T00:32:00.003+05:30

नमस्कार दोस्तों कैसे हो आप सभी।
आज हम VBA मैं सीखेंगे टूलबॉक्स के स्पिन बटन,स्क्रॉल बार बटन का इस्तेमाल और नेक्स्ट बटन , बैक बटन , सर्च बटन, एडिट बटन ,डिलीट बटन, टेस्टबोक्स को सम करना इत्यादि। तो दोस्तों सब से पहले हम बात करेंगे स्पिन बटन की। स्पिन बटन करता क्या हैं ?

स्पिन बटन

स्पिन बटन नोर्मल्ली नंबर को बढ़ाने का काम करता हैं। मान लीजिए हम एक ऐसा बटन बनाये जहा पर नंबर टाइप करने की जरुरत ही ना हो। बस बटन पर क्लिक करे और नंबर अपने आप बढ़ते जाये। स्पिन बटन यही काम करता हैं।
उदाहरण के तौर पर हमे एक कॉलम मैं ये पूछना हैं की आपकी उम्र कितनी हैं? और उसके बाजु वाली कॉलम मैं एक बटन बनाये और बटन पर क्लिक करके नंबर को सेलेक्ट करे। एक्सेल शीट मैं इस तरह की एक टेबल बनाये।

१)डेवलपर मेनू मैं क्लिक करके , इन्सर्ट सेलेक्ट करे।
२) टूल बॉक्स से स्पिन बटन को सेलेक्ट करे और वर्कशीट पर ड्रैग करे।

३) स्पिन बटन पर डबल क्लिक करे। और प्रोग्राम टाइप करे।

४)प्रॉपर्टीज मेनु मैं तोडा बदलाव करे।

लिंक्ड सेल मैं हमने "B2" लिखा हैं। क्युकी जब हम स्पिन बटन प्रेस करेंगे तो उसका रिजल्ट हमे B2 कॉलम मैं दिखाई देना चाहिए।

मैक्स मैं मैक्सिमम वैल्यू १०० रखा हैं। और

मीन मैं 0 ( 0 से 100 के बिच की वैल्यू आप सेलेक्ट कर सकते हैं। )

स्माल चेंज मैं 2 को रखा हैं ताकि नंबर चेंज होते रहें। २ ,४ ,६ इस तरह।

(नोट: आप यहाँ पर १ नंबर भी सेलेक्ट कर सकते हैं। जिस से एक एक नंबर बढ़ेगा। )

५)रन बटन पर क्लिक करे। और प्रोग्राम को चेक करे।

जब आप ऊपर वाले रौ पर क्लिक करेंगे तो आपका नंबर २ बढ़ जायेंगे।

और जब डाउन एरो पर क्लिक करेंगे तो नंबर कम हो जायेगा।

इस तरह से हम इसका इस्तेमाल लोन अमाउंट काउंट करने के लिए भी कर सकते हैं।

आइये इसे भी समझते हैं।

Loan Calculator

अगर आप लोन कैलकुलेटर बनाना चाहते हो तो आपको सबसे पहले एक्सेल मैं कुछ इस तरह वर्कशीट को डिज़ाइन करना होगा।

१) डेवलपर मेनू पर क्लिक करे इन्सर्ट से स्क्रॉल बार बटन को सेलेक्ट करे, इंटरेस्ट और टर्म के सामने ड्रैग करे।नोट: जब आप बटन ड्रैग करे तो याद रहे डिज़ाइन मोड को ऑन रखे।

२) इंटरेस्ट बार के सामने जो स्क्रॉल बार है उसपर डबल क्लिक करे और प्रॉपर्टीज मैं थोड़ा बदलाव करे।

Large Change =2

Max=20 Interest Rate यहाँ पर हमने इंटरेस्ट रेट 20 रखा हैं और मिनिमम 0

Min=0

Small Change=0

3)टर्म बार के सामने जो स्क्रॉल बार है उसपर डबल क्लिक करे और प्रॉपर्टीज मैं थोड़ा बदलाव करे।

Linked Cell F7 लिखे जिसे की जब आपका रिजल्ट कॉलम F7 पर दिखे
Max= 30 यहाँ पर लोन टर्म ३० साल रखा हैं।
Min =5 और कम से कम ५ साल के लिए।
Large Change =5
Small Change =1

यहाँ पर हमने अभी तक कोई भी कोडिंग नहीं की हैं। कोडिंग हम पूरा फॉर्म बनने पर करेंगे।

४ ) अब पेमेंट ऑप्शन बटन के सामने ऑप्शन बटन को ड्रैग करे। यहाँ पर हम २ ऑप्शन बटन लेंगे। पहले मैं लिखंगे मंथली और दूसरे मैं लिखंगे इयरली। मतलब अगर आप महीने और सालाना के हिसाब से यहाँ पर EMI निकालन चाहे तो निकल सके।

अब दोनों बटनो पर डबल क्लिक करके प्रोपेरिट्स मैं जाकर कैप्शन के यहाँ से इनका नाम चेंज करे Monthly or Yearly .

यहाँ पर हमारा लोन कैलकुलेटर पूरी तरह से बन चूका हैं। अब हम इस पर कोडिंग करेंगे। यहाँ पर हमने फॉर्म बनाया नहीं बनाया हैं इसलिए हम वर्कशीट पर ही कोडिंग करेंगे।
१) डेवलपर टूल पर क्लिक करे
२) विसुअल बेसिक आप्लिकेशन पर क्लिक करे।
३)व्यू कोड से वर्कशीट और चेंज को सेलेक्ट करे।

जैसे ही आप इसे चेंज करेंगे आपको प्राइवेट सब वर्कशीट _चेंज (By Val Target As Range ) इस तरह का वैरिएबल दिखाई देगा। हम यहाँ पर प्रोग्राम टाइप करेंगे।

हमने प्रोग्राम मैं लिखा हैं यदि D3 मैं लोन वैल्यू लिख तो वो प्रोग्राम रन होना चाहिए। D3 को अब्सोलुटे रेफरन्स दे दिया।

ScrollBar Button1

अब हम स्क्रॉल बार बटन १ को प्रोग्राम देंगे। स्क्रॉल बटन पर राइट क्लिक करके व्यू कोड सेलेक्ट करे।
और प्रोग्राम टाइप करे।

ScrollBar Button2

Application.Run"Calculator

Option Button 1"Monthly"

ऑप्शन बटन पर राइट क्लिक करे और व्यू कोड सेलेक्ट करे। फिर प्रोग्राम टाइप करे।

यहाँ पर हमने प्रोग्राम को ये बताया हैं की अगर ऑप्शन बटन वैल्यू के बराबर हैं तो कॉलम C 12 मैं मंथली लिखकर आये।

Option Button 2 "Yearly"

अब हम यहाँ पर सब प्रोसीजर बनायेगे जिसमें Pmt formula टाइप करेंगे। आप ये जानते हैं। सब प्रोसीजर कैसे करते हैं।
डेवलपर पर क्लिक करना हैं ,
विसुअल बेसिक एप्लीकेशन सेलेक्ट करना हैं ,
इन्सर्ट मेनू से आपको मोडूयल सेलेक्ट करना हैं और प्राइवेट सब टाइप करना हैं।
फिर ये प्रोग्राम टाइप करना हैं ,

अब आपको थोड़ा वर्कशीट पर चंगेस करना हैं। आप चाहे तो कलर भी चेंज कर सकते हैं , F5 मैं परसेंटेज सेलेक्ट करना हैं

अब हमारा कैलकुलेटर पूरी तरह से तैयार हैं।

यहाँ पर आप देखंगे की लोन अमाउंट १००००० हैं और इंटरेस्ट २% टर्म हमारा हैं ७ साल पेमेंट ऑप्शन मंथली सेलेक्ट किया हैं इसलिए आपको EMI की जगह मंथली लिखा हुआ दिखाई देगा। पर आपको कितना EMI पे करना हैं वो दिखाई देगा। हम यहाँ पर D12 को थोड़ा चेंज करंगे। डिक्रीसे डेसीमल जिसे की आपको वैल्यू प्रॉपर मालूम हो।

निचे सभी बटनो का प्रोग्राम लिखा हुआ हैं।

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Monthly"

Application.Run "Calculate"

End Sub

Private Sub OptionButton6_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly"

Application.Run "Calculate"

End Sub

Private Sub ScrollBar1_Change()

Range("F5").Value = ScrollBar1.Value / 100

Application.Run "Calculate"

End Sub

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$3" Then Application.Run "Calculate"

End Sub

यहाँ पर हम कुछ बटन बनना सीखेंगे और उनकी प्रोगरामिंग भी। बटन बनना के लिए आपको एक यूजर फॉर्म बनाना हैं। और उसपर बटन ड्रैग करने हैं। चलिए यहाँ पर हम एक्सेल मैं एक नई वर्कशीट लेंगे जिसमें एक कंप्यूटर क्लास के एम्प्लोयी का फॉर्म बनाएंगे जिस से हमे प्रोग्राम आसानी से समझ मैं आ जाये।

User Form

सब से पहले हम यूजर फॉर्म डिज़ाइन करेंगे। इस तरह से। जिसमें ऊपर टेबल की सारी फ़ील्ड्स हो।

Clear Button

क्लियर बटन पर डबल क्लिक कर ले। अब इसमें प्रोग्राम टाइप करे।

अब हम इस प्रोग्राम को रन करके चेक करेंगे।

जब आप क्लियर बटन पर क्लिक करेंगे तो आपका डाटा क्लियर हो जायेगा। मतलब से वहा से सारी डिटेल्स निकल जाएगी।

Submit Button

सबमिट बटन पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।

प्रोग्राम मैं हमने डुप्लीकेट एंट्री करे तो हमें डुप्लीकेट वैल्यू मैसेज दिखे वो भी टाइप किया हैं

प्रोग्राम को रन करे।
सबमिट बटन पर क्लिक करे। आपका डाटा एक्सेल शीट मैं ट्रांसफर हो जायेगा।

Next Button

नेक्स्ट बटन पर जब हम क्लिक करे तो वो हमे आगे वाले रिकॉर्ड पर ले जाये। इस प्रोग्राम को टाइप करने से पहले हमें टूल बॉक्स से बटन लेकर यूजर फॉर्म पर ड्रैग करना होगा। और उसका नाम नेक्स्ट लिखना होगा। लेकिन उस से पहले आपको यूजर फॉर्म पर डबल क्लिक करके प्रोग्राम लिखना होगा जिससे आपके सरे बटन बराबर काम कर सके।
जब आप यूजर फॉर्म पर डबल क्लिक करेंगे तो आपको यूजर और इनिशियलाइज़ को सेलेक्ट करके फिर प्रोग्राम टाइप करना हैं। यूजर फॉर्म क्लिक पर नहीं। और उसके उप्पर ग्लोबल प्रोग्राम टाइप करना हैं
Dim Currentrow As long

अब हम यहाँ पर नेक्स्ट बटन को यूजर फॉर्म मैं ड्रैग और प्रोग्राम को टाइप करेंगे।

`
नेक्स्ट बटन पर डबल क्लिक करेंगे

प्रोग्राम को रन करके चेक करे।

Back Button

बैक बटन आपको पीछे को और लेकर जायेगा जिससे की आप पीछे का रिकॉर्ड चेक कर सके।

बैक बटन पर डबल क्लिक करे और प्रोग्राम टाइप करे।

प्रोग्राम को रन करे। प्रोग्राम मैं लिखा हैं जब आप लास्ट रौ पर होंगे तब आपको मैसेज दिखाई दे। ऐसे।

जब आप नेक्स्ट या बैक बटन प्रेस करेंगे तो आपको रिकॉर्ड चेंज होते दिखाई देंगे।

Search Button

सर्च बटन आपके सामने वो रिकॉर्ड दिखायेगा जिसे आप सर्च करना चाहते हो। मान लीजिये जैसे की हमे किसी एम्प्लोयी की ID से उसका रिकॉर्ड देखना हैं तो वो हम कैसे सर्च करेंगे। आइये इसे देखते हैं।

टूलबॉक्स से एक बटन यूजर फॉर्म पर ड्रैग करेंगे। जिस पर लिखेंगे सर्च।

सर्च बटन पर डबल क्लिक करे। और प्रोग्राम टाइप करे।

इस प्रोग्राम मैं हमने लूप की हेल्प से २ कंडीशन दी हैं।

१) कंडीशन मैं हमने बताया हैं की अगर डाटा मैं कोई वैल्यू डाले बिना ही सर्च करे तो हमें मैसेज दिखाई दे। "Enter Search Value"

२)कंडीशन मैं हमने बताया हैं की अगर कोई डाटा मैं वर्कशीट मैं ना हो तो हमे मैसेज दिखाई दे। "Record Not Found". हमने यहाँ पर १०७ टाइप किया हैं। लेकिन हमारी वर्कशीट मैं १०७ रिकॉर्ड हैं ही नहीं।

Edit Button

एडिट बटन हमे तब काम आता है जब हमें रिकॉर्ड मैं कोई बदलाव करना होता हैं। टूलबॉक्स से बटन सेलेक्ट करके यूजर फॉर्म पर ड्रैग करे। और डबल क्लिक करके उस मैं प्रोग्राम टाइप करे।

और रन करे। सब से पहले सर्च बटन से उस रिकॉर्ड को ओपन करे जिसे आप चेंज करना चाहते हो।

मान लीजिए हमें रिकॉर्ड १ मैं कोई बदलाव करना हैं तब हम रिकॉर्ड को सर्च करेंगे और एडिट बटन पर क्लिक कर के उसे चेंज करेंगे।

यहाँ पर हम संदीप पिवळ का रिकॉर्ड चेंज करेंगे। हमने नाम , नंबर और जन्म तारीख बदल दी हैं ,लेकिन जब आप एडिट बटन पर क्लिक करेंगे तो आपको मैसेज दिखाई देगा जिसमें सवाल का निशान और सवाल होगा ? क्युकी हमने प्रोग्राम मैं vbYesNo +vbQuestion लिखा हुआ हैं। अगर आप यहाँ पर यस बटन प्रेस करके कन्फर्म करते हैं तो आपके डाटा मैं बदलाव हो जायेगा। यहाँ पर संदीप पिवळ की जगह संदीप गुप्ता हो गया हैं और फ़ोन नंबर और डेट ऑफ़ बिरथ भी बदल गया हैं।

और अगर नो पर क्लिक करेंगे तो कोई भी बदलाव नहीं होगा।

Delete Button

डिलीट बटन हम तब इस्तेमाल करते हैं जब हमें रिकॉर्ड को डिलीट करना होता हैं। टूल बॉक्स से बटन सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे। उस बटन पर नाम लिखे डिलीट। अब प्रोग्राम टाइप करे।

प्रोग्राम को रन करे। जब आप प्रोग्राम रन करेंगे तो रिकॉर्ड डिलीट करेने से पहले आपको प्रोग्राम कन्फर्म करेगा की आप रिकॉर्ड डिलीट करना चाहते हो।

अगर कन्फर्म करेंगे तो ही रिकॉर्ड डिलीट होगा। आप वर्कशीट मैं इसे आप चेक कर सकते हो।

How to do Textbox Calculation

इस फॉर्म मैं हमने तक़रीबन सभी बटनो का इस्तेमाल और उन्हें कैसे बनाया जाता है वो सीखा। अब हम इसमें कुछ और टेक्स्ट बॉक्स ऐड करेंगे जिसमें हम एम्प्लोयी को बेसिक सैलरी ,हाउस अल्लौंस , मेडिकल अल्लौंस इत्यादि। ऐड करके उनका टोटल कैसे कर । ये सीखेंगे।

सब से पहले हम यूजर फॉर्म मैं बदलाव करेंगे। सभी बटनो सेलेक्ट करके इन्हे निचे की और रखे। इसमें तीन टेक्स्ट बॉक्स और लेबल को ऐड करे। ऐसे।

यहाँ पर हमने तीन टेस्टबोक्स को ऐड किया हैं जिसमें हम बेसिक सैलरी और हाउस अल्लौंस को ऐड करके उसका टोटल लास्ट वाले टेक्स्ट बॉक्स मैं करेंगे। आप सभी अलिंगमेंट विसुअल बेसिक मैं फॉर्मेट वाली मेनू से कर सकते हैं।

अब हमें वर्कशीट मैं तीन और कॉलम ऐड करेंगे ,

यहाँ पर हम ये चाहते है की जैसे ही हम यूजर फॉर्म पर डिटेल फील करे और सारी डिटेल वर्कशीट मैं ऐड हो जाये तो हमें सबमिट बटन मैं भी कुछ बदलाव करने होंगे।

१) सबमिट बटन पर डबल क्लिक करे।

और ये तीन लाइन को ऐड करे। जो हाईलाइट की हुई हैं

जैसे ही हम प्रोग्राम टाइप करके उसे रन करेंगे तो यूजर फॉर्म ओपन होगा। उसमें डाटा फिल कीजिये और सबमिट बटन पर क्लिक करे।

सब्मिट बटन पर क्लिक करने के बाद आपका डाटा वर्कशीट मैं चला जायेगा।

लेकिन यहाँ हम ने टोटल मैं मैन्युअली टोटल किया हैं। हम चाहते हैं की जब हम सैलरी और हाउस अल्लौंस टेक्स्ट बॉक्स मैं लिखे तो वो ऑटोमेटिक टोटल वाले टेस्टबोक्स मैं आये। तो हम उसके लिए ये प्रोग्राम लिखेंगे।

यहाँ पर हमने प्रोग्राम मैं इफ कंडीशन और लेन का इस्तेमाल किया हैं। लेन हमें ये बताएगा की टेक्स्ट बॉक्स मैं कितनी वैल्यू हैं। और उस वैल्यू को नेक्स्ट टेस्टबोक्स से ऐड कर देगा।

आप यहाँ पर देखंगे की सैलरी ५००० हैं और हाउस अल्लौंस ५०० दोनों का टोटल ५५०० होना चाहिए। लेकिन यहाँ पर आपको टोटल ५००० ही दिखाई दे रहा हैं। क्युकी हमने फार्मूला सैलरी के टेक्स्ट बॉक्स को दिया हैं। अगर आप सैलरी के अमाउंट को चेंज करेंगे तो आपको टोटल बदल जायेगा।

अब हम ऐसा फार्मूला लिखंगे जिससे हाउस अल्लौंस मैं वैल्यू टाइप करू तो वो भी बदल जाये या ऐड होजाये

इसके लिए हमे

इन्सर्ट मेनू पर क्लिक करना हैं।

मॉडल पर आने के बाद आपको सब ऐड लिखेंगे। ऐड हमारे सब का नाम हैं

जो फार्मूला अभी आपने टेस्टबोक्स ५ मैं टाइप किया उसे सेलेक्ट करके कट करे , और सब ऐड मैं पेस्ट करे।

पेस्ट करने के बाद आपको इसे ये बताना हैं की आप कौनसे यूजर फॉर्म मैं काम कर रहें हैं। हम यहाँ पर यूजर फॉर्म १ मैं काम कर रहें हैं। इसीलिए हम टेस्टबोक्स के सामने यूजर बॉक्स १ टाइप करेंगे।

अभी इसे दुबारा टेस्टबोक्स ५ पर डबल क्लिक करे और लिखे

Call Module2.Add

इसे टेस्टबोक्स ५ मैं भी डबल क्लिक करके पेस्ट करे।

अब प्रोग्राम को रन करे आपको करेक्ट वैल्यू दिखाई देगी।

Photo Insert

अब हम यूजर फॉर्म मैं फोटो ऐड करेंगे जिस से हमें एम्प्लोयी की डिटेल के साथ साथ उसकी फोटो भी दिखाई दे।

टूलबॉक्स से इमेज बटन सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे। और एक बटन ऐड करे । जिसपर अपडेट इमेज लिखे।

अपडेट बटन पर डबल क्लिक करे और प्रोग्राम टाइप करे।

अब प्रोग्राम को रन करे। डाटा फिल करके अपडेट इमेज पर क्लिक करके फोटो सेलेक्ट करे और सबमिट पर क्लिक करे।

जब आप क्लियर बटन पर क्लिक करेंगे तो आपका डाटा क्लियर हो जायेगा लेकिन इमेज क्लियर नहीं होगी। जिसके लिए आपको क्लियर बटन पर डबल क्लिक करके ये प्रोग्राम टाइप करना होगा।

अब आप क्लियर बटन पर क्लिक करेंगे तो आपका डाटा और इमेज दोनों क्लियर हो जायेगा।

अब हम यहाँ पर समझेंगे की जब हम नेक्स्ट बटन पर क्लिक करे तो डाटा के साथ साथ फोटो भी चेंज हो। उसके लिए सबसे पहले यूजर फॉर्म पर डबल क्लिक करे और रेड लाइन से मार्क किया हुआ प्रोग्राम टाइप करे।

इस प्रोग्राम मैं ऑब्जेक्ट अपने आप एक नया फोल्डर बनाएगा जिसका नाम प्रोफाइल्स होगा और वो सभी फाइल वही सब्मिट करेगा। इसके बाद आपको सबमिट बटन मैं भी प्रोग्राम टाइप करना होगा जिससे जब डाटा और फोटो सबमिट करे तो वो सही पथ पर सेव हो जाये।

और ग्लोबल वेरिएबल लिखेंगे जिससे वो सभी बटन मैं काम करे।

अभी प्रोग्राम को रन करे। डाटा फील करे और फोटो ऐड करके सबमिट करे। चार -पाचं रिकॉर्ड टाइप करे और फोटो ऐड करे फाइल नेक्स्ट और बैक बटन पर क्लिक करके चेक करे।

सारा प्रोग्राम आपके सामने हैं।

Dim Currentrow As Long

Dim profilepath As String

Dim fpath As String

Sub ImageDisplay()

temp = ActiveWorkbook.Path() + "\profiles\" + TextBox1.Value + ".jpg"

tempExists = Dir(temp)

If tempExists = "" Then

Image1.Picture = LoadPicture(vbNullString)

Else

Image1.Picture = LoadPicture(profilepath & "\" & TextBox1.Value & ".jpg")

Image1.PictureSizeMode = fmPictureSizeModeClip

End If

End Sub

'Submit Button

Private Sub CommandButton1_Click()

profilepath = ActiveWorkbook.Path() + "\profiles"

Dim lastrow As Long, count As Long

lastrow = Cells(Rows.count, 1).End(xlUp).Row

lastrow = lastrow + 1

Cells(lastrow, 1) = TextBox1

count = 0

For i = 2 To lastrow

If TextBox1 = Cells(i, 1) Then

count = count + 1

End If

If count > 1 Then

Cells(lastrow, 1) = ""

Cells(lastrow, 2) = ""

Cells(lastrow, 3) = ""

Cells(lastrow, 4) = ""

Cells(lastrow, 5) = ""

Cells(lastrow, 6) = ""

Cells(lastrow, 7) = ""

MsgBox "Duplicate Value"

End If

If count = 1 Then

Cells(lastrow, 1) = TextBox1.Value

Cells(lastrow, 2) = TextBox2.Text

Cells(lastrow, 3) = TextBox3.Value

Cells(lastrow, 4) = TextBox4.Value

Cells(lastrow, 5) = TextBox5.Value

Cells(lastrow, 6) = TextBox6.Value

Cells(lastrow, 7) = TextBox7.Value

End If

Dim fObj As Object

Set fObj = CreateObject("Scripting.FileSystemObject")

Dim a As String

a = TextBox1.Text

FileCopy fpath, profilepath & "\" & a & ".jpg"

'Unload Me

End Sub

'Clear Button

Private Sub CommandButton2_Click()

Dim ctl As Control

For Each ctl In UserForm1.Controls

If TypeName(ctl) = "TextBox" Then

ctl.Value = ""

End If

With Me.Image1

If .Picture Is Nothing Then ' picture property has been cleared already

.Picture = LoadPicture(sImgName)

Else ' a picture is already displayed

.Picture = LoadPicture(vbNullString) ' clear it now

End If

End With

End Sub

'Next Button

Private Sub CommandButton3_Click()

Dim lastrow As Long

lastrow = Cells(Rows.count, 1).End(xlUp).Row

If Currentrow = lastrow Then

MsgBox "you are in the last row! No more data."

Exit Sub

End If

Currentrow = Currentrow + 1

TextBox1 = Cells(Currentrow, 1)

TextBox2 = Cells(Currentrow, 2)

TextBox3 = Cells(Currentrow, 3)

TextBox4 = Cells(Currentrow, 4)

TextBox5 = Cells(Currentrow, 5)

TextBox6 = Cells(Currentrow, 6)

TextBox7 = Cells(Currentrow, 7)

ImageDisplay

End Sub

'Back Button

Private Sub CommandButton4_Click()

If Currentrow = 2 Then

MsgBox " u r in the First Row"

Exit Sub

End If

Currentrow = Currentrow - 1

TextBox1 = Cells(Currentrow, 1)

TextBox2 = Cells(Currentrow, 2)

TextBox3 = Cells(Currentrow, 3)

TextBox4 = Cells(Currentrow, 4)

TextBox5 = Cells(Currentrow, 5)

TextBox6 = Cells(Currentrow, 6)

TextBox7 = Cells(Currentrow, 7)

ImageDisplay

End Sub

'Search Button

Private Sub CommandButton5_Click()

Dim TotalRows As Long, i As Long

Dim fn As String

Image1.Picture = LoadPicture(profilepath & "\" & TextBox1.Value & ".jpg")

Image1.PictureSizeMode = fmPictureSizeModeClip

TotalRows = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.count

'Condtion 1

If TextBox1.Value = "" Then

MsgBox "Enter Search value"

End If

'condtion2

For i = 2 To TotalRows

If Trim(Cells(i, 1)) <> Trim(TextBox1.Value) And i = TotalRows Then

MsgBox " Record Not Found"

End If

If Trim(Cells(i, 1)) = Trim(TextBox1.Value) Then

TextBox1.Value = Cells(i, 1)

TextBox2.Value = Cells(i, 2)

TextBox3.Value = Cells(i, 3)

TextBox4.Value = Cells(i, 4)

TextBox5.Value = Cells(i, 5)

TextBox6.Value = Cells(i, 6)

TextBox7.Value = Cells(i, 7)

Exit For

End If

Next i

On Error Resume Next

End Sub

'Edit Button

Private Sub CommandButton6_Click()

answar = MsgBox("U want to update record?", vbYesNo + vbQuestion, " R U SURE U WANT TO UPDATE?")

If answar = vbYes Then

Cells(Currentrow, 1) = TextBox1.Value

Cells(Currentrow, 2) = TextBox2.Value

Cells(Currentrow, 3) = TextBox3.Value

Cells(Currentrow, 4) = TextBox4.Value

Cells(Currentrow, 5) = TextBox5.Value

Cells(Currentrow, 6) = TextBox6.Value

Cells(Currentrow, 7) = TextBox7.Value

End If

End Sub

'Delete

Private Sub CommandButton7_Click()

answar = MsgBox("R u Sure want to Delete?", vbYesNo + vbQuestion, " Delete Record")

If answar = vbYes Then

Cells(Currentrow, 1).EntireRow.Delete

End If

End Sub

'Image Upload Button

Private Sub CommandButton8_Click()

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

X = Application.FileDialog(msoFileDialogOpen).Show

If X <> 0 Then

fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Image1.Picture = LoadPicture(fpath)

Image1.PictureSizeMode = fmPictureSizeModeClip

End If

End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

ImageDisplay

End Sub

'Add Text

Private Sub TextBox5_Change()

Call Module2.Add

End Sub

'Add Test

Private Sub TextBox6_Change()

Call Module2.Add

End Sub

Private Sub UserForm_Initialize()

'To check & create the folder

Currentrow = 2

TextBox1 = Cells(Currentrow, 1)

TextBox2 = Cells(Currentrow, 2)

TextBox3 = Cells(Currentrow, 3)

TextBox4 = Cells(Currentrow, 4)

TextBox5 = Cells(Currentrow, 5)

TextBox6 = Cells(Currentrow, 6)

TextBox7 = Cells(Currentrow, 7)

On Error Resume Next

Dim fObj As Object

Set fObj = CreateObject("Scripting.FileSystemObject")

profilepath = ActiveWorkbook.Path() + "\profiles"

If Not fObj.FolderExists(profilepath) Then

fObj.CreateFolder (profilepath)

End If

End Sub

थैंक यू उम्मीद हैं की आपको सभी सभी बटन समझने मैं सफल रहा होंगा ,

धन्यवाद

Learn How to Create Admission Form In VBA

2020-05-07T00:23:00.000+05:30

हेलो दोस्तों , कैसे हो आप सभी। दोस्तों मुझे पूरी उम्मीद हैं की आप ने एक्सेल के सभी सेशन को देखा होगा। अगर नहीं देखा हैं तो प्लीज जरूर देखिये और कुछ आप लोगो के सुझाव होंगे तो जरूर पोस्ट कीजिये। आज हम एक्सेल विसुअल बेसिक आप्लिकेशन मैं सीखेंगे की किसी क्लासेस का एडमिशन फॉर्म बनाना। यूजर फॉर्म बनाना , कमांड बटन , कॉम्बोबॉक्स का इस्तेमाल करना।

Form Design

आपको सबसे पहले फ़ील्ड्स को तयार करना हैं। जैसे आपको एडमिशन फॉर्म मैं क्या क्या डिटेल चाहिए।
जैसे नाम ,एड्रेस , डेट ऑफ़ बिरथ , कांटेक्ट नो रजिस्ट्रेशन नंबर , फीस ,पेड फीस , बैलेंस, कोर्स . यहाँ पर हम किसी कंप्यूटर क्लास का एडमिशन फॉर्म तयार करेंगे।

आपको एक्सेल शीट मैं ऊपर जैसी एक शीट बनानी हैं ताकि जब भी हम फॉर्म मैं एंट्री करे। उसकी डिटेल एक्सेल शीट मैं जाए।
१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक आप्लिकेशन सेलेक्ट करे।
२) इन्सर्ट मेनू पर क्लिक करे , यूजर फॉर्म सेलेक्ट करे।
3) टूल बॉक्स से फ्रेम सेलेक्ट करके यूजर फॉर्म पर ड्रैग करे। जिस से फॉर्म अच्छा लगे।
४) फ्रेम १ का नाम चेंज करने के लिए प्रोपेरिट्स मैं जाए। कैप्शन मैं एडमिशन फॉर्म टाइप करे। येलो हाइलाइटेड सेटिंग चेंज करे।

५) यूजर फॉर्म का नाम चेंज करे। यूजर फॉर्म से ग्लोबेनेट कंप्यूटर एजुकेशन। यूजर फॉर्म सेलेक्ट करे प्रॉपर्टीज पर क्लिक करे। कैप्शन मैं जाए और GlobeNet COMPUTER EDUCATION टाइप करे।

6) टूल बॉक्स से लेबल सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे और Name टाइप करे। बॉक्स को इफ़ेक्ट देने के लिए आप प्रॉपर्टीज बार से स्पेशल इफ़ेक्ट सेलेक्ट करे।

7) टूल बॉक्स से टेक्स्ट बॉक्स ab|सेलेक्ट करे .यूजर फॉर्म पर ड्रैग करे।

८) लेबल और टेक्स्ट बॉक्स दोनों को सेलेक्ट करे। कॉपी पेस्ट करे। और अभी कांटेक्ट लिखे और साइज छोटा करे।

९) दुबारा कॉपी पेस्ट करे और डेट ऑफ़ बर्थ टाइप करे ,

१०) टूल बॉक्स से ऑप्शन बटन सेलेक्ट करे जेंडर के लिए यूजर फॉर्म पर ड्रैग करे। १) मेल और २) फीमेल टाइप करे।

११) लेबल १ और टेक्स्ट बॉक्स १ करे। जहा पर नाम लिखा हैं और कॉपी पेस्ट करे। अब एड्रेस लिखे।

१२) टूल बॉक्स से कॉम्बोबॉक्स पर क्लिक करे और यूजर फॉर्म पर ड्रैग करे। यहाँ पर हम कॉम्बो बॉक्स को लिस्ट के लिए उपयोग करेंगे। जिस से हमे कोर्स के नाम दिखे। एड्रेस लेबल को कॉपी करे और पेस्ट करे। कोर्स लिखे।

१३) लास्ट फीलड हैं फीस जिसे आप लेबल और टेक्स्ट बॉक्स की हेल्प से ड्रैग कर सकते हो या कॉपी पेस्ट।

१४) अगर आप फॉर्म मैं स्टूडेंटन्स का फोटो ऐड चाहते हो तो टूल बॉक्स से इमेज सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे।

१५) फॉर्म पर हम एक बटन ऐड करेंगे जिस से जब भी हम फॉर्म फील करे और सबमिट बटन प्रेस करे तो वो डाटा वर्कशीट मैं ऐड हो जाये।

आप प्रॉपर्टीज से बटन का कलर भी चेंज कर सकते हो। फॉर्म को देखने के लिए रन बटन पर क्लिक करे

फाइनली आपका फॉर्म कुछ इस तरह से दिखाई देगा।

अभी हमने ऊपर फॉर्म को डिज़ाइन करना सिका है। वर्कशीट मैं जो भी फील्ड्स थी वो सभी फील्ड्स हमने फॉर्म मैं बना ली हैं। अब हम इस पर कोडिंग करके इसे एक्टिव करेंगे।

नोट: फॉर्म को कोडिंग पहले हम एक्सेल शीट मैं एक बटन बनाएंगे जिस से जब भी हम उस बटन पर क्लिक करे हमें एडमिशन फॉर्म दिखाई देना चाहिए।

आइये इसे समझते हैं।

Admission Form Button

वर्कशीट मैं एक शेप ड्रा करे। इन्सर्ट मेनू पर क्लिक करे ,शेप सेलेक्ट करे ड्रैग करे नाम दे ,एडमिशन फॉर्म

शेप पर राइट क्लिक करे असाइन मैक्रो पर क्लिक करे

मैक्रो का नाम दे। Abc_Click रन पर क्लिक करे आपको मॉडुल १ दिखाई देगा और प्रोग्राम टाइप करे ये।

नोट :प्रोग्राम आपको सब और एन्ड सब के बिच ही टाइप करना हैं।
UserForm1.show लिखने के बाद आप को रन बटन पर क्लिक करना हैं।
जब भी हम वर्कशीट के एडमिशन फॉर्म पर क्लिक करेंगे तो हमें फॉर्म दिखाई देना चाहिए।

अब हम देखंगे की ग्लोबेनेट कंप्यूटर एजुकेशन का एडमिशन फॉर्म काम कर रहा हैं या नहीं। उसके लिए कोर्स (कॉम्बोबॉक्स १) बटन पर कोडिंग करना होगा। जिस से की हमे कोर्स के नाम दिखाई दे।

ComboBox

१)डवलपर मेनू पर क्लिक करे
२)विसुअल बेसिक एप्लीकेशन बटन पर क्लिक करे।
३) यूजर फॉर्म १ को सेलेक्ट करे। डबल क्लिक करे यूजर फॉर्म को एक्टिव करे।
५)प्राइवेट सब कमांड बटन १ और एन्ड के बिच प्रोग्राम टाइप करे।

६) रन बटन पर क्लिक करे और एडमिशन फॉर्म मैं लिस्ट चेक करे ,

आप इसी तरह से और भी कोर्स के नाम ऐड कर सकते हो।

क्लियर बटन

Clear Button

अब हम फॉर्म मैं एक बटन और ऐड करेंगे। क्लियर बटन से एडमिशन फॉर्म मैं जो भी लिखा होगा वो क्लियर हो जायेगा।
१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक एप्लीकेशन सेलेक्ट करे।
२) यूजर फॉर्म १ सेलेक्ट करे ,
३) टूल बॉक्स से कमांड बटन सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे। या सबमिट बटन को कॉपी पेस्ट करे और नाम चेंज करे।
४) क्लियर बटन पर डबल क्लिक करे और प्रोग्राम टाइप करे।

५) रन बटन पर क्लिक करे और चेक करे फॉर्म मैं सभी फील्ड्स को फील करे और

६) क्लियर बटन पर क्लिक करे।

Submit Button

सबमिट बटन पर जब हम क्लिक करे , तभी सारे फ़ील्ड्स की डिटेल हमें एक्सेल शीट मैं दिखाई दे ,और साथ साथ हमें ये भी मैसेज दिखाई दे डुबलीकेट एंट्री , या कोई फीलड खाली तो नहीं हैं। अगर हैं तो हमें मैसेज दिखाई दे। ये सब हम इफ कंडीशन की हेल्प से करेंगे।

कंडीशन १

१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक एप्लीकेशन सेलेक्ट करे।

२) यूजर फॉर्म १ सेलेक्ट करे , सबमिट बटन पर डबल क्लिक करे।
३)यहाँ पर हम कांटेक्ट पर प्रोग्राम टाइप करेंगे। कांटेक्ट मैं सिर्फ नंबर ही टाइप हो टेक्स्ट नहीं तो उसके लिए हम टाइप करेंगे।

४)ऊपर वाले कोड को टाइप करे। और रन करके चेक करे। यहाँ पर हमने टेक्स्ट बोक्स लिखा हैं , क्युकी मोबाइल नंबर टेस्टबोक्स २ मैं हैं। मैसेज बॉक्स मैं मैसेज टाइप किया हैं।

५) अब आप फॉर्म मैं कांटेक्ट नंबर की जगह कोई भी टेक्स्ट लिखेंगे तो आपको मैसेज दिखाई देगा.

६) कांटेक्ट नंबर लिखंगे तो आपको ये मैसेज नहीं दिखाई देगा।

कंडीशन २

फीस के लिए हम कंडशन १ को कॉपी करके कंडीशन २ मैं पेस्ट करेंगे। ये सब सबमिट बटन मैं ही करना हैं। बस इस मैं तोड़े बदलाव करने हैं ,

यहाँ पर हमने टेस्टबोक्स १ के जगह टेक्स्ट बॉक्स ५ लिखा हैं। क्युकी फीस टेक्स्ट बॉक्स ५ मैं हैं। और मैसेज को चेंज किया हैं।

रन बटन पर क्लिक करे और प्रोग्राम चेक करे।

यहां पर आप देखंगे की फीस मैं टेक्स्ट टाइप करने के बाद जब आप सबमिट बटन पर क्लिक करते हो तो आपको ये मैसेज दिखाई देगा "Please Input Correct Value".

वैसे ही अगर आप DOB पर यह प्रोग्राम टाइप करना चाहो तो वो भी कर सकते हो। बस आपको चेंज करना होगा।

कंडीशन ३

अगर आप कोर्स नहीं सेलेक्ट करेंगे तो भी आप इसतरहा की कंडीशन लगा सकते हो. कमांड बटन मैं ये प्रोग्राम टाइप। करे

यहाँ पर हमने कंडीशन १ को ही कॉपी पेस्ट किया हैं बस टेस्टबोक्स की जगह कॉम्बोबॉक्स १ टाइप किया हैं और मैसेज को चेंज किया हैं। "Please Select Course" प्रोग्राम रन करे और चेक करे।

कंडीशन ४

यही कंडीशन आप जेंडर के लिए भी इस्तेमाल कर सकते हो। इस प्रोग्राम को कमांड बटन मैं टाइप करे।

यहां पर हम ऑप्शन १ मैं जहा पर मेल और ऑप्शन २ मैं फीमेल लिखा हैं उसे अगर ना सेलेक्ट करे तो मैसेज दिखाई देना चाहिए। "Please Select Gender" रन प्रोग्राम पर क्लिक करे और चेक करे

कंडीशन ५

यहाँ पर आप नाम को भी कंडीशन दे सकते हैं अगर कोई नाम के बॉक्स मैं नाम ना लिखे तो मैसेज दिखाई देना चाहिए , उसके लिए आप यह प्रोग्राम टाइप कर सकते हो।

यहाँ पर हम टेक्स्ट बॉक्स १ का इस्तेमाल करेंगे। और मैसेज बॉक्स मैं लिखंगे "Please Enter Studetn Name"

रन बटन पर क्लिक करे और चेक करे।

इस प्रोग्राम मैं हमने DOB और एड्रेस पर कोई कंडीशन नहीं दी हैं। अगर आप लगाना चाहो तो आप ये कर सकते हो। अभी हम इस फॉर्म को फिल करके सबमिट करेंगे तो आपका डाटा वर्कशीट मैं जाना चाहिए इसके लिए हमें कुछ और प्रोग्राम टाइप करना होगा। आइये देखते हैं। लेकिन उसे से पहले हम डुप्लीकेट कमांड भी देंगे। अगर कोई एंट्री दुबारा डाली जाये तो हमें उसका भी मैसेज दे।

डुप्लीकेट कंडीशन

यहाँ पर हमने डीम Af नाम वर्कशीट को दिया हैं। और रेंज ("A:A") कॉलम मैं अगर कोई भी नाम दुबारा टाइप किया जाये तो हमें मैसेज दिखाई देना चाहिए "डुप्लीकेट एंट्री"

यहाँ पर हमने पहली लाइन मैं डिम Sh नाम दिया हैं , और इफ कंडीशन की हेल्प से रेंज (A :A )कॉलम मैं जो भी दुबारा लिखा हो तो मैसेज डुप्लीकेट एंट्री दिखाई दे ,

फिर हमने फाइल का कोई डाटा डिलीट न करे इसके लिए इसे प्रोटेक्ट कर दिया हैं। पासवर्ड लगा कर। उसके बाद हमने

sh.Range)"A" & n+).value = me .Textbox१ .value लिखा हैं। इसका मतलब हैं अगर टेक्स्ट बॉक्स १ मैं अगर मैं नाम लिखू तो वो A कॉलम मैं जाये , वैसे ही टेक्स्ट बॉक्स २ ,३,४ मैं जो भी वैल्यू हैं वो वर्कशीट मैं अपनी जगह पर जाये। ऐसे।

अब अगर को डुप्लीकेट एंट्री लिखे तो हमें डुप्लीकेट मैसेज दिखाई दे।

सबमिट बटन पर एंटर करने के बाद हमारा डाटा तो वर्कशीट पर दिखाई देता हैं लेकिन जब हम फॉर्म पर दोबारा कोई एंट्री करनी होती हैं तो एडमिशन फॉर्म पर ओल्ड डाटा दिखाई देता हैं। उसे क्लियर करने के लिए हम क्लियर प्रोग्राम को कॉपी कर के सबमिट बटन मैं पेस्ट करेंगे।

यहाँ पर हमारा एडमिशन फॉर्म पूरी तरह से तयार हो गया है. इस मैं हमने क्लोज बटन ,ऐड इमेज बटन, नेक्स्ट और बैक बटन को भी ऐड किया हैं। आगे हम इनके बारे मैं भी जानेगे।

जब आप यहाँ पर बटन बनाने जायेगे तो आपको रिव्यु मेनू मैं जाकर वर्कशीट को उनप्रोटेक्ट करना होगा। मतलब पासवर्ड टाइप करना होगा। क्युकी हमने वर्कशीट को प्रोटेक्ट किया हैं। और हमारा यहाँ पासवर्ड हैं 123456

Close Button

क्लोज बटन पर डबल क्लिक करे। और प्रोग्राम टाइप करे।

अब रन बटन पर क्लिक करे और चेक करे। जब आप क्लोज बटन पर क्लिक करेंगे तो एडमिशन फॉर्म बंद हो जायेगा। आप फॉर्म को टॉप राइट साइड मैं क्रॉस बटन से भी क्लोज कर सकते हो।

Add Image Button

आपको एडमिशन फॉर्म पर बटन ड्रैग करना हैं। और उस नाम ऐड इमेज टाइप करना हैं। डबल क्लिक करके प्रोग्राम को टाइप करना हैं। जब आप ऐड इमेज बटन पर क्लिक करे तो प्रोग्राम आपको उस फोल्डर के लोकेशन ले जाये।

ऐड बटन के उप्पर आपको लिखना हैं Dim fpath As String और प्राइवेट सब बटन के अंधेर ऊपर वाला प्रोग्राम , इसमें मल्टीप्ल फाइल को नहीं सेलेक्ट करना हैं और एक ओपन फाइल का फोल्डर हो जहा से हम पिक्चर ले सके। और फिर हमने इफ दे कर कंडीशन दी हैं जो भी फाइल हम सेलेक्ट करे उसका साइज क्लिप मोड मैं हो। आप १,२,३ भी टाइप कर सकते हो।

अब प्रोग्राम को रन करे। ऐड इमेज बटन पर डबल क्लिक करे। और वो फोल्डर सेलेक्ट करे जहा पर आपकी इमेज हो। हम यहाँ पर इमेज को सेलेक्ट करेंगे। और ओपन पर क्लिक करेंगे।

जब आप इमेज को सेलेक्ट करेंगे तो आपको एडमिशन फॉर्म पर वो इमेज दिखाई देगी।

नोट : यहाँ पर फोटो साइज ८ से १5 KB के बीच रखनी हैं। नहीं तो आपकी फोटो इमेज बॉक्स से बहार जा सकती हैं।

निचे आपको सभी बटन की कोडिंग दी गई हैं।

Private Sub CommandButton1_Click()

'Mobile Number

If VBA.IsNumeric(Me.TextBox2.Value) = False Then

MsgBox "Please Enter Correct Number", vbCritical

Exit Sub

End If

'Fees

If VBA.IsNumeric(Me.TextBox5.Value) = False Then

MsgBox "Please Input Correct Value", vbCritical

Exit Sub

End If

'Course

If Me.ComboBox1.Value = "" Then

MsgBox "Please Select Course", vbCritical

Exit Sub

End If

'Gender

If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False Then

MsgBox "Please Select Gender", vbCritical

Exit Sub

End If

'student Name

If Me.TextBox1.Value = "" Then

MsgBox "Please Enter Studetn Name", vbCritical

Exit Sub

End If

'Duplicate

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Sheet1")

Dim n As Long

If Application.WorksheetFunction.CountIf(sh.Range("A:A"), Me.TextBox1.Value) > 0 Then

MsgBox "Duplicate Entry", vbCritical

Exit Sub

End If

n = sh.Range("A" & Application.Rows.count).End(xlUp).Row

sh.Unprotect "123456"

sh.Range("A" & n + 1).Value = Me.TextBox1.Value

sh.Range("B" & n + 1).Value = Me.TextBox2.Value

sh.Range("C" & n + 1).Value = Me.TextBox3.Value

sh.Range("E" & n + 1).Value = Me.TextBox4.Value

sh.Range("G" & n + 1).Value = Me.TextBox5.Value

sh.Range("F" & n + 1).Value = Me.ComboBox1.Value

If Me.OptionButton1.Value = True Then sh.Range("D" & n + 1).Value = "Male"

If Me.OptionButton2.Value = True Then sh.Range("D" & n + 1).Value = "Female"

sh.Protect "123456"

Me.TextBox1.Value = ""

Me.TextBox2.Value = ""

Me.TextBox3.Value = ""

Me.TextBox4.Value = ""

Me.TextBox5.Value = ""

Me.ComboBox1.Value = ""

Me.OptionButton1.Value = False

Me.OptionButton2.Value = False

Me.Image1.Visible = True

MsgBox "Add New Record", vbInformation

End Sub

Private Sub CommandButton2_Click()

Me.TextBox1.Value = ""

Me.TextBox2.Value = ""

Me.TextBox3.Value = ""

Me.TextBox4.Value = ""

Me.TextBox5.Value = ""

Me.ComboBox1.Value = ""

Me.OptionButton1.Value = False

Me.OptionButton2.Value = False

End Sub

'Clear

Private Sub CommandButton3_Click()

Unload Me

End Sub

Dim fpath As String

'ADD IMAGE

Private Sub CommandButton6_Click()

Dim x As Integer

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

x = Application.FileDialog(msoFileDialogOpen).Show

If x <> 0 Then

fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Image1.Picture = LoadPicture(fpath)

Image1.PictureSizeMode = fmPictureSizeModeClip

End If

End Sub

Private Sub UserForm_Activate()

With Me.ComboBox1

.Clear

.AddItem ""

.AddItem "MS-CIT"

.AddItem "Tally"

.AddItem "DTP"

.AddItem "Web-Designing"

.AddItem "Hardware"

.AddItem "English Speaking"

End With

End Sub

थैंक यू आशा करता हूँ आपको सभी कोड समझने मैं सफल रहा होऊंगा। अगर आपके पास कोई सुझाव या सवाल हैं तो प्लीज कमेंट बॉक्स मैं साझा करे। धन्यवाद।

Learn How to Create Form in VBA

2020-04-29T16:14:00.001+05:30

आज हमे सिख्नेगे एक्सेल मैं फॉर्म कैसे बनाते हैं।

हम यहाँ पर एक स्कूल का फॉर्म बनाना सीखेंगे और उसमें डाटा एंट्री कैसे करेंगे वो भी सीखेंगे। आइये शुरू करते है फॉर्म बनाना।

हमें कुछ इस तरह का फॉर्म बनाना हैं। इस फॉर्म मैं एंट्री करना बहुत ही आसान हैं। ;लेकिन इसी को अगर हमें डाटा एंट्री करने के लिए अलग फॉर्म बनाना हो तो हम क्या करेंगे।

1) फाइल मेनू पर क्लिक करे। ऑप्शन बटन सेलेक्ट करे।
२) क्विक एक्सेस टूलबार पर क्लिक करे
३)आल कमांड पर क्लिक करके फॉर्म सेलेक्ट करे.
४) ऐड बटन पर क्लिक करे
(नोट :अगर आप फॉर्म बटन को नई मेनू मैं ऐड करना चाहते हो तो आप नई पर क्लिक करे। )
५) ओके बटन पर क्लिक करे।

यहाँ पर आप देखंगे की आपका फॉर्म बटन सेव टूल्स के बाजु मैं ऐड हो गया हैं। अगर आप नई बटन सेलेक्ट करते हो तो फॉर्म नई मेनू मैं सेलेक्ट होगा।

फॉर्म बटन इस्तेमाल करने से पहले टेबल की हैडिंग को सेलेक्ट करे। या फील्ड को सेलेक्ट करे।

अब फॉर्म बटन पर क्लिक करे। आपको को इस तरह का मैसेज बॉक्स दिखाई देगा।

अब ओके बटन पर क्लिक करे। और आपका फॉर्म रेडी हैं।

इस फॉर्म मैं आप देखंगे की जो हैडिंग या फील्ड आपने सेलेक्ट किया हुआ था वो सब आपके फॉर्म मैं दिखाई देगी। अब जैसे आप फॉर्म मैं एंट्री करेंगे फॉर्म कम्पलीट करने के बाद आपको नई बटन पर क्लिक करना हैं। आप का डाटा आपके टेबल मैं सेव हो जायेगा।

अगर आप डाटा को एडिट करना चाहते हो तो आप फाइंड प्रीव्यू पर क्लिक करके एडिट कर सकते हो. नेक्स्ट डाटा पर जाने के लिए आप फाइंड नेक्स्ट पर क्लिक करे।

इसी तरह के बटन आप VBA मैं भी बना सकते हो। उसके लिए बस आपको यूजर फॉर्म का इस्तेमाल सीखना हैं। आइये इसे सीखते हैं।

Add and Sub Button

१) डेवलपर मेनू पर क्लिक करे ,विसुअल बेसिक पर सेलेक्ट करे।

२) विसुअल बेसिक मेनू से इन्सर्ट मेनू पर क्लिक करके। यूजर फॉर्म सेलेक्ट करे। (नोट यहाँ पर हम शीट २ पर काम कर रहें हैं। )

३) यूजर फॉर्म पर क्लिक करने के बाद आपका यूजर फॉर्म और टूलबॉक्स मेनू एक्टिव हो जायेगे।

टूलबॉक्स मैं लेबल पर क्लिक करे A पर और बॉक्स ड्रा करे।

१) प्रॉपर्टीज़ टूल्स पर क्लिक करे के कैप्शन मैं लेबल को चेंज करके ० टाइप करे ,

२)फॉण्ट साइज चेंज करे ४८,

३)एलाइनमेंट चेंज करे सेण्टर।

४)बैक कलर मैं जाकर कलर पेलेट्स पर क्लिक करे और अपना मनपसंद कलर ले ,

ADD BUTTON

ऐड बटन बनाने के लिए आपको टूलबॉक्स मैं से कमांड बटन पर क्लिक करे और उसे यूजर फॉर्म मैं ड्रैग करे।

१) प्रॉपर्टीज़ टूल्स पर क्लिक करे के कैप्शन मैं लेबल को चेंज करके ADD टाइप करे ,

२)फॉण्ट साइज चेंज करे 24 बोल्ड करे ,

३)एलाइनमेंट चेंज करे सेण्टर।

४)बैक कलर मैं जाकर कलर पेलेट्स पर क्लिक करे और अपना मनपसंद कलर ले ,

अब बटन पर प्रोग्राम करने के लिए ऐड बटन पर डबल क्लिक करे।

१) प्राइवेट सब कमांड _बटन १ का नाम चेंज करे और ऐड टाइप करे। प्रॉपर्टीज मैं नाम चेंज करे ऐड।

२) प्राइवेट सब ऐड बटन और एन्ड के बिच मैं प्रोग्राम टाइप करे।

UserForm1.Label1.Caption=UserForm1.Label1.Caption+1

यहाँ पर हमने प्रोग्राम मैं

UserForm1 लिया हैं क्यों की हम यूजर फॉर्म १ मैं काम कर रहें हैं।

लेबल १ लिखा क्युकी जो आप रिजल्ट देखने वाले हैं वो लेबल १ मैं दिखाई देगा।

कैप्शन अगर आपको याद हैं हमने कैप्शन मैं 0 टाइप किया है जहा पर वैल्यू चेंज होने वाली हैं।

उसके बाद = साइन लगा कर फिर से वही लिखा और कैप्शन के बाद + साइन लगाया। जिससे जब भी आप ऐड बटन पर क्लिक करेंगे तो नंबर बढ़ता जायेगा।

वैसे ही हम सब्ट्रैक बटन भी बनाएंगे।

SUB BUTTON

सब बटन बनाने के लिए आपको टूलबॉक्स मैं से कमांड बटन पर क्लिक करे और उसे यूजर फॉर्म मैं ड्रैग करे।

१) प्रॉपर्टीज़ टूल्स पर क्लिक करे के कैप्शन मैं लेबल को चेंज करके सब टाइप करे , या कमांड बटन को रहने दे.

२)फॉण्ट साइज चेंज करे 24 बोल्ड करे ,

३)एलाइनमेंट चेंज करे सेण्टर।

४)बैक कलर मैं जाकर कलर पेलेट्स पर क्लिक करे और अपना मनपसंद कलर ले ,

अब बटन पर प्रोग्राम करने के लिए सब बटन पर डबल क्लिक करे।

१) प्राइवेट सब कमांड _बटन २ का नाम चेंज करे और सब टाइप करे। प्रॉपर्टीज मैं नाम चेंज करे सब्ट्रैक्ट ।

२) प्राइवेट सब सब्ट्रैक्ट बटन और एन्ड के बिच मैं प्रोग्राम टाइप करे।

UserForm1.Label1.Caption=UserForm1.Label1.Caption-1

यहाँ पर हमने प्रोग्राम मैं

UserForm1 लिया हैं क्यों की हम यूजर फॉर्म १ मैं काम कर रहें हैं।

लेबल १ लिखा क्युकी जो आप रिजल्ट देखने वाले हैं वो लेबल १ मैं दिखाई देगा।

उसके बाद = साइन लगा कर फिर से वही लिखा और कैप्शन के बाद - साइन लगाया। जिससे जब भी आप सब बटन पर क्लिक करेंगे तो नंबर घटते जायेगा।

आप ऐड बटन पर क्लिक करेंगे तो नंबर ऐड होते जायेंगे

SUB बटन पर क्लिक करेंगे तो नंबर कम होते जायेंगे।

OPTION BUTTON

ऑप्शन बटन का नाम सुनकर आपको कौन बनेगा करोड़ पति की याद आई होगी। जी हां ओशन बटन मैं कुछ ऐसा ही हैं। सवाल एक और जवाब चार , लेकिन चार मैं से कोई एक ही सही जवाब होगा। आइये समझते हैं

इसे। इसमें सवाल के साथ जवाब भी ऑप्शन मैं रखेंगे।

सवाल : आपको कौन सी फिल्म पसंद हैं।

जवाब अ ) एक्शन

ब ) रोमांटिक

स) एनीमेशन

ड )कॉमेडीज़

१) एक्सेल मैं डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक पर क्लिक करे।

२) इन्सर्ट मेनू पर क्लिक करे और यूजर फॉर्म सेलेक्ट करे।

नोट:आप यूजर फॉर्म को छोटा या बड़ा कर सकते हो। यूजर फॉर्म के बॉर्डर पर आपको ब्लैक स्पॉट दिखाई दे रहें है उस पर क्लिक करे। आप चाहे तो यूजर फॉर्म का कलर भी चेंज कर सकते हो। प्रॉपर्टीज मैं जाकर।

३) टूलबॉक्स मैं से लेबल A पर क्लिक करे और सवाल टाइप करे।

४) टूलबॉक्स मैं ऑप्शन बटन पर क्लिक करे।

यूजर फॉर्म पर ड्रैग करे। और ओशन को निकाल कर जवाब लिखे। फिर चाहे इसे कॉपी पेस्ट करके। बचे हुए तीन बटन भी बना सकते हैं।

अगर आप चारों बटनो को एक लेवल मैं रखना चाहते हो तो आप शिफ्ट बटन प्रेस करके ऑप्शन बटन पर क्लिक करे। और चारों बटनो को सेलेक्ट करे।

फॉर्मेट मेनू पर क्लिक करे , अलीन सेलेक्ट करके लेफ्ट , सेण्टर,राइट या जैसा आप चाहे उसे एडजस्ट कर सकते हैं।

ABCD लिखने के लिए आप टूलबॉक्स से लेबल का इस्तेमाल करे।

अब हम यहाँ पर सबमिट बटन को भी ऐड करेंगे।

५) टूलबॉक्स मैं से बटन सेलेक्ट करके। यूजर फॉर्म पर ड्रैग करे।

६) सबमिट बटन पर डबल क्लिक करे। आपको व्यू कोड दिखाई देगा। अब आपको प्राइवेट सब कमांड बटन और एन्ड बटन के बिच प्रोग्राम टाइप करना हैं। या इस प्रोग्राम को कॉपी पेस्ट भी कर सकते हो।

यहाँ पर हम इफ कंडीशन का इस्तेमाल करेंगे।

If UserForm2.OptionButton1.Value= True Then

answer="Action"

हम यूजर फंक्शन २ मैं काम कर रहें है. ऑप्शन बटन १. अगर इसका जवाब सही हैं तो

जवाब ="एक्शन" ऐसे ही चारो प्रोग्राम टाइप करेंगे।

ElseIf UserForm2.OptionButton2.Value= True Then

answer="Romantic"

ElseIf UserForm2.OptionButton3.Value= True Then

answer="Animation"

ElseIf UserForm2.OptionButton4.Value= True Then

answer="Romantic"

Else

answer="Choose the Option"

End If

अगर कोई भी ऑप्शन सेलेक्ट करते हैं और वो सही हो तो आपको एक मैसेज बॉक्स दिखाई देगा।

MsgBox"you have selected" & Answer

End Sub

यहाँ पर हम ऑप्शन ब सेलेक्ट करते हैं तो आपको इसतरहा का मैसेज दिखाई देगा।

CHECKBOX

चेक बॉक्स मैं हम सीखेंगे की एक से ज्यादा ( मल्टीपल ) चीज़ो को सेलेक्ट करना। मान लीजिये आपको एक फॉर्म दिया गया और उस फॉर्म मैं एक सवाल है और चार ऑप्शन और आपको चारो सेलेक्ट करने हैं तब हम चेक बॉक्स का उपयोग करेंगे। आप इसे सर्वे फॉर्म मैं भी इस्तेमाल कर सकते हैं।
सवाल : आपको कौन सी आइसक्रीम पसंद हैं ?
चॉकलेट
वैनिला
स्ट्रॉबेरी
ब्राउनी बटर

सब से पहले एक्सेल मैं वर्कशीट /वर्कबुक मैं एक टेबल बना ले।

सभी आइसक्रीम के नाम के निचे वाली रौ मैं उनका नाम रेंज दे।
जैसे A2 "Chocolate_Range", B2 "Vanilla_Range", C2 "Strawberry_Range" and D2"Brownie_Butter"
रेंज नाम देने के लिए फार्मूला मेनू मैं जाकर , डिफाइन नाम पर क्लिक करे और नाम दे.

१)डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक सेलेक्ट करे।

२) इन्सर्ट मेनू पर क्लिक करे , यूजर फॉर्म सेलेक्ट करे।

३) टूलबॉक्स से लेबल सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे। लेवल को चेंज करे और सवाल लिखे.

४) टूल बॉक्स से चेक बॉक्स पर क्लिक करे। यूजर फॉर्म पर ड्रैग करे और चेक बॉक्स पर "चॉकलेट" जवाब टाइप करे।

५) "चॉकलेट" चेक बॉक्स को कॉपी करे। और पेस्ट करे , अब चॉकलेट को चेंज करे "वैनिला " से ये आपका चेकबॉक्स २ होगा। वैसे ही आप "स्ट्रॉबेरी" और "ब्राउनी बटर" को बी चेंज करे।

६) टूल बॉक्स से कमांड बटन सेलेक्ट करे और यूजर फॉर्म १ पर ड्रैग करे।

७)सबमिट बटन पर डबल क्लिक करे। प्राइवेट सब कमांड_बटन १ और एन्ड के बीच मैं प्रोग्राम टाइप करे।

If UserForm1.Checkbox1.value=True Then

ThisWorkbook.Sheets(1).Range("Chocolate_Range").Value=ThisWorkbook.Sheets(1).Range("Chocolate_Range").Value + 1

End IF

यहाँ पर हमने प्रोग्राम मैं ये बताया की अगर यूजर फॉर्म १ पर चेकबॉक्स १ पर वैल्यू हैं तो

जिस शीट १ पर आप ने रेंज का नाम दिया हैं वहा पर वैल्यू ऐड हो जाये , इसी लिए हमने वैल्यू के बाद +१ लिखा हैं जिस से की आप चॉकलेट जितनी बार सेलेक्ट करेंगे उतनी बार चॉकलेट मैं वैल्यू १ ऐड हो जायेगा।

वैसे ही हम बटन के अंदर सभी चेक बॉक्स के लिए प्रोग्राम टाइप करेंगे।

If UserForm1.Checkbox2 .value=True Then

ThisWorkbook.Sheets(1).Range("Vanilla _Range").Value=ThisWorkbook.Sheets(1).Range

("Vanilla _Range").Value + 1

End IF

If UserForm1.Checkbox3 .value=True Then

ThisWorkbook.Sheets(1).Range("Strawberry _Range").Value=ThisWorkbook.Sheets(1).Range

("Strawberry _Range").Value + 1

End IF

If UserForm1.Checkbox4 .value=True Then

ThisWorkbook.Sheets(1).Range("Brownie_Butter").Value=ThisWorkbook.Sheets(1).Range("Brownie_Butter").Value + 1

End IF

8) रन बटन पर क्लिक करे। जैसे ही आप रन बटन पर क्लिक करंगे एक्सेल आपको मैन वर्कबुक /वर्कशीट पर ले जायेगा

अब जैसे जी आप आइसक्रीम और वैनिला पर क्लिक करेंगे तो आपको चॉकलेट और वैनिला के रेंज मैं नंबर दिखाई देंगे।

जब आप चारो ऑप्शन को सेलेक्ट करेंगे तो आपको चारो रेंज मैं नंबर दिखाई देंगे।

LIST BUTTON

अगर आप लिस्ट ऑप्शन का इस्तेमाल करना चाहते हो तो आप सब से पहले एक्सेल शीट मैं किसी भी कॉलम मैं लिस्ट बना ले।

हमने ये लिस्ट शीट १ मैं बनाई हैं। इसलिए इसका एड्रेस होगा (Sheet1!J1:J10) (J1:J10) रेंज हैं।

१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक सेलेक्ट करे।

२) इन्सर्ट मेनू पर क्लिक करे और यूजर सेलेक्ट करे।

३) टूल बॉक्स से लिस्ट को सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे।

४) लिस्ट बॉक्स मैं राइट क्लिक करे प्रॉपर्टीज़ सेलेक्ट करे । या फंक्शन F4 बटन प्रेस करे। अब रौ सोर्स पर लिखे। (Sheet1!J1:J10)

जैसे ही आप रौ सोर्स मैं एड्रेस टाइप करेंगे आपको लिस्ट बॉक्स मैं लिस्ट दिखाई देगी।

५) लिस्ट बॉक्स पर डबल क्लिक करे प्राइवेट सब लिस्ट बॉक्स मैं क्लिक करे राइट साइड मैं क्लिक मैं डबल सेलेक्ट करे।

(By Val Cancel As MSForms.ReturnBoolean) मैसेज दिखाई देगा।

5) Private Sub मैं प्रोग्राम टाइप करे।

MsgBox UserForm3.ListBox1.Value

६) रन बटन पर क्लिक करे।

जैसे ही आप रन बटन पर क्लिक करेंगे आपको एक्सेल शीट मैं लिस्ट दिखाई देगी। आपको लिस्ट मैं से किसी भी एक आइटम को सेलेक्ट करना हैं। आपको मैसेज दिखाई देगा।

अब हमने यहाँ पर काजू द्राक्ष को सेलेक्ट किया। जैसे ही हम इसपर डबल क्लिक करेंगे आपको एक और मैसेज दिखाई देगा। उस प्रोग्राम का मतलब ये हैं।

HIDE/UNHIDE

इसमें हम सीखेंग फॉर्म को हाईड और un हाईड करना।

१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक सेलेक्ट करे।

२) इन्सर्ट मेनू पर क्लिक करे , यूजर फॉर्म सेलेक्ट करे।

३) टूल बॉक्स से फ्रेम बटन को यूजर फॉर्म पर ड्रैग करे। जैसे आपको इन्क्वारी फॉर्म दिखाई दे रहा है। आप फ्रेम चेंज करे।

४) टूल बॉक्स से लेबल पर क्लिक करे और यूजर फॉर्म पर ड्रैग करे। बॉक्स सेलेक्ट करे AB टूल बॉक्स से और नाम के साइड मैं ड्रैग करे।

५) लेबल और टेक्स्ट बॉक्स को सेलेक्ट करे और कॉपी पेस्ट करे।

६) एड्रेस लिखे फिर पेस्ट करे और कांटेक्ट लिखे

७)ऑप्शन बटन ड्रैग करे मेल लिखे कॉपी पेस्ट करे और फीमेल लिखे

८) सबमिट बटन ड्रैग करे , ये सभी बटन आपको फ्रेम पर ही बनाना हैं। यहाँ पर हमने फ्रेम के किसी भी बटन को प्रोग्राम नहीं करना हैं।

९) फ्रेम के बहार हाईड unhide का बटन बनाये। फिर डबल क्लिक करे और प्रोग्राम टाइप करे।

UserForm4.Frame1.Visible=Not UserForm4.Frame1.Visible

यहाँ पर हम यूजर फॉर्म ४ पर काम कर रहें हैं। फ्रेम १ विज़िबल लिखा

१०) रन बटन पर क्लिक करे

११) हाईड उन हाईड पर क्लिक करे।

इस प्रोग्राम मैं हम सिर्फ हाईड बटन को प्रोग्राम कर रहें हैं।

Login ID and UserId Form

इस प्रोग्राम मैं हम सीखेंगे की USER ID /LOGIN ID को बनाना।
१) डेवलपर मेनू पर क्लिक करे। विसुअल बेसिक सेलेक्ट करे।
२) इन्सर्ट मेनू पर क्लिक करे और यूजर फॉर्म सेलेक्ट करे।

३) टूल बॉक्स से लेबल को यूजर फॉर्म पर ड्रैग करे। Login ID टाइप करे।
४) टूल बॉक्स से टेक्स्ट बॉक्स ab| पर सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे।
५) लबले और टेक्स्ट बॉक्स को सेलेक्ट करे कॉपी पेस्ट करे और पासवर्ड टाइप करे।
६) टूल बॉक्स से कमांड बटन पर क्लिक करे और यूजर फॉर्म पर ड्रैग करे। OK टाइप करे।
७)टूल बॉक्स से कमांड बटन पर क्लिक करे और यूजर फॉर्म पर ड्रैग करे। टाइप cancel करे।
८)अब ok बटन पर डबल क्लिक करे और प्रोग्राम टाइप करे.

LoginID = UserForm1.TextBox1.Value
Password = UserForm1.TextBox2.Value
If LoginID <> "" And Password <> "" Then
MsgBox "Login Success"
UserForm1.Hide
Else
MsgBox "Please Input Value"
End If

९) रन बटन पर क्लिक करे।

इस प्रोग्राम मैं हमने if loginId <>"" and Password<>"" का प्रयोग किया हैं। क्युकी हमें लॉगिन id और पासवर्ड मैं कुछ वैल्यू टाइप करना हैं अगर कोई इनपुट होगा तो प्रोग्राम मैं एक मैसेज आएगा लॉगिन सक्सेस और फॉर्म हाईड हो जायेगा

और अगर प्रोग्राम ब्लेंक होगा तो हमे एक मैसेज दिखाई देगा प्लीज इनपुट वैल्यू.

१०) कैंसिल बटन पर डबल क्लिक करे और प्रोग्राम टाइप करे।
Unload me

जब आप कैंसिल बटन पर क्लिक करेंगे तो आपका प्रोग्राम कैंसिल हो जायेगा।

आइये इसका रिटल देखते है।

अब तक हमने एक्सेल विसुअल बेसिक एप्लीकेशन मैं टूल बॉक्स और यूजर फॉर्म के बारे मैं लगभग जान लिया हैं। उस पर कैसे प्रोग्राम करते हैं इससे भी हमने समझा। अब हम आगे अगले सेशन मैं फॉर्म बनायेगे।

धन्यवाद।

VBA

2020-04-24T20:16:00.005+05:30

VBA

VBA की परिभाष VISUAL BASIC APPLICATION ये एक प्रोग्रामिंग एप्लीकेशन हैं जो की एक्सेल मैं बहुत ही उपयोगी हैं। ये किसी भी टास्क को आसानी से कर सकता है खासकर जो हम एक्सेल मैं हर रोज़ करते हैं। पिछेल ब्लॉग मैं हमने एक्सेल मैं डेवलपर टूल का इस्तेमाल करते हुए मैक्रो को जाना। अब इसे तोडा और गहराई से समजेंगे।

एक्सेल VBA को समझने के लिए हमें सब से पहले उसके वेरिएबल को जानना होगा।

वेरिएबल एंड डाटा टाइप

हमे प्रोग्रामिंग करने के लिए जो इनफार्मेशन चाहिए होती हैं वरियलबे उसे स्टोर करता हैं। जब हम अलग -अगल डाटा पर काम करते हैं तब हम अलग -अलग वेरिएबल को भी चुनते हैं। इसे ब्लॉग मैं हम जानेगे वेरिएबल और टाइप और वेरिएबल को। Variable एक स्टोरेज एरिया है, जिसका यूज यूजर data या value को स्टोर करने के लिए करता है ! वेरिएबल में डाटा स्टोर रहता है और प्रोग्राम एग्जीक्यूशन के समय यूजर कभी भी इसे बदल सकता है !

जब भी हम कोई प्रोग्राम बनाते हैं तो हमें सबसे पहले वेरिएबल को declare करना होता है ! वेरिएबल declare करने के बाद इसे बराबर के चिन्ह (=) के साथ एक वैल्यू दे दी जाती है, जैसे- a=4; या x=10; आदि !

उदाहरण के तौर पर मैं आपको बता दूं जैसे हम किसी व्यक्ति का name और age वेरिएबल में स्टोर करना चाहते हैं, तो इसके लिए हमें दो वेरिएबल लेनी पड़ेगी ! एक वेरिएबल में हम व्यक्ति का name और दूसरे वेरिएबल में age स्टोर करेंगे !

वेरिएबल को कैसे डिक्लेअर करते हैं।
किसी भी वेरिएबल को डिक्लेअर करने के लिए हम डिम या डायमेंशन स्टेटमेंट का उपयोग करते हैं।

वरियलबे नाम मतलब जो हम एक्सेल को बताना चाहते हैं। वेरिएबल को समझने से पहले हमें उसके कुछ रूल्स को समझना होगा। निचे देखे।
१) कम से कम २५५ करैक्टर का होना चाहिए।
२) ब्लेंक स्पेस और स्पेशल कैरेक्टर्स नहीं होने चाहिए।
३) इसकी शुरुआत किसी भी नंबर से नहीं होनी चाहिए।

DATA TYPE
डाटा टाइप २ प्रकार के होते हैं।
१) NUMERIC OR 2) NON-NUMERIC TYPE

NUMERIC TYPE

निचे दिए हुए टेबल मैं सभी न्यूमेरिक टाइप के उदाहरण हैं। (बाइट , इन्टिजर, लॉन्ग,करेंसी ,सिंगल,और डबल )

NON-NUMERIC TYPE

निचे दिए हुए टेबल मैं सभी नॉन न्यूमेरिक टाइप के उदाहरण हैं।( स्ट्रिंग ,डेट , बूलियन , ऑब्जेक्ट, वैरिएंट )

OPERATORS AND OPERANDS

किसी भी प्रोग्रामिंग भाषा में प्रयोग किये जाने वाले operators वे संकेत होते हैं जो कि कंप्यूटर कम्पाइलर को गणितीय या लॉजिकल संगणनाएं करने के लिए निर्देश देते है.और

जिस मात्रा वैल्यू पर एक गणितीय ऑपरेशन किया जाता है। उसे ओपेरंडस कहते हैं।

अगर न्यूमेरिक वैल्यू हैं तो कंप्यूटर उसे ० वैल्यू से डिफाइन करता हैं। अगर ब्लेंक स्पेस से शुरू हो तो उसे स्ट्रिंग और अगर आप अपना कोई वेरिएबल लगना चाहो तो = से स्टार्ट कर सकते हो।

_लाइन कॉन्टीनुअशन ऑपरेटर

You can use space + underscore to split a single statement into more than one line

“” डबल कोट्स

You can use “” to delimit a group of characters and symbols.

: कोलन ऑपरेटर

You can use : to put the two statements in a sing line.

& स्ट्रिंग कॉन्कटेनशन

It is used to concatenate tow strings.

Arithmetic Operators

arithmetic ऑपरेटर्स का प्रयोग आंकिक गणनाओं के लिए किया जाता है. VBArithmetic ऑपरेटर + का प्रयोग जोड़ (addition) के लिए, – का प्रयोग घटाने (substraction) के लिए, * का प्रयोग गुणा (multiply) के लिए, / का प्रयोग भाग (dividation) तथा % का प्रयोग भाग-अवशेष (modulo division) के लिए किया जाता है.

Logical Operators

लॉजिकल ऑपरेटर का प्रयोग variables में लॉजिकल ऑपरेशन करने के लिए किया जाता है.

Conditional Statements in Excel VBA – If Else, Case, For, Do While, Do Until, Nested Ifs.

यहाँ पर हम इफ इस्टेट्मेंट का एक उदाहरण देखंगे।

if statement सही होगा then तब क्या होगा।

Program1

Dim Score as Interger, result as String
Score=Range("B5").value
if Score >= 91% Then Result = "Excellent"
Range("C5").value=Result

इस प्रोग्राम से ये पता चलेगा B5 मैं जो वैल्यू हैं अगर वो ९१ % से ज्यादा या उसके बराबर हैं तो
C5 मैं उसका रिजल्ट एक्सीलेंट लिखा हुआ आना चाहिए।

सोलूशन्स
१)शीट १ मैं डेवलपर मेनु पर क्लिक, करे। इन्सर्ट पर क्लिक करके एक्टिव x कण्ट्रोल कमांड बटन को सेलेक्ट करे।

२) शीट १ पर बटन को ड्रैग करे। या बनाये।

३)बटन पर डबल क्लिक करे या राइट क्लिक करके व्यू कोड सेलेक्ट करे।

४)अब व्यू कोड के अंदर प्रोग्राम को कॉपी करके पेस्ट करे। प्राइवेट सब कमांड बटन और एन्ड सब के बीच पेस्ट करे।

५)उसके बाद रन बटन पर क्लिक करे।

६) अब B5 मैं ९१ टाइप करे या कोई और वैल्यू।

७) बटन पर क्लिक करे

आपको रिजल्ट मैं एक्सीलेंट लिखा हुआ दिखाई देगा।

if else Program

अगर आप चाहते हो की ९१ के निचे वाले वैल्यू पर कुछ और इनपुट मैसेज आये तो आप यह प्रोग्राम लिखे.

Else

Result= "Please insert correct Value."

End if

पहले के प्रोग्राम मैं हम इस प्रोग्राम को भी ऐड कर देंगे। आपको प्रोग्राम कुछ इस तरह दिखाई देगा।

पहले के प्रोग्राम मैं हमने देखा की b5 मैं जो वैल्यू हैं अगर वो ९१ से ज्यादा या उसके बराबर हो तो हमें C5 मैं रिजल्ट एक्सीलेंट दिखाई देना चाहिए ,

और जब हम इस प्रोग्राम को ऐड करेंगे तो वैल्यू ९१ के निचे हो तो इनपुट मैसेज मैं "प्लीज इनपुट करेक्ट वैल्यू" दिखाई देना चाहिए।

रन बटन पर क्लिक करे और कुछ और वैल्यू टाइप करे b ५ मैं आपको कुछ ऐसा दिखाई देगा

प्रोग्राम २ VBA मैं लॉजिकल ऑपरेटर्स का सबसे ज्यादा इस्तेमाल AND, OR, NOT फंक्शन मैं होता हैं।

Dim Rahul As Integer, Raj As Integer, Result As Sting
Rahul= Range("B2 ").Value
Raj=Range("C2 ").Value
If Rahul >=91 And Raj>50 Then Result ="Great"
Else
Result="Not Good"
End If
Range("D2 ").Value=Result

इस प्रोग्राम के माध्यम से हम ये समझना चाहते हैं की राहुल के मार्क्स >= ९१ हैं और राज के मार्क्स > ५० हैं तो रिजल्ट d2 मैं "ग्रेट" लिखा हुआ होना चाहिए। अन्यथा "नॉट गुड " इस प्रोग्राम मैं हम एंड फंक्शन का इस्तेमाल करेंगे।

सब से पहले आप इसतरहा का टेबल बना लीजिये समझने के लिए।

१)डेवेलपर टूल पर क्लिक करे इन्सर्ट पर क्लिक करे एक्टिव x से कमांड बटन सेलेक्ट करे।
२)वर्कशीट पर बटन को ड्रैग करे।
३)बटन पर डबल क्लिक करे।
४)अब व्यू कोड के अंदर प्रोग्राम को कॉपी करके पेस्ट करे। प्राइवेट सब कमांड बटन और एन्ड सब के बीच पेस्ट करे।

५)उसके बाद रन बटन पर क्लिक करे। अगर जवाब सही होगा तो आपको रिजल्ट ऐसा दिखाई देगा।

अगर जवाब गलत होगा तो रिजल्ट ऐसा दिखाई देगा।

OR फंक्शन भी ऐसे ही काम करेगा। बस आपको ऊपर के प्रोग्राम मैं एंड की जगह पर और लगाना हैं।

वैसे ही एंड एंड आगे अगर आप नॉट को जोड़ दो तो नॉट फंक्शन भी ऐसे ही काम करेगा

Case Function in VBA

अगर आप एक से ज्यादा कंडीशन का इस्तेमाल कर रहें हो तो आप Case फंक्शन का इस्तेमाल कर सकते हो।

मान लीजिये अगर राहुल को एग्जाम मैं >=४५ PASS , >=55 THIRD CLASS >=65 SECOND CLASS, >=75 FIRST CLASS, >=100 DISTINCTION इस का प्रोग्राम कुछ इस तरह होगा।

Dim Rahul As Integer, Result As String

Rahul= Range("A2").Value

Select Case Rahul

Case Is >=45

Result="Pass"

Case Is >=55

Result="Third Class"

Case Is >=65

Result="Second Class"

Case Is >=75

Result="First Class"

Case Is >=100

Result="Distinction

Case Else

Result="Fail"

End Select

Range("B2").Value=Result

इस प्रोग्राम मैं हम समझेंग सेलेक्ट केस से यहाँ पर हमने ६ कंडीशन लगाई हुई हैं। जिसके लिए हमने सेलेक्ट केस फंक्शन का इस्तेमाल किया हैं। केस राहुल को करके उसके मार्क्स को बताया हैं। और उस का रिजल्ट B2 मैं दिखना चाहिए।

सबसे पहले हम एक टेबल बना लेते हैं

१)वर्कशीट मैं कमांड बटन ड्रैग करेंगे

२) बटन पर डबल क्लिक करेंगे।

३)सेलेक्ट केस प्रोग्राम को कॉपी करके। प्राइवेट सब और एन्ड के बीच पेस्ट करेंगे।

४) रन बटन पर क्लिक करेंगे।

५)अब वर्कशीट पर राहुल B2 मैं मार्क्स लिखंगे और

६) कमांड बटन प्रेस करेंगे।

ऐसे ही आप अलग-अलग नंबर लिखा कर रिजल्ट देखते जाइये।

Nested Ifs

यहाँ पर हम समझेंगे नेस्टेड इफ फंक्शन को ये मैक्रो मैं कैसे काम करता हैं। इस प्रोग्राम मैं हम मैसेज बॉक्स बनाएंगे। जो हमे मार्क्स इन्सर्ट करने पर उसका रिजल्ट बताएगा।

Mrks=InputBox("Insert Numbers", "Marks")

IfMrks<=100 andMrks>=90 Then

MsgBox"Result:Excellent"

ElseIf Mrks <90 And Mrks>=75 Then

MsgBox"Result:Distinction"

ElseIf Mrks <74 And Mrks>=65 Then

MsgBox"Result:First Class"

ElseIf Mrks <64 And Mrks>=55 Then

MsgBox"Result:Second Class"

ElseIf Mrks<54 And Mrks>=45 Then

MsgBox"Result:Third Class"

ElseIf Mrks<44 And Mrks>=35 Then

MsgBox"Result: Pass Class"

Else

MsgBox"Result:Fail"

End IF

1) डेवलपर मेनू पर क्लिक करे , इन्सर्ट पर क्लिक करके बटन ड्रैग करे।

२) बटन पर डबल क्लिक करे

३) प्राइवेट सब मैं प्रोग्राम टाइप करे या कॉपी पेस्ट करे।

४) रन बटन पर क्लिक करे।

५) अब नंबर इन्सर्ट करे। जो नंबर चाहो।

६) ऑक बटन पर क्लिक करे।

यहाँ पर आपको रिजल्ट कुछ इसतरहा दिखाई देगा। आप इस फाइल को सेव करे एक्सेल मैक्रो इनेबल वर्कबुक एक्सटेंशन के साथ।

प्रोपेरिट्स

यहाँ पर अगर आप बटन का कलर चेंज करना चाहते हो तो वो भी कर सकते हो या बटन पर कमांड बटन जगह कुछ और लिखना चाहते हो वो भी कर सकते हैं आइये।

१) डेवलपर मेनू पर क्लिक करे इन्सर्ट बटन पर क्लिक करके बटन ड्रैग करे।

२) बटन पर डबल क्लिक करे।

३) प्रॉपर्टीज पर क्लिक करे या व्यू पर क्लिक करे और प्रॉपर्टीज विडोस पर क्लिक करे या F4 क्लिक करे।

४) अगर आप नाम चेंज करना चाहते हो तो प्रॉपर्टीज मैं कैप्शन पर क्लिक करे और नाम चेंज करे। (Button)

5) अगर आप बटन का कलर चेंज करना चाहते हो तो , बैककलोर पर क्लिक करे।

६) टेक्स्ट का कलर चेंज करना चाहते हो तो , फोरे कलर पर क्लिक करे। इसी तरह से आप अलिगनेमण्ट चेंज

दोस्तों यहाँ पर हमने सीखा की बटन को किस तरह से कोडिंग करते हैं कल फिर मिलेंगे किसी नए टॉपिक के साथ तब तक के अपना ख्याल रखे। धन्यवाद।