Search Entry Form Excel 4

इस Search Entry Form Excel 4 के पार्ट में कैसे फॉर्म के लिए एक टूलबॉक्स बनाये तथा Update, Delete व Reset button का फार्मूला सेट करना सीखेंगे| इसके तीसरे पार्ट को जरूर देखें यहाँ

  • अब आप Form में Update बटन पर डबल क्लिक करके उसके फार्मूला पेज पर आये व अपडेट का निचे दिया गया फार्मूला टाइप करें|
Dim x As Long
Dim y As Long
x = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x

If Sheet1.Cells(y, "A").Text = TextBox11.Text Then
Sheet1.Cells(y, "A") = TextBox1.Text
Sheet1.Cells(y, "B") = TextBox2.Text
Sheet1.Cells(y, "C") = TextBox3.Text
Sheet1.Cells(y, "D") = TextBox4.Text
Sheet1.Cells(y, "E") = TextBox5.Text
Sheet1.Cells(y, "F") = TextBox6.Text
Sheet1.Cells(y, "G") = TextBox7.Text
Sheet1.Cells(y, "H") = TextBox8.Text
Sheet1.Cells(y, "I") = TextBox9.Text
Sheet1.Cells(y, "J") = TextBox10.Text
End If
Next y
  • और इसी तरह आप Form में Delete बटन पर डबल क्लिक करके उसके फार्मूला पेज पर आये व डिलीट का निचे दिया गया फार्मूला टाइप करें|
Dim x As Long
Dim y As Long
x = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x

If Sheet1.Cells(y, "A").Text = TextBox11.Text Then
Rows(y).Delete shift:=xlUp
End If
Next y
  • और इसी तरह आप Form में Reset बटन पर डबल क्लिक करके उसके फार्मूला पेज पर आये व रिसेट का निचे दिया गया फार्मूला टाइप करें |
Unload Me
UserForm1.Show
  • अब इस फॉर्म का पूरा फार्मूला आपने टाइप कर दिया तो विसुअल बेसिक को क्लोज करके एक्सेल पेज पर आ जाये | यहाँ आपको Search Entry Form को ओपन करने के लिए एक टूलबॉक्स Home Menu में क्रिएट करना होगा |
  • इस एक्सेल शीट पर एक शेप ड्रा करे |
  • इस शेप पर राईट क्लिक करके Assign Macro पर क्लिक करें|
  • आपके सामने Assign Macro का नया विंडो ओपन होगा जिसमे New बटन पर क्लिक करें |
  • और इस एक Module ओपन होगा जिस पर निचे दिया गया फार्मूला टाइप करें| और इस Module को क्लोज करें|
UserForm1.Show
  • हम Home मेनू पर माउस राईट क्लिक करके Customize the Ribbon आप्शन पर क्लिक करें| आपके सामने Excel Option का एक विंडो ओपन होगा|
  • इस विंडो कस्टमाइज the रिबन कॉलम साइड में Home आप्शन क्लिक करके सेलेक्ट करे उसके बाद निचे दिए गए New Group बटन पर क्लिक करें
  • New Group पर क्लिक करते ही Home मेनू में एक टूलबॉक्स आएगा जिसे रीनेम करने के लिए Rename Button पर क्लिक करें व उसका कोई नाम टाइप कर दें |
  • अब इस Form टूलबॉक्स को जिसे आपने अभी Home Menu में बनाया है उसे क्लिक करकें सेलेक्ट रखे और पहले कॉलम Choose Command From में Macros को सेलेक्ट करेंगे |
  • यहाँ आपको जो शेप आपने एक्सेल पर बनाया व उसपे Macro असाइन किया था वह दिखाई देगा जिसे क्लिक करके सेलेक्ट करे व दोनों कॉलम के बीच Add बटन पर क्लिक कर दें इससे यह Assign Button आपके द्वारा बनाये गए नए Toolbox में Add हो जायेगा | और लास्ट में आप निचे दिए गए OK बटन पर क्लिक करें|
  • अब आप एक्सेल पर आ जाये व जो शेप आपने बनाया था Use सेलेक्ट करके डिलीट कर दें और साथ Home मेनू में देखें तो आपको एक टूलबॉक्स लास्ट में दिखेगा जिसमे एक टूल भी दिखाई देगा जिस पर क्लिक करके कभी भी आप एक्सेल पर अपने फॉर्म को ओपन कर सकते है|

Leave a Reply

error: VedantSri Content is protected !!