Page 458 - CITS - CSA - TP (Volume 1) - Hindi
P. 458
कंप्यूटर सॉफ्टवेयर एप्लीकेशन- CITS
यह VBA कोड cmdsubmit नामक बटन के क इव ट से जुड़ा आ है। कोड यह करता है:
1 वै रएबल घोषणा (Variable Declaration) :
• row As Long: row नामक वै रएबल को Long डेटा टाइप के प म घोिषत करता है। इस वै रएबल का उपयोग यह िनधा रत करने के िलए
िकया जाएगा िक नया डेटा कहाँ दज िकया जाएगा।
2 Sheet4 को सि य करना (Activating Sheet4) :
• Sheet4.Activate: यह लाइन सुिनि त करती है िक Sheet4 वह सि य शीट है जहाँ डेटा दज िकया जाएगा।
3 अगली खाली पं का िनधा रण (Determining the Next Empty Row) :
• पं = WorksheetFunction.CountA(Range(“A:A”)) + 1: यह पं सि य वक शीट (शीट4) के कॉलम A म अगली खाली पं
की गणना कॉलम A म गैर-खाली कोिशकाओं की सं ा की गणना करके और 1 जोड़कर करती है। यह WorksheetFunction ऑ े
के CountA फ़ं न का उपयोग करता है।
4 से को मान िनिद करना (Assigning Values to Cells) :
• बाद की पं याँ िविभ टे बॉ (txtid, txtname, txtbp, txtda, txthra, txtded, txtts, txtns) म िदए गए इनपुट के आधार पर
सि य वक शीट (शीट4) म से को मान िनिद करती ह ।
• ेक मान िनधा रत पं म एक िविश कॉलम को िनिद िकया जाता है, िजससे कम चारी की जानकारी और वेतन िववरण ोर िकया जा
सकता है।
5 डेटा एं ट ी (Data Entry) :
• टे बॉ (txtid, txtname, आिद) से डेटा शीट 4 के िनिद कॉलम म अगली खाली पं म दज िकया जाता है।
यह कोड अिनवाय प से उपयोगकता ओं को “सबिमट” बटन (cmdsubmit) पर क करके ए ेल वक बुक की शीट 4 म कम चारी िववरण और
उनकी संबंिधत वेतन जानकारी दज करने की अनुमित देता है। यह अगली खाली पं िनधा रत करने और उसके अनुसार आव क जानकारी भरने
की ि या को चािलत करता है।
• ेप (Step) 8: उपयोगकता ारा क िसल बटन पर क करने पर फ़ॉम को बंद करने के िलए एक िविध जोड़ ।
Private Sub cmdcancel_Click()
Unload Me
End Sub
उपयु VBA कोड cmdcancel नामक बटन के क इव ट से जुड़ा आ है। कोड यह करता है:
1 अनलोड फ़ॉम (Unload Form) :
• Unload Me: यह लाइन VBA कोड से जुड़े उपयोगकता फ़ॉम को अनलोड ( ोज़) करती है। मी कीवड फ़ॉम के वत मान इं स को संदिभ त
करता है जहाँ VBA कोड थत है। जब उपयोगकता “र कर ” बटन (cmdcancel) पर क करता है, तो अनलोड मी भावी प से फ़ॉम
को बंद कर देता है।
• ेप (Step) 9: उपयोगकता ारा साफ़ कर बटन पर क करने पर फ़ॉम को साफ़ करने के िलए एक िविध जोड़ । Private Sub cmdclear_
Click()txtid.Value = “ “
442
CITS : IT & ITES - कं ूटर सॉ वेयर ए ीके शन - अ ास 71
CITS : IT & ITES - Computer Software Application - Exercise 71
