दिलचस्प पोस्ट
मीडियाप्लेयर त्रुटि -38,0 मैं MongoDB में संदर्भित वस्तुओं को कैसे क्वेरी करूं? अजगर क्यों नहीं सेट करता है? संचयी राशि कैसे प्राप्त करें पायथन अपवाद लॉग करने का सर्वोत्तम तरीका क्रोम में DOM ब्रेकपॉइंट कैसे सेट करें कैसे एक JTextField UnFocus करने के लिए जेएसपीडीएफ काम करने के लिए कोई स्टाइल नहीं कर सकता Xcode में अनुक्रमण को कैसे सक्षम करें? मैं बटन पर क्लिक करने पर फॉर्म सबमिशन कैसे रद्द कर सकता हूं? डबल बनाम एकल उद्धरण आप गिट में एक बुरा मर्ज का पता कैसे लगा सकते हैं? लोकेल प्रोग्रामेटिक रूप से सेट करें एंड्रॉइड स्टूडियो में एक लाइब्रेरी प्रोजेक्ट और लायब्रेरी प्रोजेक्ट का उपयोग करने वाले एक एप्लिकेशन प्रोजेक्ट को कैसे तैयार किया जाए नियम इंजन को कैसे कार्यान्वित करें?

वाक्यांशों के भीतर कीवर्ड गणना और हाइलाइट करें

मेरे दो स्तंभों के साथ एक एक्सेल शीट है I पहला कॉलम कुंजी वाक्यांश है और दूसरा संदेश है। कुंजी वाक्यांश संदेश कॉलम में हो सकता है। मुझे यह जानना होगा कि संदेश कॉलम में एक महत्वपूर्ण वाक्यांश कितनी बार आ गया है। कृपया खोजने का कुछ अच्छा और आसान तरीका सुझाएं

कुंजी वाक्यांश एक स्तंभ है और संदेश दूसरा कॉलम है। संदेश कॉलम 1 या उससे अधिक कुंजी वाक्यांशों के संयोजन (संयोजन) है। मुझे यह पता लगाना होगा कि प्रत्येक संदेश में कितने प्रमुख वाक्यांश होते हैं

Solutions Collecting From Web of "वाक्यांशों के भीतर कीवर्ड गणना और हाइलाइट करें"

यह संभव है कि आप एक मॉड्यूल उप प्रक्रिया के साथ एक कुशल गणना एकत्र करने में सक्षम हो सकें जो कि स्मृति सरणियों में सभी गणित करता है और वर्कशीट में गिनती देता है।

वाक्यांशों के नमूने डेटा में कीवर्ड की गणना करता है

मैंने ऊपर दिए गए नमूना डेटा को बनाने के लिए कुछ मानक विज्ञापन IMS कीवर्ड और वाक्यांशों का उपयोग किया है

Alt + F11 टैप करें और जब वीबीई खोलता है, तो तुरंत डालने के लिए पुल-डाउन मेनू का उपयोग करें ► मॉड्यूल ( Alt + I , M )। बुक 1 – मॉड्यूल 1 (कोड) की तरह कुछ शीर्षक वाले नए मॉड्यूल कोड शीट में निम्नलिखित चिपकाएं।

Option Explicit Sub count_strings_inside_strings() Dim rw As Long, lr As Long Dim k As Long, p As Long, vKEYs As Variant, vPHRASEs As Variant, vCOUNTs As Variant ReDim vKEYs(0) ReDim vPHRASEs(0) With Worksheets("Sheet1") '<~~ set to the correct worksheet name\ 'populate the vKEYs array For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row vKEYs(UBound(vKEYs)) = LCase(.Cells(rw, 1).Value2) ReDim Preserve vKEYs(UBound(vKEYs) + 1) Next rw ReDim Preserve vKEYs(UBound(vKEYs) - 1) 'populate the vPHRASEs array For rw = 2 To .Cells(Rows.Count, 2).End(xlUp).Row vPHRASEs(UBound(vPHRASEs)) = LCase(.Cells(rw, 2).Value2) ReDim Preserve vPHRASEs(UBound(vPHRASEs) + 1) Next rw ReDim Preserve vPHRASEs(UBound(vPHRASEs) - 1) ReDim vCOUNTs(0 To UBound(vPHRASEs)) 'perform the counts For p = LBound(vPHRASEs) To UBound(vPHRASEs) For k = LBound(vKEYs) To UBound(vKEYs) vCOUNTs(p) = CInt(vCOUNTs(p)) + _ (Len(vPHRASEs(p)) - Len(Replace(vPHRASEs(p), vKEYs(k), vbNullString))) / Len(vKEYs(k)) Next k Next p 'return the counts to the worksheet .Cells(2, 3).Resize(UBound(vCOUNTs) + 1, 1) = Application.Transpose(vCOUNTs) 'run the helper procedure to Blue|Bold all of the found keywords within the phrases Call key_in_phrase_helper(vKEYs, .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))) End With End Sub Sub key_in_phrase_helper(vKYs As Variant, rPHRSs As Range) Dim p As Long, r As Long, v As Long With rPHRSs For r = 1 To rPHRSs.Rows.Count .Cells(r, 1) = .Cells(r, 1).Value2 For v = LBound(vKYs) To UBound(vKYs) p = 0 Do While CBool(InStr(p + 1, .Cells(r, 1).Value2, vKYs(v), vbTextCompare)) p = InStr(p + 1, .Cells(r, 1).Value2, vKYs(v), vbTextCompare) Debug.Print vKYs(v) With .Cells(r, 1).Characters(Start:=p, Length:=Len(vKYs(v))).Font .Bold = True .ColorIndex = 5 End With Loop Next v Next r End With End Sub 

5 वें कोड लाइन में आपको कार्यपत्रक का नाम बदलना पड़ सकता है मैंने एक सहायक रूटीन भी शामिल किया है जो वाक्यांशों के अंदर ब्लू | बोल्ड फ़ॉन्ट के साथ कुंजी शब्द को पहचानता है। पहली उप प्रक्रिया के निचले भाग में Call key_in_phrase_helper(...) लाइन को टिप्पणी या हटाएं, अगर यह वांछित नहीं है।

अपने कार्यपत्रक पर वापस जाने के लिए Alt + Q टैप करें मैक्रोज़ संवाद खोलने के लिए Alt + F8 टैप करें और उप प्रक्रिया चलाएं । यदि आप डेटा एक साथ रखा है नमूना डेटा के जैसा होता है तो आप समान परिणाम होना चाहिए।

वाक्यांशों में कुंजियां


¹ ये कुछ उन्नत तरीके हैं लेकिन मुझे लगता है कि वे आपकी समस्या से निपटने का सबसे अच्छा तरीका हैं। यदि आपके पास विशिष्ट प्रश्न हैं कि आपका खुद का शोध पर्याप्त रूप से समझा नहीं गया है, तो मैं उन्हें टिप्पणी अनुभाग में संबोधित करने का प्रयास करूंगा। यह समाधान बनाने के लिए बनाई गई नमूना कार्यपुस्तिका अनुरोध पर उपलब्ध कराई जा सकती है।

आप दूसरी पंक्ति से शुरू इस सूत्र COUNTIF(B:B;"*"&A2&"*") उपयोग कर सकते हैं