चयन गरिएका कक्षहरूको योगफल क्लिपबोर्डमा प्रतिलिपि गर्नुहोस्

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

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

यदि चाहियो भने, यी नतिजाहरूमा दायाँ-क्लिक गर्न र सन्दर्भ मेनुबाट हामीले हेर्न चाहने कार्यहरू चयन गर्न पनि सम्भव थियो:

र भर्खरै, भर्खरको एक्सेल अपडेटहरूमा, माइक्रोसफ्ट विकासकर्ताहरूले एक सरल तर सरल सुविधा थपे - अब जब तपाइँ यी परिणामहरूमा क्लिक गर्नुहुन्छ, तिनीहरू क्लिपबोर्डमा प्रतिलिपि हुन्छन्!

सुन्दरता। 

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

म्याक्रो प्रयोग गरेर क्लिपबोर्डमा चयन गरिएका कक्षहरूको योगफल प्रतिलिपि गर्दै

ट्याबमा खोल्नुहोस् विकासकर्ता (विकासकर्ता) सम्पादक दृश्य मूल वा यो किबोर्ड सर्टकट प्रयोग गर्नुहोस् alt+F11। मेनु मार्फत नयाँ खाली मोड्युल घुसाउनुहोस् घुसाउनुहोस् - मोड्युल र त्यहाँ निम्न कोड प्रतिलिपि गर्नुहोस्:

Sub SumSelected() यदि TypeName(चयन) <> "दायरा" त्यसपछि GetObject ("नयाँ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") सँग सबबाट बाहिर निस्कनुहोस्। SetText WorksheetFunction।Sum(Selection) को साथमा .Sumd(Selection)।  

यसको तर्क सरल छ:

• पहिले आउँछ "मूर्खबाट सुरक्षा" - हामी वास्तवमा के हाइलाइट गरिएको छ भनेर जाँच गर्छौं। यदि कक्षहरू चयन गरिएका छैनन् (तर, उदाहरणका लागि, चार्ट), त्यसपछि म्याक्रोबाट बाहिर निस्कनुहोस्।
• त्यसपछि आदेश प्रयोग गरेर Getobject हामी नयाँ डाटा वस्तु सिर्जना गर्छौं जहाँ हाम्रो चयन गरिएका कक्षहरूको योग पछि भण्डार गरिनेछ। एक लामो र बुझ्न नसकिने अल्फान्यूमेरिक कोड, वास्तवमा, पुस्तकालय अवस्थित विन्डोज रजिस्ट्री शाखाको लिङ्क हो। माइक्रोसफ्ट फारम २.० वस्तु पुस्तकालय, जसले त्यस्ता वस्तुहरू सिर्जना गर्न सक्छ। कहिलेकाहीँ यो चाल पनि भनिन्छ निहित ढिलो बाध्यकारी। यदि तपाइँ यसलाई प्रयोग गर्नुहुन्न भने, तपाइँ मेनु मार्फत फाइलमा यो पुस्तकालयको लिङ्क बनाउनु पर्छ उपकरण - सन्दर्भ.
• चयन गरिएका कक्षहरूको योगलाई आदेश मानिन्छ WorksheetFunction.Sum(चयन), र त्यसपछि नतिजा रकम आदेश संग क्लिपबोर्ड मा राखिएको छ PutInClipboard

प्रयोगको सहजताको लागि, तपाईले यो म्याक्रोलाई बटन प्रयोग गरेर किबोर्ड सर्टकटमा असाइन गर्न सक्नुहुन्छ म्याक्रो ट्याब विकासकर्ता (विकासकर्ता - म्याक्रो).

र यदि तपाइँ म्याक्रो चलाएर ठ्याक्कै के प्रतिलिपि गरिएको थियो भनेर हेर्न चाहनुहुन्छ भने, तपाइँ सम्बन्धित समूहको तल्लो दायाँ कुनामा सानो एरो प्रयोग गरेर क्लिपबोर्ड प्यानल खोल्न सक्नुहुन्छ। मुख्य (घर) ट्याब:

रकम मात्र होइन

