वीबीए यूडीएफ सभी चादरों पर मूल्य बदलता है। एक को कैसे सीमित करें?

Question

मैंने एक यूडीएफ बनाया है जो एक ही चादर पर काम करता है। समस्या एकाधिक चादरों के साथ होती है। यदि मेरे पास एकाधिक चादरों पर सूत्र है, और यदि मैं इसे एक शीट पर लोड करता हूं, तो यह अन्य सभी चादरों में भी आउटपुट बदलता है।

ऐसा क्यों होता है? मैं ActiveWorksheet या सक्रिय सेल या इसी तरह का उपयोग नहीं कर रहा हूं।

Function customreturn(security As Range, datacheck As Range) As Variant 

    Dim row_num As Integer 
    Dim row_num2 As Integer 
    Dim price1 As Double 
    Dim price2 As Double 
    Dim perfo As Double 
    Dim blank_end As Boolean 

    row_num = security.Row 
    col_num = security.Column 
    row_num2 = row_num + 1 
    col_num2 = datacheck.Column 

    If WorksheetFunction.IsError(datacheck.Value) = True Then 
     customreturn = "No data" 
    Else 
     price1 = Cells(row_num, col_num).Value 

     Do While WorksheetFunction.IsError(Cells(row_num2, col_num2).Value) = True 
      row_num2 = row_num2 + 1 
     Loop 

     price2 = Cells(row_num2, col_num).Value 

     perfo = price1/price2 - 1 

     customreturn = perfo 
    End If 
End Function 

Answer 1

कोई माता पिता कार्यपत्रक आप उपयोग Range.Cells property तो माता-पिता कार्यपत्रक ActiveSheet property सामान्य रूप से किया जाता है तीन बार से किसी के लिए निर्दिष्ट नहीं है। इसे With ... End With statement के साथ संशोधित किया जा सकता है जो कि श्रेणी पैरामीटर 'Range.Parent property में से एक के वर्कशीट संदर्भ प्रदान करता है।

Function customreturn(security As Range, datacheck As Range) As Variant 
    Dim row_num As Long, row_num2 As Long, col_num As Long, col_num2 As Long 
    Dim price1 As Double, price2 As Double, perfo As Double 
    Dim blank_end As Boolean 

    row_num = security.Row 
    col_num = security.Column 
    row_num2 = row_num + 1 
    col_num2 = datacheck.Column 

    With security.Parent 
     If IsError(datacheck) Then 
      customreturn = "No data" 
     Else 
      price1 = .Cells(row_num, col_num).Value 

      Do While IsError(.Cells(row_num2, col_num2)) 
       row_num2 = row_num2 + 1 
      Loop 

      price2 = .Cells(row_num2, col_num).Value 

      perfo = price1/price2 - 1 

      customreturn = perfo 
     End If 
    End With 
End Function 

के साथ भीतर ... के साथ समाप्त, Cells के सभी दिखाने के लिए कि माता-पिता के साथ कार्यपत्रक में निर्दिष्ट एक ... के साथ समाप्त होता है .Cells के रूप में संदर्भ हैं।

आप स्पष्ट रूप से कार्यपत्रक के ISERROR या तुलना करने के लिए की जरूरत नहीं है VBA के IsError functionसही पर। यह पहले से ही जानता है कि यह सच है या गलत है।

यह इंगित किया गया था (धन्यवाद BruceWayne) कि आपके पास दो अविकसित चर, col_num और col_num2 थे। घोषणा क्षेत्र में प्रत्येक कोड शीट के शीर्ष पर Option Explicit ¹ जोड़कर इसे टाला जा सकता है।

---

स्थापना VBE के उपकरण के भीतर चर घोषणा आवश्यकता ► विकल्प ► संपादक संपत्ति पेज प्रत्येक नव निर्मित कोड चादर के शीर्ष पर Option Explicit बयान डाल देंगे ¹ _{। यह गलत वर्तनी की तरह गलती कोडिंग गलतियों से बचने के साथ-साथ परिवर्तनीय घोषणा में सही परिवर्तनीय प्रकार का उपयोग करने के लिए आपको प्रभावित करेगा। घोषणा के बिना ऑन-द-फ्लाई बनाया गया वेरिएंट सभी प्रकार/ऑब्जेक्ट प्रकार हैं। का उपयोग कर विकल्प स्पष्ट व्यापक रूप से 'सर्वोत्तम अभ्यास' माना जाता है।}