दिलचस्प पोस्ट
PHP php_network_getaddresses: getaddrinfo विफल: ऐसा कोई होस्ट ज्ञात नहीं है ट्री कार्यान्वयन डबल हटाए जाने में क्या होता है? सी # या .NET में आपने अजीब कोने के मामले में क्या देखा है? एंड्रॉइड स्टूडियो में उप दृश्य के रूप में प्रदर्शन एकता दृश्य PHP: मैं FTP सर्वर से एक .txt फ़ाइल को एक चर में कैसे पढ़ूं? सादे जावास्क्रिप्ट का उपयोग करके वर्णों को HTML एंटिटी में परिवर्तित करने के लिए आर में कॉपी-ऑन-संशोधित शब्दार्थ क्या है, और कैनोनिकल स्रोत कहां है? MySQL में SHA1 हैश मूल्यों को संग्रहीत करना क्यों करता है ++ ] ] + ] स्ट्रिंग "10" वापस आती है? डोम उत्परिवर्तन की घटनाओं का प्रतिस्थापन PHP कोड रिफैक्टरिंग के लिए उपकरण रनटाइम पर जावा एप्लिकेशन का असली पथ कैसे प्राप्त करें? क्या आपने सी ++ दुभाषियों (कंपाइलर नहीं) में से किसी का उपयोग किया है? एंड्रॉइड कस्टम व्यू कंस्ट्रक्टर

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

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

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

वेब के समाधान से एकत्रित समाधान "वाक्यांशों के भीतर कीवर्ड गणना और हाइलाइट करें"

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

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

मैंने ऊपर दिए गए नमूना डेटा को बनाने के लिए कुछ मानक विज्ञापन 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&"*") उपयोग कर सकते हैं