क्लिपबोर्ड पर चयनित सेल का योग कॉपी करें

कभी-कभी कुछ चीजों के साथ आने में बहुत लंबा समय लगता है। लेकिन जब वे पहले ही आविष्कार कर चुके होते हैं, तो इस तथ्य के बाद वे स्पष्ट और यहां तक ​​​​कि साधारण भी लगते हैं। श्रृंखला से "क्या, यह संभव था?"।

पहले संस्करणों से, Microsoft Excel विंडो के निचले भाग में स्थित स्टेटस बार पारंपरिक रूप से चयनित सेल के लिए कुल योग प्रदर्शित करता है:

यदि वांछित है, तो इन परिणामों पर राइट-क्लिक करना और संदर्भ मेनू से चयन करना भी संभव था कि हम कौन से फ़ंक्शन देखना चाहते हैं:

और अभी हाल ही में, नवीनतम एक्सेल अपडेट में, माइक्रोसॉफ्ट डेवलपर्स ने एक सरल लेकिन सरल फीचर जोड़ा है - अब जब आप इन परिणामों पर क्लिक करते हैं, तो वे क्लिपबोर्ड पर कॉपी हो जाते हैं!

सुंदरता। 

लेकिन उन लोगों के बारे में क्या जिनके पास अभी तक (या पहले से?) एक्सेल का ऐसा संस्करण नहीं है? यह वह जगह है जहाँ साधारण मैक्रोज़ मदद कर सकते हैं।

मैक्रो का उपयोग करके चयनित सेल के योग को क्लिपबोर्ड पर कॉपी करना

टैब में खोलें विकासक (डेवलपर) संपादक Visual Basic के या इस कीबोर्ड शॉर्टकट का उपयोग करें ऑल्ट+F11. मेनू के माध्यम से नया खाली मॉड्यूल डालें सम्मिलित करें - मॉड्यूल और निम्नलिखित कोड को वहां कॉपी करें:

Sub SumSelected() अगर TypeName(Selection) <> "Range" तो GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") के साथ Sub से बाहर निकलें। SetText WorksheetFunction.Sum(Selection) .PutInClipboard End with End Sub  

इसका तर्क सरल है:

• सबसे पहले "मूर्ख से सुरक्षा" आती है - हम जांचते हैं कि वास्तव में क्या हाइलाइट किया गया है। यदि सेल नहीं चुने गए हैं (लेकिन, उदाहरण के लिए, एक चार्ट), तो मैक्रो से बाहर निकलें।
• फिर कमांड का उपयोग करना वस्तु वस्तु हम एक नया डेटा ऑब्जेक्ट बनाते हैं जहां हमारे चयनित सेल का योग बाद में संग्रहीत किया जाएगा। एक लंबा और समझ से बाहर अल्फान्यूमेरिक कोड, वास्तव में, विंडोज रजिस्ट्री शाखा का एक लिंक है जहां पुस्तकालय स्थित है Microsoft प्रपत्र 2.0 ऑब्जेक्ट लायब्रेरी है, जो ऐसी वस्तुओं को बना सकता है। कभी-कभी इस ट्रिक को भी कहा जाता है निहित देर से बाध्यकारी. यदि आप इसका उपयोग नहीं करते हैं, तो आपको मेनू के माध्यम से फ़ाइल में इस पुस्तकालय का लिंक बनाना होगा उपकरण — संदर्भ.
• चयनित सेल का योग एक कमांड माना जाता है वर्कशीट फंक्शन। योग (चयन), और फिर परिणामी राशि को कमांड के साथ क्लिपबोर्ड पर रखा जाता है पुटइनक्लिपबोर्ड

उपयोग में आसानी के लिए, आप निश्चित रूप से, इस मैक्रो को बटन का उपयोग करके कीबोर्ड शॉर्टकट को असाइन कर सकते हैं मैक्रोज़ टैब विकासक (डेवलपर - मैक्रोज़).

और यदि आप देखना चाहते हैं कि मैक्रो चलाने के बाद वास्तव में क्या कॉपी किया गया था, तो आप संबंधित समूह के निचले दाएं कोने में छोटे तीर का उपयोग करके क्लिपबोर्ड पैनल को चालू कर सकते हैं मुख्य (घर) टैब:

इतना ही नहीं राशि

