एमएस एक्सेल, क्या मैक्रो हैं, या शिक्षकों से बिल के लिए धन्यवाद

प्रशिक्षण में एमएस एक्सेल का उपयोग करने का विचार बहुत पहले पैदा हुआ था। VBA प्रोग्रामिंग पर समान विषयों वाले मंचों पर, आप मैक्रोज़ सर्वशक्तिमान होने का उल्लेख करते हैं। क्या ऐसा है?



चेतावनी

यह लेख बेकार हो जाएगा, दिलचस्प नहीं, घृणित और ग्रह पृथ्वी के 99.9999999% से अधिक अप्रभावी, जिसमें स्वयं बिल भी शामिल है, साथ ही साथ किसी भी शैक्षणिक संस्थान के अधिकांश शिक्षक भी।

समस्या का बयान

जैसा कि आप जानते हैं, बोलोग्ना प्रक्रिया रूसी अल्मा मेटर के साथ छलांग और सीमा से गुजरती है। और कई पहले से ही ज्ञान मूल्यांकन ( http://study.engr.pfu.edu.ru/ ) के एक बिंदु-रेटिंग प्रणाली (BRS) पर स्विच कर चुके हैं। और यह अतिरिक्त रूप से शिक्षकों पर एक अतिरिक्त श्रम शुल्क लगाता है: शैक्षणिक प्रदर्शन पर नज़र रखने और इंटरनेट पर लगातार डेटा प्रकाशित करने के लिए।



इसके अलावा, पूर्व बीआरएस से पहले मौजूद था, लेकिन बाद में प्रत्येक दास विषय के लिए डेटा की एक बड़ी सरणी के निरंतर स्कोरिंग और छानबीन की आवश्यकता होती है। और अनुशासन में कई धाराएं हो सकती हैं, 60 लोग आसानी से। यानी हर महीने औसतन 100 एंट्री प्रत्येक कर्मचारी द्वारा इंटरनेट पर डाली जाती हैं। यह सभी के लिए अलग-अलग तरीकों से "आनंद" लेता है। उदाहरण के लिए, मेरे पास जाँच करने के लिए लगभग एक घंटा और दूसरा आधा है। और यह केवल संस्थानों में ही नहीं है। स्कूलों में, अपने बच्चों के ऑनलाइन ग्रेड जानने की प्रवृत्ति भी दिखाई देती है। बेशक, यह किसी भी तरह से भुगतान नहीं किया जाता है। आइए इस प्रक्रिया को स्वचालित करने का प्रयास करें।

एक्सेल बचाव में आएगा

बिल, हालांकि वे आपको प्यार नहीं करते, लेकिन उन शिक्षकों से जो विंडोज और ऑफिस के हैक किए गए संस्करण का उपयोग करते हैं, आपको बहुत बहुत धन्यवाद रूसी!



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



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

प्रकाशन के लिए, आपको पहले गंतव्य पृष्ठ के HTML कोड को पार्क करना होगा और यह निर्धारित करना होगा कि यह किस क्षेत्र या उस छात्र का है।



HTML प्राप्त करें

Function JabberGET(ByVal Urlka As String) As String

Dim objHTTP As Object

Set objHTTP = CreateObject("MSXML2.XMLHTTP")

objHTTP.Open "GET", Urlka, False

objHTTP.setRequestHeader "Accept", "text/html"

objHTTP.setRequestHeader "Accept-Language", "ru-ru,ru"

objHTTP.setRequestHeader "Accept-Encoding", "gzip,deflate"

objHTTP.setRequestHeader "Accept-Charset", "windows-1251"

objHTTP.setRequestHeader "Keep-Alive", "115"

objHTTP.setRequestHeader "Connection", "keep-alive"

objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send Empty

Debug.Print objHTTP.responseText

JabberGET = objHTTP.responseText

End Function









पार्सिंग नियमित अभिव्यक्तियों द्वारा किया जाता है:

Dim RegEx As RegExp, RegMatch As MatchCollection

Dim myMatch As Match

Set RegEx = New RegExp

'String to parse

With RegEx

.MultiLine = True

.IgnoreCase = True

.Global = True

End With

RegEx.Pattern = "discipline_id..value=.\d{3,4}.|\s>\s.*<..>"

Set RegMatch = RegEx.Execute(MyStr)

If RegMatch.Count > 0 Then

For Each myMatch In RegMatch



Next

End If









फिर हम इंटरनेट एक्सप्लोरर को फाड़ते हुए कोड लिखते हैं और "नेक्स्ट" बटन पर निम्न रूप से अपनी आवश्यकता के अनुसार लिखते हैं:

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

Application.DisplayAlerts = False

url = "http://study.engr.pfu.edu.ru/index.php"

IE.Navigate "http://study.engr.pfu.edu.ru/tutor/logout.php"

While IE.Busy: DoEvents: Wend 'wait until IE is done loading page.



IE.Navigate url

Do Until IE.ReadyState = READYSTATE_COMPLETE: Loop



While IE.Busy: DoEvents: Wend 'wait until IE is done loading page.

IE.Visible = True

'ie is now done loading the page

IE.Document.all("valid_tutor_login").Value = getpass(0)

IE.Document.all("valid_tutor_password").Value = getpass(1)



Call ckickBtn("", IE)

While IE.Busy: DoEvents: Wend 'wait until IE is done loading page.

SubjCod = CoursGroupNumber(2, GroupNum)



For Each btn In IE.Document.all.tags("Input")

X = btn.Value

If btn.Value = SubjCod Or btn.Value = CourseNum Then

Call btn.Click

End If

Next btn

Call ckickBtn(">>", IE)







हम निम्नलिखित फंक्शन वाले बटन पर क्लिक करते हैं:

Function ckickBtn(btm As String, IE As InternetExplorer)

For Each btn In IE.Document.all.tags("Input")

X = btn.Value

If btn.Value = btm Then

Call btn.Click

End If

Next btn

While IE.Busy: DoEvents: Wend 'wait until IE is done loading page.

Do Until IE.ReadyState = READYSTATE_COMPLETE: Loop 'Loop unitl ie page is fully loaded

End Function













फॉर्म खुला है और डेटा पार्सिंग चरण में प्राप्त क्षेत्रों के अनुसार स्वचालित रूप से साइट पर दर्ज किया गया है। सरल और स्वादिष्ट।

परिणाम

हम उन विशेषताओं को सूचीबद्ध करते हैं जो मैक्रोज़ का उपयोग करके हासिल की गई थीं:

• स्वचालित छात्र स्कोरिंग

इंजीनियरिंग की वेबसाइट http://study.engr.pfu.edu.ru/ पर अंकों का स्वचालित प्रकाशन

• अगले सेमेस्टर के लिए अद्यतन छात्र सूची के साथ नई वर्कशीट बनाएं

• विषय और अनुसूची के अनुसार नई सूचियों के लिए टेम्पलेट्स बनाए रखना

• अंक सहित कई मानदंडों द्वारा छात्रों का त्वरित फ़िल्टरिंग

• इसके निर्माता से एक प्रश्न पूछने की क्षमता (समर्थन के साथ पत्राचार)

• कार्यक्रम हमेशा इंजीनियरिंग संकाय की वेबसाइट पर नवीनतम परिवर्तनों के साथ अद्यतित होता है और खुद छात्रों और विषयों की सूचियों को अद्यतन करता है

• इंजीनियरिंग संकाय के सभी शिक्षकों के लिए औसत स्कोर के आँकड़े, खाते में प्रमाणीकरण और बिना ले

• इंजीनियरिंग संकाय के सभी पाठ्यक्रमों के लिए औसत स्कोर के आँकड़े, खाते में प्रमाणीकरण और बिना



मैं केवल यह नोट करता हूं कि उपरोक्त सभी किसी भी एक्सेल उपयोगकर्ता को बिना किसी अतिरिक्त मॉड्यूल को स्थापित किए उपलब्ध है। कार्यक्रम * .xls से शुरू नहीं होता है, लेकिन एक * .exe फ़ाइल के रूप में, जो आपको मशीन पर अक्षम मैक्रोज़ के साथ काम करने की अनुमति देता है, साथ ही एक बैकअप स्वचालित रूप से बनाया जाता है।



और अंत में, ब्लॉक आरेख





पुनश्च

एक्सेल से किसी साइट पर जल्दी से अंक कैसे दर्ज करें?





अगले सेमेस्टर के छात्रों की सूची जल्दी से कैसे बनाएं?