ক্লিপবোর্ডে নির্বাচিত কক্ষের যোগফল কপি করুন

কখনও কখনও কিছু জিনিস নিয়ে আসতে খুব দীর্ঘ সময় লাগে। কিন্তু যখন তারা ইতিমধ্যেই উদ্ভাবিত হয়েছে, বাস্তবতার পরে তারা সুস্পষ্ট এবং এমনকি সাধারণ বলে মনে হয়। সিরিজ থেকে "কি, এটা সম্ভব ছিল?"।

প্রথম সংস্করণ থেকে, মাইক্রোসফ্ট এক্সেল উইন্ডোর নীচে স্ট্যাটাস বারটি ঐতিহ্যগতভাবে নির্বাচিত কক্ষগুলির জন্য মোট সংখ্যা প্রদর্শন করে:

যদি ইচ্ছা হয়, এই ফলাফলগুলিতে ডান-ক্লিক করা এবং প্রসঙ্গ মেনু থেকে ঠিক কোন ফাংশনগুলি আমরা দেখতে চাই তা নির্বাচন করাও সম্ভব ছিল:

এবং সম্প্রতি, সাম্প্রতিক এক্সেল আপডেটগুলিতে, মাইক্রোসফ্ট বিকাশকারীরা একটি সহজ কিন্তু বুদ্ধিমান বৈশিষ্ট্য যুক্ত করেছে – এখন আপনি যখন এই ফলাফলগুলিতে ক্লিক করেন, সেগুলি ক্লিপবোর্ডে অনুলিপি করা হয়!

সৌন্দর্য। 

কিন্তু যাদের কাছে এখনো (বা ইতিমধ্যে?) এক্সেলের এমন সংস্করণ নেই তাদের কী হবে? এখানেই সহজ ম্যাক্রো সাহায্য করতে পারে।

ম্যাক্রো ব্যবহার করে ক্লিপবোর্ডে নির্বাচিত কক্ষের যোগফল কপি করা হচ্ছে

ট্যাবে খুলুন ডেভেলপার (বিকাশকারী) সম্পাদক ভিসুয়াল বেসিক অথবা এই কীবোর্ড শর্টকাট ব্যবহার করুন অল্টার+F11. মেনুর মাধ্যমে নতুন খালি মডিউল ঢোকান সন্নিবেশ - মডিউল এবং সেখানে নিম্নলিখিত কোড অনুলিপি করুন:

Sub SumSelected() যদি TypeName(Selection) <> "Range" তাহলে GetObject ("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") দিয়ে সাব থেকে প্রস্থান করুন .SetText WorksheetFunction.Sumd(Enpboard) এর সাথে সাবটি  

এর যুক্তি সহজ:

• প্রথমে আসে "মূর্খ থেকে সুরক্ষা" - আমরা ঠিক কী হাইলাইট করা হয়েছে তা পরীক্ষা করি। যদি ঘরগুলি নির্বাচিত না হয় (কিন্তু, উদাহরণস্বরূপ, একটি চার্ট), তারপর ম্যাক্রো থেকে প্রস্থান করুন।
• তারপর কমান্ড ব্যবহার করে গেটবজেক্ট আমরা একটি নতুন ডেটা অবজেক্ট তৈরি করি যেখানে আমাদের নির্বাচিত সেলগুলির যোগফল পরে সংরক্ষণ করা হবে। একটি দীর্ঘ এবং বোধগম্য আলফানিউমেরিক কোড আসলে, উইন্ডোজ রেজিস্ট্রি শাখার একটি লিঙ্ক যেখানে লাইব্রেরি অবস্থিত মাইক্রোসফট ফর্ম 2.0 অবজেক্ট লাইব্রেরি, যা এই ধরনের বস্তু তৈরি করতে পারে। কখনও কখনও এই কৌশলটিও বলা হয় অন্তর্নিহিত দেরী বাঁধাই. যদি আপনি এটি ব্যবহার না করেন, তাহলে আপনাকে মেনুর মাধ্যমে ফাইলটিতে এই লাইব্রেরির একটি লিঙ্ক তৈরি করতে হবে টুলস - রেফারেন্স.
• নির্বাচিত কক্ষের যোগফলকে একটি কমান্ড হিসাবে বিবেচনা করা হয় WorksheetFunction.Sum(নির্বাচন), এবং তারপর ফলাফলের পরিমাণ কমান্ডের সাথে ক্লিপবোর্ডে স্থাপন করা হয় পুটইনক্লিপবোর্ড

ব্যবহারের সুবিধার জন্য, আপনি অবশ্যই এই ম্যাক্রোটিকে একটি কীবোর্ড শর্টকাটে বোতামটি ব্যবহার করে বরাদ্দ করতে পারেন ম্যাক্রো ট্যাব ডেভেলপার (ডেভেলপার - ম্যাক্রো).

এবং যদি আপনি দেখতে চান যে ম্যাক্রো চালানোর পরে ঠিক কী অনুলিপি করা হয়েছে, আপনি সংশ্লিষ্ট গোষ্ঠীর নীচের ডানদিকের কোণায় ছোট তীরটি ব্যবহার করে ক্লিপবোর্ড প্যানেলটি চালু করতে পারেন। প্রধান (বাড়ি) ট্যাব:

শুধু পরিমাণ নয়

