ভিবিএ কাউন্টার | এক্সেল ভিবিএতে কাউন্টার কীভাবে তৈরি করবেন? (উদাহরণ সহ)
এক্সেল ভিবিএ কাউন্টার
এমএস এক্সেলের বিভিন্ন ফাংশন রয়েছে মানগুলি স্ট্রিং, সংখ্যা কিনা তা গণনা করার জন্য। কিছু মানদণ্ডের ভিত্তিতে গণনা করা যেতে পারে। কার্যসমূহের মধ্যে COUNT, COUNTA, COUNTBLANK, COUNTIF, এবং COUNTIFS এক্সেল রয়েছে। যাইহোক, এই ফাংশনগুলি কোষগুলির রঙের উপর ভিত্তি করে গণনা করা, কেবলমাত্র সাহসী মানগুলি গণনা করা ইত্যাদির মতো কিছু কাজ করতে পারে না That এজন্য আমরা ভিবিএতে একটি কাউন্টার তৈরি করব যাতে আমরা এই ধরণের কাজের জন্য এক্সেলের জন্য গণনা করতে পারি।
আসুন এক্সেল ভিবিএতে কিছু কাউন্টার তৈরি করি।
এক্সেল ভিবিএ কাউন্টার উদাহরণ
আপনি এই ভিবিএ কাউন্টার এক্সেল টেম্পলেটটি এখানে ডাউনলোড করতে পারেন - ভিবিএ কাউন্টার এক্সেল টেম্পলেটনীচে ভিবিএ-র কাউন্টারের উদাহরণ রয়েছে।
উদাহরণ # 1
ধরুন, আমাদের কাছে 32 টি সারির জন্য উপরের মতো ডেটা রয়েছে। আমরা একটি ভিবিএ কাউন্টার তৈরি করব, যা মানগুলি গণনা করবে, যা 50 এর চেয়ে বেশি এবং মানগুলি 50 টিরও কম মান গণনা করবে We আমরা ভিবিএ কোডটি এইভাবে তৈরি করব যাতে ব্যবহারকারীর জন্য ডেটা থাকতে পারে এক্সেল সীমাহীন সারি।
একই কাজ করার জন্য, পদক্ষেপগুলি হ'ল:
নিশ্চিত করুন বিকাশকারী ট্যাব এক্সেল দৃশ্যমান। ট্যাবটি দৃশ্যমান করতে (যদি না হয়), পদক্ষেপগুলি হ'ল:
ক্লিক করুন ‘ফাইল’ ফিতা মধ্যে ট্যাব এবং চয়ন করুন ‘বিকল্প’ তালিকা থেকে।
পছন্দ করা 'রিবন কাস্টমাইজ করুন ’ তালিকা থেকে, জন্য বক্স চেক করুন ‘বিকাশকারী’, এবং ক্লিক করুন ঠিক আছে.
এখন ‘বিকাশকারী’ ট্যাব দৃশ্যমান.
কমান্ড বোতামটি ব্যবহার করে .োকান ‘Sertোকান’ কমান্ড উপলব্ধ ‘নিয়ন্ত্রণ’ গোষ্ঠী মধ্যে ‘বিকাশকারী’ ট্যাব.
টিপানোর সময় ALT কী, মাউস দিয়ে কমান্ড বোতাম তৈরি করুন। যদি আমরা টিপতে থাকি ALT কী, তারপরে কমান্ড বোতামের প্রান্তগুলি স্বয়ংক্রিয়ভাবে ঘরের সীমানার সাথে চলে যায়।
প্রাসঙ্গিক মেনু খুলতে কমান্ড বোতামে ডান ক্লিক করুন (নিশ্চিত হয়ে নিন) ‘ডিজাইন মোড’ সক্রিয় করা হয়েছে অন্যথায় আমরা প্রাসঙ্গিক মেনু খুলতে পারব না)।
পছন্দ করা ‘সম্পত্তি’ মেনু থেকে
কমান্ড বোতামের বৈশিষ্ট্যগুলি পরিবর্তন করুন, নাম, ক্যাপশন এবং হরফ ইত্যাদি etc.
আবার ডান ক্লিক করুন এবং নির্বাচন করুন ‘কোড দেখুন’ প্রাসঙ্গিক মেনু থেকে।
ভিজ্যুয়াল বেসিক সম্পাদক এখনই খোলা হয়েছে এবং ডিফল্টরূপে কমান্ড বোতামের জন্য ইতিমধ্যে একটি সাবরুটাইন তৈরি করা হয়েছে।
আমরা এখন কোড লিখব। আমরা 3 ভেরিয়েবল ঘোষণা করব। লুপের উদ্দেশ্যে একটি, একটি গণনা করা এবং একটি শেষ সারির মান সংরক্ষণ করতে।
আমরা কোডটি A1 এবং তারপরে ঘর A1 এর বর্তমান অঞ্চলটি নির্বাচন করতে ব্যবহার করব এবং তারপরে শেষ ভরাট সারির নম্বর পেতে সর্বশেষ ভরাট সারিতে নেমে যাব।
আমরা একটি চালানো হবে ‘জন্য’ ভিবিএতে লুপটি A কক্ষে লিখিত মানগুলি কলামের শেষ ভরাট কক্ষটিতে পরীক্ষা করতে হবে। আমরা এর মান বাড়িয়ে দেব ‘পাল্টা’ মান 50 এর চেয়ে বেশি হলে 1 দ্বারা পরিবর্তনশীল এবং ঘরের ফন্টের রঙ পরিবর্তন করবে ‘নীল’ এবং যদি মান 50 এর কম হয় তবে ঘরের ফন্টের রঙ হবে ‘লাল’.
চেক এবং গণনা করার পরে, আমাদের মানগুলি প্রদর্শন করা দরকার। একই কাজ করতে, আমরা ব্যবহার করব ‘ভিবিএ এমএসবিবক্স’।
কোড:
প্রাইভেট সাব কাউন্টিংসেলসবিউলি_ক্লিক () ডিমে আই, ইন্টিজার ডিম লাস্ট্র হিসাবে লং লাস্ট্রো = রেঞ্জ ("এ 1") হিসাবে কাউন্টার করুন। কারেন্টরিজেন.এন্ড (এক্সএলডাউন)। আই = 2 স্থির করে রাখুন সেলগুলি যদি (i, 1) থাকে। ভ্যালু> 50 তারপরে কাউন্টার = কাউন্টার + 1 সেল (i, 1) .ফন্ট.ক্লোর ইন্ডেক্স = 5 অন্য সেল (i, 1)। ফন্ট.ক্লোর ইন্ডেক্স = 3 সমাপ্ত হয় যদি পরবর্তী আমি ম্যাসবক্স "সেখানে" & কাউন্টার & "মান রয়েছে যা 50 এর চেয়ে বেশি" & _ vbCrLf & "এখানে" & লাস্ট্রো - কাউন্টার এবং "মানগুলি 50 এরও কম" শেষ উপ নিষ্ক্রিয় ‘ডিজাইন মোড’ এবং ক্লিক করুন 'আদেশ বোতাম'। ফলাফল নিম্নলিখিত হিসাবে হবে।
উদাহরণ # 2
ধরুন আমরা নীচে এক্সেল ভিবিএ ব্যবহার করে টাইম কাউন্টার তৈরি করতে চাই:
আমরা যদি ক্লিক করুন ‘শুরু’ বোতামটি, টাইমারটি শুরু হয় এবং যদি আমরা ক্লিক করি ‘থামো’ বোতাম, টাইমার স্টপস।
একই কাজ করার জন্য, পদক্ষেপগুলি হ'ল:
এক্সেল শীটে এর মতো ফর্ম্যাট তৈরি করুন।
A2 ঘরটির বিন্যাসটি হিসাবে পরিবর্তন করুন ‘এইচ: মিমি: এসএস’.
মার্জ এবং সেন্টার এক্সেল ব্যবহার করে C3 সেলগুলিকে G7 এ মার্জ করুন কমান্ড ‘প্রান্তিককরণ’ গোষ্ঠী মধ্যে 'মূল স্থান.
কেবল মার্জ হওয়া ঘরের জন্য সেল এ 2 এর রেফারেন্স দিন এবং তারপরে ফন্টিংটি ফন্টের শৈলীতে করুন ‘বাস্কেরভিলি’, হরফের আকার 60, ইত্যাদি
দুটি কমান্ড বোতাম তৈরি করুন ‘শুরু’ এবং ‘থামো’ ব্যবহার করে ‘সন্নিবেশ’ কমান্ড উপলব্ধ ‘নিয়ন্ত্রণ’ গোষ্ঠী মধ্যে ‘বিকাশকারী’ ট্যাব.
ব্যবহার করে ‘প্রপার্টি’ কমান্ড উপলব্ধ ‘নিয়ন্ত্রণ’ গোষ্ঠী মধ্যে ‘বিকাশকারী’ ট্যাব, বৈশিষ্ট্য পরিবর্তন করুন।
এক এক করে কমান্ড বোতাম নির্বাচন করুন এবং নির্বাচন করুন ‘কোড দেখুন’ আদেশ থেকে ‘নিয়ন্ত্রণ’ গ্রুপ ‘বিকাশকারী’ নীচে কোড লিখতে ট্যাব।
ড্রপ-ডাউন থেকে উপযুক্ত কমান্ড বোতামটি চয়ন করুন।
এর মধ্যে একটি মডিউল .োকান ‘এই ওয়ার্কবুক’ উপর ডান ক্লিক করে ‘এই ওয়ার্কবুক’ এবং তারপরে বেছে নিন ‘Sertোকান’ এবং তারপর ‘মডিউল’.
মডিউলে নিম্নলিখিত কোডটি লিখুন।
কোড:
সাব স্টার্টটাইম () অ্যাপ্লিকেশন.আবারটাইম এখন + টাইমভ্যালু ("00:00:01"), "পরের_মুহূর্ত" শেষ সাব সাব শেষ সময় () অ্যাপ্লিকেশন.অনটাইম এখন + টাইমভ্যালু ("00:00:01"), "পরের_মোমেন্ট",, মিথ্যা সমাপ্ত সাব সাব পরবর্তী_মোন্ট () যদি ওয়ার্কশিট ("টাইম কাউন্টার")। রেঞ্জ ("এ 2")। মান = 0 তারপরে প্রস্থান করুন সাব ওয়ার্কশিট ("সময় কাউন্টার")। সীমা ("এ 2")। মান = কার্যপত্রক ("সময় কাউন্টার ")। ব্যাপ্তি (" এ 2 ")। মান - সময় মূল্য (" 00:00:01 ") শুরু_কালীন শেষ উপ আমরা ব্যবহার করেছি ‘অনটাইম‘পদ্ধতি প্রয়োগ অবজেক্ট, যা একটি নির্ধারিত সময়ে একটি পদ্ধতি চালাতে ব্যবহৃত হয়। পদ্ধতিটি, যা আমরা চালানোর জন্য নির্ধারিত করেছি তা হ'ল "পরের_মামেন্ট".
কোড সংরক্ষণ করুন। এ 2 সেলটিতে সময় লিখুন এবং এ ক্লিক করুন ‘শুরু’ সময় কাউন্টার শুরু করতে বোতাম।
উদাহরণ # 3
ধরা যাক, আমাদের কাছে শিক্ষার্থীদের একটি নম্বর রয়েছে যার সাথে তারা স্কোর করেছে। আমরা পাস করে কে এবং যারা ব্যর্থ হয়েছে তাদের সংখ্যা গণনা করতে চাই।
একই কাজ করতে, আমরা ভিবিএ কোড লিখব।
পদক্ষেপগুলি হবে:
চাপ দিয়ে ভিজ্যুয়াল বেসিক সম্পাদক খুলুন এক্সেল Alt + F11 এর শর্টকাট এবং ডাবল ক্লিক করুন ‘পত্রক 3 (শিক্ষার্থীর সংখ্যা গণনা)’ পত্রক 3-এ একটি ইভেন্টের উপর ভিত্তি করে একটি সাবরোটাইন toোকানো।
পছন্দ করা ‘কার্যপত্রক’ ড্রপডাউন থেকে।
আমরা বাছাই হিসাবে ‘কার্যপত্রক’ তালিকা থেকে, আমরা দেখতে পাচ্ছি, সংলগ্ন ড্রপডাউনটিতে বিভিন্ন ইভেন্ট রয়েছে। আমাদের চয়ন করা প্রয়োজন ‘সিলেকশন চেঞ্জ’ তালিকা থেকে।
আমরা ভিবিএ ভেরিয়েবল ঘোষণা করব 'শেষ সারি' শিক্ষার্থীদের তালিকা হিসাবে শেষ সারির নম্বর সংরক্ষণের জন্য বৃদ্ধি পেতে পারে, ‘পাস’ পাস করা এবং বেশিরভাগ শিক্ষার্থীর স্টোর করা ‘ব্যর্থ’ ব্যর্থ যারা প্রচুর ছাত্র সঞ্চয় করতে।
আমরা শেষ সারির সংখ্যার মান সংরক্ষণ করব 'শেষ সারি'.
আমরা তৈরি করব ‘লুপের জন্য’ শর্তের ভিত্তিতে গণনা করার জন্য।
আমরা শর্তটি সেট করে রেখেছি যদি মোট চিহ্নগুলি 99 এর চেয়ে বেশি হয় তবে 1 এর সাথে মানটি যুক্ত করুন ‘পাস’ পরিবর্তনশীল এবং 1 মান যোগ করুন ‘ব্যর্থ’ শর্ত ব্যর্থ হলে পরিবর্তনশীল।
শেষ বিবৃতি শিরোনাম করে তোলে 'সারসংক্ষেপ' সাহসী.
পত্রকে মানগুলি মুদ্রণ করতে কোডটি হবে:
কোড:
প্রাইভেট সাব ওয়ার্কশিট_স্লেশনচেন্জ (রেঞ্জ হিসাবে বাইভাল টার্গেট) লম্বা ডিমের যতক্ষণ ইন্টিজার ডিম ব্যর্থ হয় তেমন লিম ডিগ্রো ব্যর্থ ইন্টিজার লাস্ট্রো = রেঞ্জ ("এ 1")। কারেন্টরিজেন.এন্ড (এক্সএলডাউন) ।আর আই = 2 সেলগুলি স্থায়ী করতে হলে (i, 5 )> 99 তারপরে পাস = পাস + 1 অন্যভাবে ব্যর্থ = ব্যর্থ + 1 সমাপ্তি যদি ঘরগুলি (1, 7) F ফন্ট.বোল্ড = সত্য নেক্সট আই রেঞ্জ ("জি 1") Val মান = "সারাংশ" ব্যাপ্তি ("জি 2")। মান = "পাস করা শিক্ষার্থীর সংখ্যা হ'ল" এবং পাসের রেঞ্জ ("জি 3")। মান = "ব্যর্থ শিক্ষার্থীর সংখ্যা" এবং শেষ সাব ব্যর্থ এখন যখনই নির্বাচনের পরিবর্তন হবে, মানগুলি নীচের মত আবার গণনা করা হবে:
মনে রাখার মতো ঘটনা
- .Xlsm এক্সেল এক্সটেনশন সহ ভিবিএতে কোড লেখার পরে ফাইলটি সংরক্ষণ করুন অন্যথায় ম্যাক্রো কাজ করবে না।
- ‘ফোর’ লুপটি ব্যবহার করুন যখন ইতিমধ্যে সিদ্ধান্ত নেওয়া হয়েছে যে ভিবিএ লুপের কোডটি কতবার চলবে।
