सूत्र जो मुझे बताएगा कि प्रत्येक पंक्ति में 7-निरंतर-शून्य के कितने सेट हैं

Question

मेरे पास 300 पंक्तियों और 50 स्तंभों वाला एक डेटाबेस है।

कोशिकाओं को या तो आबादी है zero, one या blank।

मुझे एक सूत्र की तलाश है जिसे मैं 300 पंक्तियों के लिए कॉलम 51 में प्लग कर सकता हूं, जो मुझे बताएगा कि कितने सेट हैं 7-लगातार शून्य के प्रत्येक पंक्ति में हैं।

Comments

तो अगर आपके पास है 7X0 1 1 7X0 यह दो को गिनना चाहिए? अगर आप 0 8 बार हैं, तो क्या इसे एक या दो गिनना चाहिए?

— Máté Juhász

Answer 1

निम्नलिखित को धयान मे रखते हुए उपयोगकर्ता परिभाषित फ़ंक्शन :

Public Function BlockCount(rng As Range) As Long
    Dim ItemCount As Long, r As Range, v As String

    BlockCount = 0
    ItemCount = 0

    For Each r In rng
        v = r.Text
        If v = "0" Then
            ItemCount = ItemCount + 1
            If ItemCount = 7 Then
                ItemCount = 0
                BlockCount = BlockCount + 1
            End If
        Else
            ItemCount = 0
        End If
    Next r

End Function

उपयोगकर्ता परिभाषित कार्य (UDF) स्थापित करने और उपयोग करने के लिए बहुत आसान हैं:

1. ALT-F11 VBE विंडो लाता है
2. ALT-मैं ALT-M एक नया मॉड्यूल खोलता है
3. सामान पेस्ट करें और VBE विंडो बंद करें

यदि आप कार्यपुस्तिका को सहेजते हैं, तो इसके साथ UDF सहेजा जाएगा। यदि आप बाद में 2003 के एक्सेल के संस्करण का उपयोग कर रहे हैं, तो आपको बचाना होगा फ़ाइल .xlsm के बजाय .xlsx के रूप में

UDF को हटाने के लिए:

1. ऊपर के रूप में VBE विंडो लाएं
2. कोड साफ़ करें
3. VBE विंडो बंद करें

Excel से UDF का उपयोग करने के लिए:

=BlockCount(A1:Z1)

सामान्य रूप से मैक्रोज़ के बारे में अधिक जानने के लिए, देखें:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

तथा

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

और UDFs की बारीकियों के लिए, देखें:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

मैक्रों को इसके लिए सक्षम होना चाहिए!