How to use Multiple Page in Userform VBA

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

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

४)  पेज १ और पेज २ का नाम चेंज करे , पर्सनल इनफार्मेशन ,  फेवरेट एक्टर फोटो
५) लेवल सेलेक्ट करे  नाम लिखे नाम और 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

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