যদি, সাধারণ পরিমাণ ছাড়াও, আপনি অন্য কিছু চান, তাহলে আপনি বস্তুটি আমাদের সরবরাহ করে এমন যে কোনও ফাংশন ব্যবহার করতে পারেন ওয়ার্কশীট ফাংশন:

উদাহরণস্বরূপ, আছে:

• যোগফল - যোগফল
• গড় – পাটিগণিত গড়
• গণনা - সংখ্যা সহ কক্ষের সংখ্যা
• CountA - ভরা কক্ষের সংখ্যা
• কাউন্টব্ল্যাঙ্ক - খালি কক্ষের সংখ্যা
• ন্যূনতম - সর্বনিম্ন মান
• সর্বোচ্চ - সর্বোচ্চ মান
• মধ্যমা - মধ্যমা (কেন্দ্রীয় মান)
• … ইত্যাদি

ফিল্টার এবং লুকানো সারি-কলাম সহ

যদি নির্বাচিত পরিসরে সারি বা কলাম লুকানো থাকে (ম্যানুয়ালি বা ফিল্টার দ্বারা)? মোটের মধ্যে এগুলিকে বিবেচনায় না নেওয়ার জন্য, বস্তুতে যোগ করে আমাদের কোডটি সামান্য পরিবর্তন করতে হবে নির্বাচন সম্পত্তি স্পেশাল সেলস(xlCellTypeVisible):

Sub SumVisible() যদি TypeName(নির্বাচন) <> "রেঞ্জ" তাহলে GetObject ("নতুন:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") দিয়ে সাব থেকে প্রস্থান করুন .SetText WorksheetFunction.Sum(Selectible)Velect) PutInClipboard এন্ড সাব দিয়ে শেষ করুন  

এই ক্ষেত্রে, যে কোনও মোট ফাংশনের গণনা শুধুমাত্র দৃশ্যমান কোষগুলিতে প্রয়োগ করা হবে।

যদি আপনি একটি জীবন্ত সূত্র প্রয়োজন

আপনি যদি স্বপ্ন দেখেন, আপনি এমন পরিস্থিতি নিয়ে আসতে পারেন যখন কোনও সংখ্যা (ধ্রুবক) নয়, বাফারে একটি জীবন্ত সূত্র অনুলিপি করা ভাল, যা নির্বাচিত ঘরগুলির জন্য আমাদের প্রয়োজনীয় মোট সংখ্যা গণনা করে। এই ক্ষেত্রে, আপনাকে টুকরো থেকে সূত্রটি আঠালো করতে হবে, এতে ডলারের চিহ্নগুলি অপসারণ এবং কমা (যা VBA-তে বেশ কয়েকটি নির্বাচিত রেঞ্জের ঠিকানাগুলির মধ্যে একটি বিভাজক হিসাবে ব্যবহৃত হয়) একটি সেমিকোলন দিয়ে প্রতিস্থাপন করতে হবে:

সাব SumFormula() যদি TypeName(নির্বাচন) <> "রেঞ্জ" তাহলে GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") দিয়ে সাব থেকে প্রস্থান করুন। ঠিকানা, ",", ";"), "$", "") & ")" .PutInClipboard End with End Sub  

অতিরিক্ত শর্ত সহ সমষ্টি

এবং, অবশেষে, সম্পূর্ণ উন্মাদদের জন্য, আপনি একটি ম্যাক্রো লিখতে পারেন যা সমস্ত নির্বাচিত কক্ষের সমষ্টি হবে না, তবে শুধুমাত্র সেইগুলি যা প্রদত্ত শর্তগুলি পূরণ করে। সুতরাং, উদাহরণস্বরূপ, একটি ম্যাক্রো দেখতে এমন হবে যে বাফারে নির্বাচিত কক্ষের যোগফল রাখে, যদি তাদের মান 5 এর বেশি হয় এবং একই সাথে সেগুলি যে কোনও রঙে পূর্ণ হয়:

 Sub CustomCalc() Dim myRange as Range যদি TypeName(Selection) <> "Range" তাহলে নির্বাচনের প্রতিটি সেলের জন্য Sub থেকে প্রস্থান করুন যদি cell.Value > 5 এবং cell.Interior.ColorIndex <> xlNone তারপর যদি myRange কিছুই না থাকে তাহলে myRange = সেট করুন। সেল অন্যথায় সেট করুন myRange = Union(myRange, cell) End If End If End যদি পরবর্তী সেল GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(MyPRang) এর সাথে সাব-বোর্ড  

আপনি সহজেই কল্পনা করতে পারেন, শর্তগুলি একেবারে সেট করা যেতে পারে – সেল ফরম্যাট পর্যন্ত – এবং যে কোনও পরিমাণে (তাদেরকে লজিক্যাল অপারেটর বা বা এবং এবং এর সাথে একত্রে লিঙ্ক করা সহ)। কল্পনা করার জন্য অনেক জায়গা আছে।

• সূত্রগুলিকে মানগুলিতে রূপান্তর করুন (6 উপায়)
• ম্যাক্রো কি, কিভাবে ব্যবহার করতে হয়, কোথায় ভিজ্যুয়াল বেসিক কোড ঢোকাতে হয়
• Microsoft Excel এর স্ট্যাটাস বারে দরকারী তথ্য