अगर कार्यपुस्तिका "सहेजी और बंद नहीं हुई है और फिर से खोल दी गई है, मुझे निम्नलिखित त्रुटि मिलती है
"रन-टाइम त्रुटि" 91 ": ऑब्जेक्ट वेरिएबल या ब्लॉक के साथ सेट नहीं है"
मेरे पास एक ही कोड है (केवल इसका नामस्ट्रिंग अलग है) अन्य स्थानों पर, और कभी-कभी यह मुझे एक ही त्रुटि देता है जब तक कि मैं बंद और फिर से खोलता हूं और फिर से चलाता हूं। बाद में, कोड सुचारू रूप से चलता है।
बग से बचने के तरीके पर कोई विचार? क्या आपको पहले यह समस्या थी?
Dim fal As Excel.Worksheet
Set fal = wb.Sheets("Falancs")
Dim x As String
x = "F_1 ="
Dim cc As Integer " The column as an integer (cc = 1,2,3...)
cc = fal.UsedRange.Find(x).Column
त्रुटि अंतिम पंक्ति पर है, जहां "(x)" है ...
उत्तर:
उत्तर № 1 के लिए 1.Find रिटर्न Nothing अगर का मूल्य x नहीं मिला, तो आपको इसे जांचना चाहिए:
Dim fal As Excel.Worksheet
Set fal = wb.Sheets("Falancs")
Dim x As String
x = "F_1 ="
Dim cc As Integer " The column as an integer (cc = 1,2,3...)
Dim res As Range
Set res = fal.UsedRange.Find(x)
If Not res Is Nothing Then
cc = res.Column
Else
MsgBox "Value " & x & " not found"
Exit Sub
End If