यदि, भोज राशि के अलावा, आप कुछ और चाहते हैं, तो आप किसी भी फ़ंक्शन का उपयोग कर सकते हैं जो वस्तु हमें प्रदान करती है कार्यपत्रक समारोह:

उदाहरण के लिए, वहाँ है:

• योग - योग
• औसत - अंकगणितीय माध्य
• गणना - संख्याओं के साथ कोशिकाओं की संख्या
• काउंट ए - भरे हुए सेल की संख्या
• काउंटब्लैंक - खाली कोशिकाओं की संख्या
• न्यूनतम - न्यूनतम मूल्य
• अधिकतम - अधिकतम मूल्य
• माध्यिका - माध्यिका (केंद्रीय मान)
• … आदि।

फ़िल्टर और छिपे हुए पंक्ति-स्तंभों सहित

क्या होगा यदि चयनित श्रेणी में पंक्तियाँ या स्तंभ छिपे हुए हैं (मैन्युअल रूप से या फ़िल्टर द्वारा)? उन्हें योग में शामिल न करने के लिए, हमें वस्तु में जोड़कर अपने कोड को थोड़ा संशोधित करना होगा चयन संपत्ति स्पेशल सेल (xlCellTypeVisible):

Sub SumVisible() यदि TypeName(Selection) <> "Range" तो GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection.SpecialCells(xlCellTypeVisible)) के साथ उप से बाहर निकलें। PutInClipboard अंत अंत उप के साथ  

इस मामले में, किसी भी कुल फ़ंक्शन की गणना केवल दृश्यमान कोशिकाओं पर लागू होगी।

यदि आपको एक जीवित सूत्र की आवश्यकता है

यदि आप सपने देखते हैं, तो आप उन परिदृश्यों के साथ आ सकते हैं जब संख्या (स्थिर) की प्रतिलिपि बनाना बेहतर नहीं होता है, लेकिन बफर में एक जीवित सूत्र है, जो कुल योग की गणना करता है जो हमें चयनित कोशिकाओं के लिए चाहिए। इस मामले में, आपको सूत्र को टुकड़ों से चिपकाना होगा, इसमें डॉलर के संकेतों को हटाने और अल्पविराम के साथ अल्पविराम (जिसे वीबीए में कई चयनित श्रेणियों के पते के बीच विभाजक के रूप में उपयोग किया जाता है) को बदलना होगा:

Sub SumFormula() यदि TypeName(Selection) <> "Range" तो GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") के साथ Sub से बाहर निकलें। SetText "=СУММ(" & Replace(Replace(Selection. पता, ",", ";"), "$", "") और ")" .PutInClipboard End with End Sub  

अतिरिक्त शर्तों के साथ योग

और, अंत में, पूरी तरह से पागलों के लिए, आप एक मैक्रो लिख सकते हैं जो सभी चयनित कोशिकाओं को नहीं, बल्कि केवल उन शर्तों को पूरा करेगा जो दी गई शर्तों को पूरा करते हैं। इसलिए, उदाहरण के लिए, एक मैक्रो ऐसा दिखेगा जो चयनित कोशिकाओं के योग को बफ़र में डालता है, यदि उनका मान 5 से अधिक है और साथ ही वे किसी भी रंग से भरे हुए हैं:

 Sub CustomCalc() Dim myRange as Range if TypeName(Selection) <> "Range" फिर चयन में प्रत्येक सेल के लिए उप से बाहर निकलें यदि सेल.वैल्यू> 5 और सेल.इंटीरियर.ColorIndex <> xlNone तो अगर myRange कुछ भी नहीं है तो myRange = सेट करें सेल अन्यथा सेट करें myRange = Union(myRange, cell) End if End if अगला सेल GetObject के साथ ("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) .PutInClipboard End with End Sub  

जैसा कि आप आसानी से कल्पना कर सकते हैं, शर्तों को बिल्कुल किसी भी - सेल प्रारूपों तक - और किसी भी मात्रा में सेट किया जा सकता है (उन्हें तार्किक ऑपरेटरों या या और के साथ जोड़कर)। कल्पना के लिए बहुत जगह है।

• फ़ार्मुलों को मानों में बदलें (6 तरीके)
• मैक्रो क्या हैं, उनका उपयोग कैसे करें, विजुअल बेसिक कोड कहां डालें
• माइक्रोसॉफ्ट एक्सेल के स्टेटस बार में उपयोगी जानकारी