नीचे एक दुर्घटनाग्रस्त होने का कारण क्या है - एक्सेल टिप्स

कभी-कभी एक्सेल बस "एक्सेल ने काम करना बंद कर दिया है" की तर्ज पर एक संदेश देता है। आपको हुई किसी भी असुविधा के लिए हम क्षमा चाहते हैं।"

जब आपको ऐसा संदेश मिलता है, तो आप Ctrl + alt = "+ + दबा सकते हैं और कार्यपुस्तिका को फिर से खोल सकते हैं (उम्मीद है कि आपने जो भी काम किया है उसे सहेज लिया है!), कोड के माध्यम से आपत्तिजनक कथन को खोजने के लिए कदम उठाना चाहते हैं। जब आप कोड के माध्यम से एकल-चरण करते हैं, तो सभी ठीक काम कर सकते हैं, लेकिन जब आप इसे पूरी गति से चलाते हैं, तो एक बार फिर यह दुर्घटनाग्रस्त हो सकता है। आप अपमानजनक बयान कैसे पा सकते हैं?

आप कोड की प्रत्येक पंक्ति के बीच एक सरल रेखा कोड लिख सकते हैं जो अपराधी हो सकता है। तो VBA कोड मूल रूप से कुछ इस तरह दिख सकता है:

Sub UICreation() Dim x As String On Error Resume Next x = Sheets("Scenario").Name If Err.Number 0 Then MsgBox "Current workbook needs to have a Scenario sheet!", vbCritical Exit Sub End If ActiveWorkbook.Unprotect WorkbookPassword Err.Clear ActiveWorkbook.Unprotect SheetPassword If Err.Number 0 Then MsgBox "Workbook cannot be unprotected by the macro.", vbCritical Exit Sub End If Application.OnTime Now, "More" ThisWorkbook.Sheets("FastPricer").Copy Before:=ActiveWorkbook.Sheets(1) End Sub

यह प्रक्रिया, वास्तव में, दुर्घटना नहीं करती है, लेकिन यह दर्शाती है कि आप क्या कर सकते हैं यदि आप पाते हैं कि कोड पूरी गति से चलने पर दुर्घटनाग्रस्त हो जाता है, लेकिन जब आप इसके माध्यम से कदम नहीं उठाते हैं।

आप उपरोक्त कोड को बग स्टेटमेंट बग 1, बग 2, आदि के साथ बदल सकते हैं।

Sub UICreation() Dim x As String On Error Resume Next Bug 1 x = Sheets("Scenario").Name Bug 2 If Err.Number 0 Then MsgBox "Current workbook needs to have a Scenario sheet!", vbCritical Exit Sub End If Bug 3 ActiveWorkbook.Unprotect WorkbookPassword Err.Clear Bug 4 ActiveWorkbook.Unprotect SheetPassword If Err.Number 0 Then MsgBox "Workbook cannot be unprotected by the macro.", vbCritical Exit Sub End If Bug 5 Application.OnTime Now, "More" Bug 6 ThisWorkbook.Sheets("FastPricer").Copy Before:=ActiveWorkbook.Sheets(1) End Sub

यहाँ बग प्रक्रिया है:

Sub Bug(num As Integer) SaveSetting "EOTB2", "EOTB2", "EOTB2", num End Sub

यह प्रक्रिया रजिस्ट्री में एक मान बचाता है। SaveSetting का सिंटैक्स है: