का परीक्षण करने में मुश्किल है मेरे ग्राहक को संकलन त्रुटि मिल रही है; एक्सेल 2010 के अपने संस्करण पर प्रोजेक्ट या लाइब्रेरी नहीं मिल रही है, हालांकि मुझे यह 2010 के मेरे संस्करण पर नहीं मिल रहा है। मैं इस कोड को कैसे समायोजित कर सकता हूं ताकि यह दिखाई न दे। निम्नलिखित कोड में त्रुटि प्रकट होता है में पाठ "सेल" "चयन में प्रत्येक कक्ष के लिए" पर प्रकाश डाला गया है:मुझे केवल कुछ एक्सेल 2010 संस्करणों में 'संकलन त्रुटि: प्रोजेक्ट या लाइब्रेरी नहीं मिल रही है' मिल रही है। इस
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$9" Then
Columns("D:CB").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False
Sheet17.Range("E48:CB48").Select
For Each cell In Selection
If cell = 0 Then
Range(cell.Address).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
Sheet17.Range("b9").Select
End If
End Sub`
मेरे ग्राहक भी शब्द "प्रतिक्रिया" के साथ निम्न कोड में एक बग रिपोर्ट कर रहा है पर प्रकाश डाला जा रहा है । यह, एक्सेल 2010 के मेरे संस्करण पर भी मेरे लिए कोई मुद्दा नहीं है। किसी भी और सभी मदद की बहुत सराहना की जाती है।
If Sheet1.Range("E18") = 3 Then
Response = MsgBox("Reminder Emails have been set to be sent automatically at " & Sheet1.Range("f18").Value & ", " & Sheet1.Range("Q4").Value & " day(s) before" & vbCrLf & "the scheduled appointment. Do you want to send reminder e-mails now anyway?", vbYesNo)
If Response = vbNo Then
Exit Sub
End If
End If
आप एक लंबे चर को पकड़ने के लिए 'प्रतिक्रिया' का उपयोग कर रहे हैं, इसलिए यह एक त्रुटि ट्रिगर नहीं करनी चाहिए (जब तक कि 'प्रतिक्रिया' लाइब्रेरी संदर्भ - अनुमान के ऑब्जेक्ट मॉडल का हिस्सा न हो)। मैं नाम और आयाम के लिए लंबे समय तक 'lngResponse' का उपयोग करूंगा। – brettdj
यह समान हो सकता है: http://stackoverflow.com/questions/507191/cant-find-project-or-library-for-standard-vba-functions – Smandoli
ठीक है, मैं इसे आज़मा दूंगा। चूंकि मेरी मशीन पर, ये सभी विकल्प ठीक काम करते हैं, मुझे ग्राहक प्रतिक्रिया की प्रतीक्षा करनी है, जो थोड़ा निराशाजनक है। बहुत बहुत धन्यवाद – ExcelForFreelancers