यदि, साधारण रकमको अतिरिक्त, तपाइँ अरू केहि चाहनुहुन्छ भने, तपाइँ वस्तुले हामीलाई प्रदान गर्ने कुनै पनि प्रकार्यहरू प्रयोग गर्न सक्नुहुन्छ। कार्यपत्र प्रकार्य:

उदाहरण को लागी, त्यहाँ छ:

• योग - योग
• औसत - अंकगणितीय औसत
• गणना - संख्याहरू सहित कक्षहरूको संख्या
• CountA - भरिएको कक्षहरूको संख्या
• CountBlank - खाली कक्षहरूको संख्या
• न्यूनतम - न्यूनतम मूल्य
• अधिकतम - अधिकतम मूल्य
• माध्य - मध्यक (केन्द्रीय मान)
• ... आदि

फिल्टरहरू र लुकेका पङ्क्ति-स्तम्भहरू सहित

के हुन्छ यदि पङ्क्ति वा स्तम्भहरू लुकेका छन् (म्यानुअल रूपमा वा फिल्टरद्वारा) चयन गरिएको दायरामा? कुलमा तिनीहरूलाई खातामा नलिनको लागि, हामीले वस्तुमा थपेर हाम्रो कोडलाई थोरै परिमार्जन गर्न आवश्यक छ। चयन सम्पत्ति विशेष कक्षहरू(xlCellTypeVisible):

Sub SumVisible() यदि TypeName(चयन) <> "दायरा" त्यसपछि GetObject ("नयाँ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") को साथ सबबाट बाहिर निस्कनुहोस्।SetText WorksheetFunction.Sum(Selectible)Selction.Sum(CellCelction)। PutInClipboard अन्त्य सबको साथ अन्त्य  

यस अवस्थामा, कुनै पनि कुल प्रकार्यको गणना दृश्य कक्षहरूमा मात्र लागू हुनेछ।

यदि तपाईंलाई जीवित सूत्र चाहिन्छ

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

Sub SumFormula() यदि TypeName(चयन) <> "दायरा" त्यसपछि GetObject ("नयाँ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") सँग सबबाट बाहिर निस्कनुहोस्। ठेगाना, ",", ";"), "$", "") & ")" .PutInClipboard अन्त्य सबको साथ अन्त्य  

अतिरिक्त सर्तहरूको साथ योग

र, अन्तमा, पूर्णतया पागलहरूको लागि, तपाइँ एक म्याक्रो लेख्न सक्नुहुन्छ जुन सबै चयन गरिएका कक्षहरू मात्र होइन, तर दिइएको सर्तहरू पूरा गर्ने मात्र। त्यसोभए, उदाहरणका लागि, एउटा म्याक्रोले चयन गरिएका कक्षहरूको योगलाई बफरमा राखेको जस्तो देखिन्छ, यदि तिनीहरूको मानहरू 5 भन्दा बढी छन् र एकै समयमा तिनीहरू कुनै पनि रङले भरिएका छन्:

 Sub CustomCalc() Dim myRange को दायराको रूपमा यदि TypeName(चयन) <> "दायरा" त्यसपछि चयनमा रहेको प्रत्येक कक्षको लागि Sub बाट बाहिर निस्कनुहोस् यदि cell.Value > 5 र cell.Interior.ColorIndex <> xlNone त्यसपछि यदि myRange केही छैन भने myRange = सेट गर्नुहोस्। सेल अन्यथा सेट गर्नुहोस् myRange = Union(myRange, cell) End यदि End यदि अर्को सेल GetObject ("नयाँ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(MyPRang) को साथ End  

तपाईं सजिलै कल्पना गर्न सक्नुहुन्छ, सर्तहरू कुनै पनि - सेल ढाँचाहरू सम्म - र कुनै पनि मात्रामा सेट गर्न सकिन्छ (तर्क अपरेटरहरू वा वा र रसँग तिनीहरूलाई जोडेर)। कल्पनाको लागि धेरै ठाउँ छ।

• सूत्रहरूलाई मानहरूमा रूपान्तरण गर्नुहोस् (6 तरिकाहरू)
• म्याक्रोहरू के हुन्, तिनीहरूलाई कसरी प्रयोग गर्ने, भिजुअल बेसिक कोड कहाँ घुसाउने
• Microsoft Excel को स्थिति पट्टीमा उपयोगी जानकारी