एक्सेल में स्ट्राइकथ्रू सेलों की गिनती/योग कैसे करें?
एक्सेल में, हम हमेशा कुछ सेल के लिए स्ट्राइकथ्रू को प्रारूपित करते हैं जो इंगित करते हैं कि सेल मान बेकार या अमान्य हैं, ताकि हम डेटा का अधिक सटीक विश्लेषण कर सकें। इस लेख में, मैं एक्सेल में इन स्ट्राइकथ्रू सेल के साथ रेंज में कुछ गणना कैसे करें, इसके बारे में बात करूंगा।
एक्सेल में स्ट्राइकथ्रू सेल की गणना करें
एक्सेल में स्ट्राइकथ्रू सेल के बिना गणना करें
एक्सेल में स्ट्राइकथ्रू सेल को शामिल न करें
एक्सेल में स्ट्राइकथ्रू सेल की गणना करें
यदि आप जानना चाहते हैं कि किसी श्रेणी में स्ट्राइकथ्रू प्रारूप वाले कितने सेल हैं, तो आप एक उपयोगकर्ता परिभाषित फ़ंक्शन बना सकते हैं, कृपया निम्नलिखित चरणों का पालन करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: स्ट्राइकथ्रू कोशिकाओं की गणना करें
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. फिर इस कोड को सहेजें और बंद करें, और वर्कशीट पर वापस लौटें, और फिर इस सूत्र को दर्ज करें =काउंटस्ट्राइक(A2:B14) किसी रिक्त कक्ष में, स्क्रीनशॉट देखें:
4. फिर दबाएं दर्ज कुंजी, और सभी स्ट्राइकथ्रू कोशिकाओं की गिनती कर ली गई है। स्क्रीनशॉट देखें:
एक्सेल में स्ट्राइकथ्रू सेल के बिना गणना करें
लेकिन, कभी-कभी, आप स्ट्राइकथ्रू कोशिकाओं को छोड़कर केवल सामान्य कोशिकाओं की संख्या गिनना पसंद कर सकते हैं। निम्नलिखित कोड आपकी सहायता कर सकता है.
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: स्ट्राइकथ्रू सेल के बिना गणना करें
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. फिर इस कोड को सेव करें और बंद करें, अपनी वर्कशीट पर वापस जाएं, यह फॉर्मूला टाइप करें =काउंटनोस्ट्राइक(A2:B14) एक रिक्त कक्ष में, और दबाएँ दर्ज कुंजी, तो आपको वह परिणाम मिलेगा जिसकी आपको आवश्यकता है।
नोट: उपरोक्त सूत्रों में, ए2: बी14 वह सीमा है जिसके लिए आप फ़ार्मुलों को लागू करना चाहते हैं।
एक्सेल में स्ट्राइकथ्रू सेल को शामिल न करें
चूँकि स्ट्राइकथ्रू सेल अप्रयुक्त हैं, यहाँ, मैं स्ट्राइकथ्रू संख्याओं के बिना केवल सामान्य संख्याओं का योग करना चाहता हूँ। इस कार्य को हल करने के लिए आपको एक User Defined Function की भी आवश्यकता होती है।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: योग में स्ट्राइकथ्रू सेल शामिल नहीं हैं
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. फिर इस कोड को सेव करें और बंद करें, अपनी वर्कशीट पर वापस जाएं, यह फॉर्मूला टाइप करें =एक्सस्ट्राइक(बी2:बी14) एक रिक्त कक्ष में, और दबाएँ दर्ज कुंजी, और आपको स्ट्राइकथ्रू कोशिकाओं के बिना सभी संख्याओं का योग मिलेगा। स्क्रीनशॉट देखें:
नोट: उपरोक्त सूत्रों में, B2: B14 वह सीमा है जिसमें आप स्ट्राइकथ्रू प्रारूप के बिना कोशिकाओं का योग करना चाहते हैं।
संबंधित आलेख:
Excel में कक्षों की श्रेणी में बोल्ड संख्याओं का योग/गिनती कैसे करें?
एक्सेल में पृष्ठभूमि रंग के आधार पर कोशिकाओं की गिनती और योग कैसे करें?
Excel में फ़ॉन्ट रंगों के आधार पर सेलों की गणना/योग कैसे करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
