সুচিপত্র
যখন আমাদের এক্সেল ওয়ার্কবুকে একটি বৃহৎ ডেটাসেট থাকে, আমরা যে নির্দিষ্ট ফলাফল পেতে চাই তা বের করার জন্য আমরা যদি সারিগুলির মধ্য দিয়ে লুপ করতে পারি তবে এটি সুবিধাজনক। এক্সেলের যেকোনো অপারেশন চালানোর জন্য VBA প্রয়োগ করা সবচেয়ে কার্যকর, দ্রুততম এবং নিরাপদ পদ্ধতি। এই নিবন্ধে, আমরা আপনাকে VBA ম্যাক্রো দিয়ে এক্সেলে সারণীর সারিগুলি লুপ করার বিষয়ে 11টি ভিন্ন পদ্ধতি দেখাব।
ওয়ার্কবুক ডাউনলোড করুন
আপনি এখান থেকে বিনামূল্যে অনুশীলন এক্সেল ওয়ার্কবুক ডাউনলোড করতে পারেন৷
VBA.xlsm এর মাধ্যমে সারণির সারিগুলি লুপ করুন
Excel-এ সারণির সারিগুলি লুপ করার জন্য VBA-এর সাথে 11টি পদ্ধতি
এই বিভাগটি অনুসরণ করে, আপনি শিখবেন কীভাবে টেবিলের সারিগুলি লুপ করতে হয় 11টি ভিন্ন পদ্ধতি সহ, যেমন একটি ফাঁকা ঘর পর্যন্ত সারি দিয়ে লুপ করুন, একটি নির্দিষ্ট মান পাওয়া না যাওয়া পর্যন্ত সারিগুলির মধ্যে দিয়ে লুপ করুন, সারিগুলি লুপ করুন এবং এক্সেলের VBA ম্যাক্রো সহ একটি নির্দিষ্ট ঘরকে রঙ করুন।
<8
উপরে একটি উদাহরণ ডেটাসেট রয়েছে যা এই নিবন্ধটি পদ্ধতিগুলি বর্ণনা করতে অনুসরণ করবে৷
1. সেল রেফারেন্স নম্বর
আপনি যদি আপনার এক্সেল ওয়ার্কশীটে টেবিলের প্রতিটি সারিতে প্রতিটি সেলের মাধ্যমে লুপ করতে চান তাহলে VBA এম্বেড করুন এবং ফেরত মান হিসাবে সেল রেফারেন্স নম্বর পান , তারপর নিচে আলোচনা করা ধাপগুলি অনুসরণ করুন।
পদক্ষেপ:
- শুরুতে , আপনার কীবোর্ডে Alt + F11 চাপুন বা যানভেরিয়েবল।
5833
কোডের এই অংশটি এখানে 1 থেকে 15 পর্যন্ত সারিগুলির মধ্যে লুপ করার জন্য রয়েছে। যদি এটি নির্দিষ্ট শব্দটি খুঁজে পায় " Edge " তাহলে এটি শব্দটি ধারণ করা ঘরটিকে রঙ করে। শব্দটি অনুসন্ধান করার জন্য 1 থেকে 15 সারি পর্যন্ত সমস্ত ডেটা স্ক্যান করা শেষ না হওয়া পর্যন্ত এটি এটি করতে থাকে৷
আরও পড়ুন: ভিলুকআপ টেবিল অ্যারে কীভাবে ব্যবহার করবেন তার উপর ভিত্তি করে এক্সেলে সেল ভ্যালু
একই রকম রিডিং
- টেবিল ফাংশন কি Excel এ বিদ্যমান?
- এক্সেলে কীভাবে টেবিলকে তালিকায় রূপান্তর করবেন (3টি দ্রুত উপায়)
- এক্সেলে রেঞ্জকে টেবিলে রূপান্তর করুন (5 সহজ পদ্ধতি)
- একটি এক্সেল টেবিলে কার্যকরীভাবে সূত্র ব্যবহার করুন (৪টি উদাহরণ সহ)
- এক্সেল টেবিলের নাম: আপনার যা জানা দরকার
7। প্রতিটি সারির মাধ্যমে লুপ করতে VBA প্রয়োগ করুন এবং Excel-এ প্রতিটি বিজোড় সারিতে রঙ করুন
আগের বিভাগ থেকে, আমরা শিখেছি কিভাবে একটি নির্দিষ্ট মান বহন করে এমন একটি ঘরকে রঙ করতে হয়। এই বিভাগে, আমরা শিখব কিভাবে একটি টেবিলের প্রতিটি সারির মধ্য দিয়ে লুপ করা যায় এবং এক্সেলের VBA ম্যাক্রো দিয়ে প্রতিটি বিজোড় সারি রঙ করা যায়।
প্রক্রিয়াটি চালানোর ধাপগুলি নিচে বর্ণনা করা হয়েছে।
পদক্ষেপ:
- আগে দেখানো হয়েছে, ডেভেলপার থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন কোড উইন্ডোতে ট্যাব এবং ঢোকান একটি মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং এটিতে পেস্ট করুন কোড উইন্ডো।
3060
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
38>
- এখন,ম্যাক্রো চালান এবং আউটপুট দেখতে নিম্নলিখিত চিত্রটি দেখুন।
সমস্ত বিজোড়-সংখ্যার সারিগুলি রঙিন ওয়ার্কশীটের টেবিলে থাকা সমস্ত সারিগুলি লুপ করার পরে৷
VBA কোড ব্যাখ্যা
2218
ভেরিয়েবলটি সংজ্ঞায়িত করুন৷
1527
আমরা যে পরিসরের সাথে কাজ করব তা নির্ধারণ করুন।
2696
কোডের এই অংশটি বর্তমান সারির পরবর্তী সারি থেকে শুরু করে সমস্ত সারির মাধ্যমে পুনরাবৃত্তিকে বোঝায়, B4 । যদি সারি সংখ্যাগুলিকে 2 দ্বারা ভাগ করার মোডটি একটি পূর্ণসংখ্যার প্রকারে সংরক্ষিত ফেরত সারি সংখ্যার সমান হয়, তবে এই কোডটি কোডে দেওয়া রঙের সূচকের সাথে গণনার মাধ্যমে বের করা সমস্ত সারিকে রঙ করে। এটি সমস্ত সারির মধ্য দিয়ে চলতে থাকে যতক্ষণ না এটি পরিসরের শেষ প্রান্তে পৌঁছায়।
8. সারিগুলির মাধ্যমে লুপ করার জন্য VBA প্রয়োগ করুন এবং এক্সেলের প্রতিটি জোড় সারিগুলিকে রঙ করুন
আগের বিভাগে, আমরা শিখেছি কিভাবে একটি টেবিলের প্রতিটি বিজোড় সারিকে রঙ করতে হয়। এই বিভাগে, আমরা শিখব কিভাবে একটি টেবিলের প্রতিটি সারির মধ্য দিয়ে লুপ করা যায় এবং এক্সেলের VBA ম্যাক্রোর সাহায্যে প্রতিটি জোড় সারি রঙ করা যায়।
প্রক্রিয়াটি চালানোর ধাপগুলি নীচে আলোচনা করা হয়েছে৷
পদক্ষেপ:
- প্রথমে, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং ঢোকান কোড উইন্ডোতে একটি মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
1214
আপনার কোড এখন প্রস্তুতচালান৷
- পরবর্তী, চালান ম্যাক্রো এবং ফলাফল দেখতে নিম্নলিখিত চিত্রটি দেখুন৷
ওয়ার্কশীটের টেবিলে থাকা সমস্ত সারিগুলি লুপ করার পরে সমস্ত সম-সংখ্যাযুক্ত সারিগুলি রঙিন হয় ৷
VBA কোড ব্যাখ্যা
9778
ভেরিয়েবলটি সংজ্ঞায়িত করুন।
4635
আমরা যে পরিসরের সাথে কাজ করব তা সংজ্ঞায়িত করুন।
4626
কোডের এই অংশটি পরে পুনরাবৃত্তি করা শুরু করে বর্তমান সারি থেকে তিনটি সারি, B4 । এটি প্রথমে এটিকে রঙ করে তারপর সারির সংখ্যা 2 দ্বারা বৃদ্ধি করে এবং ডেটাসেটের শেষ সারিতে না পৌঁছানো পর্যন্ত এটি রঙ করতে থাকে।
9। এক্সেলের ফাঁকা ঘর পর্যন্ত সারিগুলির মাধ্যমে পুনরাবৃত্তি করতে ম্যাক্রো প্রয়োগ করুন
আপনি যদি আপনার কোডটি এমনভাবে কাজ করতে চান যে এটি টেবিলের সমস্ত সারি লুপ করবে এবং একটি ফাঁকা ঘরে পৌঁছালে তা বন্ধ হয়ে যাবে , তাহলে এই বিভাগটি আপনার জন্য। আপনি এক্সেল VBA এ ফর লুপ এবং ডু-অনটিল লুপ উভয়ের মাধ্যমে সেই কাজটি সম্পাদন করতে পারেন।
9.1। FOR লুপ দিয়ে
ভিবিএ এক্সেলে VBA এক্সেলে FOR লুপ সহ একটি ফাঁকা ঘর না হওয়া পর্যন্ত সারণির মধ্যে লুপ করার ধাপগুলি নীচে দেওয়া হয়েছে৷
পদক্ষেপ:
- প্রথমে, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং ঢোকান কোড উইন্ডোতে একটি মডিউল ।
- এর পর, নিম্নলিখিত কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
5381
আপনার কোড এখন চালানোর জন্য প্রস্তুত৷
- তারপর, চালান ম্যাক্রো এবং ফলাফলটি নীচের জিআইএফ-এ দেখানো হয়েছে৷
ম্যাক্রো চালানোর পরে, এটি টেবিলের সমস্ত সারিগুলি লুপ করা শুরু করে এবং একবার এটি খালি ঘরে, সেল B8 এ পৌঁছে, এটি পুনরাবৃত্তি বন্ধ করে দেয় ।
VBA কোড ব্যাখ্যা
3949
ভেরিয়েবলটি সংজ্ঞায়িত করুন।
6687
স্ক্রিন আপডেট করার ইভেন্টটি বন্ধ করুন।
2649
সেল B4 থেকে শুরু করে শেষ পর্যন্ত সমস্ত সারি সংরক্ষণ করুন।
1801
সেল B4 নির্বাচন করুন।
2764
কোডের এই টুকরোটি সমস্ত সারির মধ্য দিয়ে লুপ করা শুরু করে। যখন এটি একটি সারিতে একটি খালি ঘর খুঁজে পায় তখন এটি নির্বাচন করে এবং এটি শেষ না হওয়া পর্যন্ত সারিগুলি স্ক্যান করা চালিয়ে যায়৷
8020
স্ক্রিন আপডেট করার ইভেন্টটি চালু করুন৷
9.2৷ ডু-অনটিল লুপ দিয়ে
ভিবিএ -এ ডু-আনটিল লুপ সহ একটি ফাঁকা ঘর না আসা পর্যন্ত সারিগুলির মধ্য দিয়ে লুপ করার ধাপগুলি নীচে দেওয়া হয়েছে৷
পদক্ষেপ:
- প্রথমে, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং ঢোকান a কোড উইন্ডোতে মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
1543
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
- পরে, চালান ম্যাক্রো। ফলাফলটি নিম্নলিখিত জিআইএফ-এ দেখানো হয়েছে৷
ম্যাক্রো চালানোর পরে, এটি টেবিলে সমস্ত সারি লুপ করা শুরু করে এবং একবার এটি ফাঁকা ঘরে পৌঁছেছে, সেল B8 , এটি পুনরাবৃত্তি বন্ধ করেছে ।
VBA কোডব্যাখ্যা
8306
যে ঘর থেকে আমরা কাজ করব সেটি নির্বাচন করুন।
9570
শুরু হয় এবং একটি খালি সেল পাওয়া না যাওয়া পর্যন্ত লুপ করা চালিয়ে যায়।
8911
যখন একটি খালি সেল হয় একটি সারিতে পাওয়া যায় তারপর এটি নির্বাচন করুন এবং পুনরাবৃত্তি বন্ধ করুন।
10. VBA ম্যাক্রো এক্সেলের একাধিক ফাঁকা কক্ষ পর্যন্ত সারিগুলির মাধ্যমে পুনরাবৃত্তি করতে
আগের বিভাগে, আপনি শিখেছেন কিভাবে একটি খালি সেল পাওয়া গেলে লুপ বন্ধ করতে হয়। কিন্তু যদি আপনি পুনরাবৃত্তি বন্ধ করতে না চান যতক্ষণ না শুধুমাত্র একটির পরিবর্তে একাধিক ফাঁকা ঘর পাওয়া যায়।
একটি টেবিলে একাধিক ফাঁকা কক্ষ না পাওয়া পর্যন্ত সারির মধ্য দিয়ে লুপ করার ধাপগুলি VBA এক্সেলের সাথে নিচে দেখানো হয়েছে।
পদক্ষেপ:
- প্রথমে, ভিজ্যুয়াল বেসিক এডিটর খুলুন কোড উইন্ডোতে ডেভেলপার ট্যাব এবং ঢোকান একটি মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং <1 কোড উইন্ডোতে পেস্ট করুন।
4101
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
- এখন, ম্যাক্রো চালান এবং আউটপুটের জন্য নিম্নলিখিত gif দেখুন।
ম্যাক্রো চালানোর পরে, এটি এ থামেনি প্রথম ফাঁকা ঘর, সেল B8 । এটি বন্ধ হয়ে যায় যখন এটি সেলে B16 পরপর দুটি ফাঁকা কক্ষ খুঁজে পায়।
VBA কোড ব্যাখ্যা
5286
সেলটি নির্বাচন করুন যেখান থেকে আমরা কাজ করব।
5440
পরপর দুটি খালি সেল পাওয়া না যাওয়া পর্যন্ত লুপ করা শুরু করে এবং চালিয়ে যেতে থাকে।
2955
যখন পরপর দুটি খালি সেল পাওয়া যায়, তখনএটি নির্বাচন করুন এবং পুনরাবৃত্তি বন্ধ করুন।
11. এক্সেলের ফাঁকা পর্যন্ত সমস্ত কলাম সংযুক্ত করে সারিগুলির মধ্যে লুপ করার জন্য VBA এম্বেড করুন
এই বিভাগটি আপনাকে দেখাবে কিভাবে একটি টেবিলের সমস্ত সারি লুপ করতে হয় এবং একটি ফাঁকা ঘর পর্যন্ত সমস্ত কলাম সংযুক্ত করতে হয় পাওয়া যায় VBA এক্সেলের সাথে।
চলো শিখি কিভাবে এক্সেলের VBA ম্যাক্রো দিয়ে তা করা যায়।
পদক্ষেপ:
- প্রথমে, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং একটি মডিউল <2 ঢোকান > কোড উইন্ডোতে।
- তারপর, নিচের কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
2889
আপনার কোড এখন চালানোর জন্য প্রস্তুত৷
- পরে, চালান ম্যাক্রো এবং ফলাফলের জন্য নিম্নলিখিত জিআইএফটি দেখুন৷
যেমন আপনি উপরের জিআইএফ থেকে দেখতে পাচ্ছেন যে সেখানে একটি পপ-আপ MsgBox আপনাকে দেখায় যে প্রতিটি কলামের সমন্বিত মান সারি আপনার এক্সেল ওয়ার্কশীটের টেবিল থেকে। কিন্তু এটি একবার ফাঁকা কক্ষে পৌঁছানোর পরে এটি বন্ধ হয়ে যায় ।
VBA কোড ব্যাখ্যা
4735
ভেরিয়েবলের সংজ্ঞা দিন।
6042
আমরা যে শীটের নাম দিয়ে কাজ করব সেটি সেট করুন (“ ConcatenatingAllColUntilBlank ” হল ওয়ার্কবুকের শীটের নাম)।
4320
আমরা যে পরিসরের সাথে কাজ করব তা নির্ধারণ করুন।
5120
কোডের এই অংশটি অ্যারের সাথে লুপ শুরু করে। এটি লুপ চলতে থাকে যতক্ষণ না এটি অ্যারের বৃহত্তম সাবস্ক্রিপ্ট এবং নীচের সীমানা ফেরত দেয়প্রথম মাত্রা। তারপরে এটি দ্বিতীয় মাত্রার নিম্ন সীমা নিষ্কাশনের পুনরাবৃত্তিতে প্রবেশ করে। এর পরে, এটি iResult ভেরিয়েবলের সমস্ত নিষ্কাশিত মানগুলিকে একত্রিত করে এবং ফলাফলটি MsgBox-এ ফেলে দেয়। এটি একটি খালি কক্ষ খুঁজে না পাওয়া পর্যন্ত এটি করতেই থাকে।
উপসংহার
উপসংহারে, এই নিবন্ধটি আপনাকে সারির মধ্য দিয়ে লুপ করার 11টি কার্যকর পদ্ধতি দেখিয়েছে। VBA ম্যাক্রো সহ এক্সেলের একটি টেবিলের । আমি আশা করি এই নিবন্ধটি আপনার জন্য খুব উপকারী হয়েছে. বিষয় সম্পর্কিত যেকোনো প্রশ্ন নির্দ্বিধায় করুন।
ট্যাবে ডেভেলপার -> ভিজ্যুয়াল বেসিকখোলার জন্য ভিজ্যুয়াল বেসিক এডিটর।14>
- এর পরে, পপ-আপ কোড উইন্ডোতে, মেনু বার, ঢোকান -> মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং কোডে পেস্ট করুন উইন্ডো৷
9667
আপনার কোড এখন চালানোর জন্য প্রস্তুত৷
- এখন, আপনার উপর F5 টিপুন কীবোর্ড বা মেনু বার থেকে চালান -> সাব/ইউজারফর্ম চালান। এছাড়াও আপনি ম্যাক্রো চালানোর জন্য সাব-মেনু বারে ছোট প্লে আইকনে ক্লিক করতে পারেন।
- অথবা ডেটাসেট এবং ফলাফলের দৃশ্যত সাক্ষী এবং তুলনা করতে, আপনি কোডটি সংরক্ষণ করতে পারেন এবং ওয়ার্কশীটে ফিরে যেতে পারেন আগ্রহের৷
- সেখান থেকে, আপনি <1 ক্লিক করতে পারেন৷>ম্যাক্রো বিকাশকারী ট্যাব থেকে, ম্যাক্রো নাম নির্বাচন করুন, এবং তারপরে চালান ক্লিক করুন।
সফল কোড কার্যকর করার পরে, ফলাফল দেখতে উপরের জিআইএফটি দেখুন। একটি পপ-আপ হবে MsgBox যা আপনাকে দেখাবে প্রতিটি সারি থেকে প্রতিটি সেলের সেল রেফারেন্স নম্বর আপনার এক্সেল শীটের টেবিল থেকে।
VBA কোড ব্যাখ্যা
9809
সারণিতে শেষ সারি নম্বর পেতে কলাম B অনুসন্ধান করে।
5314
সারি নম্বর 4 সেট করুন, যেখান থেকে আমাদের ডেটা শুরু হয়।
9742
প্রথম সারি থেকে লুপ করতে।
3902
কলাম নম্বর 2 সেট করুন, যেখান থেকে আমাদের ডেটা শুরু হয়।
8817
শেষটি পেতে সারিগুলির মধ্য দিয়ে লুপ করা শুরু করুনশেষ সারি পর্যন্ত বর্তমান সারি মূল্যায়ন করে কলাম নম্বর।
4533
প্রথম সারি থেকে শেষ সারি পর্যন্ত কলামটি লুপ করে বৃদ্ধি করুন।
2399
কোডের এই অংশটি প্রক্রিয়া করার জন্য কাজ করে, প্রতিটির পরে বৃদ্ধি পুনরাবৃত্তি করুন এবং কোডের ফলাফল প্রদর্শন করুন।
আরো পড়ুন: একটি এক্সেল টেবিলে কীভাবে স্বয়ংক্রিয়ভাবে নতুন সারি যুক্ত করবেন
2 . প্রতিটি সারিতে প্রতিটি কক্ষের মধ্য দিয়ে লুপ করার জন্য VBA প্রয়োগ করুন
যদি আপনি একটি টেবিলের প্রতিটি সারিতে প্রতিটি কক্ষের মধ্য দিয়ে লুপ করতে চান এবং কোষে থাকা মানটিকে রিটার্ন মান হিসাবে ফেলে দিতে চান , তাহলে এই বিভাগটি আপনাকে VBA Excel-এর সাহায্যে কীভাবে তা করতে হবে তা বের করতে সাহায্য করবে।
আপনি এটি ListObject এবং <1 দিয়ে করতে পারেন>DataBodyRange সম্পত্তি VBA । আমরা আপনাকে বস্তু এবং সম্পত্তি উভয়ের সাথে ম্যাক্রো কোড দেখাব।
2.1. ListObject
VBA Excel-এ ListObject দিয়ে সেল ভ্যালু দিয়ে টেবিলের প্রতিটি সারির প্রতিটি সেলের মধ্য দিয়ে লুপ করার ধাপগুলি নীচে দেওয়া হল।
পদক্ষেপ:
- আগের মতই, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং <কোড উইন্ডোতে 1>ঢোকান একটি মডিউল ।
- তারপর, কোড উইন্ডোতে, নিচের কোডটি কপি করুন এবং পেস্ট করুন এটি৷
2099
আপনার কোড এখন চালানোর জন্য প্রস্তুত৷
- এর পরে, ম্যাক্রোটি চালান যেমন আমরা আপনাকে উপরের বিভাগে দেখিয়েছি। ফলাফল জিআইএফ-এ দেখানো হয়েছেনীচে৷
একটি পপ-আপ MsgBox দেখাবে যে প্রতিটি সারি থেকে প্রতিটি সেল দ্বারা বহন করা মান আপনার এক্সেল শীটের টেবিল থেকে।
VBA কোড ব্যাখ্যা
2373
ভেরিয়েবলের সংজ্ঞা দিন।
4393
এই টুকরা কোডটি প্রথমে টেবিলের সারিগুলির মধ্য দিয়ে লুপ করা শুরু করে (“ TblStudents ” হল আমাদের টেবিলের নাম)। তারপর প্রতিটি সারির জন্য কলাম প্রবেশ করান। এর পরে, MsgBox-এ সেলের মান পাস করুন। তারপর পরবর্তী কলামে যান। একটি সারির সমস্ত কলামের মাধ্যমে পুনরাবৃত্তি শেষ করার পরে, এটি পরবর্তী সারিতে যায় এবং শেষ সারি পর্যন্ত পুনরাবৃত্তি প্রক্রিয়া চালিয়ে যায়।
2.2। DataBodyRange প্রপার্টি
টেবিল থেকে নিষ্কাশিত ডেটার সাথে আরও সুনির্দিষ্ট হতে, আপনি ListObject এর DataBodyRange বৈশিষ্ট্যটি ব্যবহার করতে পারেন। DataBodyRange প্রপার্টি আপনাকে হেডার সারি এবং সন্নিবেশ সারির মধ্যবর্তী তালিকা থেকে পরিসীমা সমন্বিত ফলাফল ছুঁড়ে দেবে।
আপনি কীভাবে প্রতিটি সারিতে প্রতিটি কক্ষের মধ্য দিয়ে লুপ করতে পারেন তার ধাপগুলি VBA Excel-এ DataBodyRange সহ সেল মান অনুসারে একটি টেবিল নিচে দেওয়া হল।
পদক্ষেপ:
- যেমন দেখানো হয়েছে আগে, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং কোড উইন্ডোতে ঢোকান একটি মডিউল ।
- তারপর , নিচের কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
2847
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
- পরে, চালান ম্যাক্রো এবং আউটপুট দেখতে নিম্নলিখিত gif দেখুন।
একটি পপ-আপ হবে MsgBox আপনার এক্সেল শীটের টেবিল থেকে প্রতিটি সারি থেকে প্রতিটি সেল দ্বারা বহন করা মান আপনার এক্সেল শীট থেকে দেখানো হচ্ছে।
VBA কোড ব্যাখ্যা
8630
ভেরিয়েবলটি সংজ্ঞায়িত করুন।
9578
কোডের এই অংশটি প্রথমে টেবিলের সারিগুলির মধ্য দিয়ে লুপ করা শুরু করে (“ TblStdnt ” আমাদের টেবিলের নাম) এবং বাদ দিয়ে বিভিন্ন মান প্রদান করে। টেবিলের হেডার সারি। তারপর MsgBox-এ রেঞ্জের মান পাস করুন। তারপর এটি পরিসীমা বের করতে পরবর্তী সারিতে যায় এবং শেষ সারি পর্যন্ত পুনরাবৃত্তি প্রক্রিয়া চালিয়ে যায়।
3. এক্সেলের মধ্যে কলাম সংযুক্ত করে সারিগুলির মাধ্যমে পুনরাবৃত্তি করতে VBA ম্যাক্রো প্রয়োগ করুন
এই বিভাগটি দেখাবে কীভাবে আপনার ডেটাসেট থেকে প্রথম কলামের সাথে কলামগুলিকে একত্রিত করে সারির মধ্য দিয়ে লুপ করতে হয়। এক্সেল-এ।
উদাহরণস্বরূপ, আমাদের ডেটাসেটের জন্য, প্রথমে আমরা সেলে B5 এর জন এবং 101 সেল C5 -এর মাধ্যমে সেগুলিকে একত্রিত করে পুনরাবৃত্ত করব। সারি B5 সেল B5 এ জন এবং 89 সেল D5 এগুলিকে সারি 5 থেকে একত্রিত করে।
আপনি কীভাবে এটি করতে পারেন তা আমাদের দেখান। এক্সেলে VBA ম্যাক্রো।
পদক্ষেপ:
- প্রথমে, ভিজ্যুয়াল বেসিক এডিটর খুলুন। কোড উইন্ডোতে 1>ডেভেলপার ট্যাব এবং ঢোকান একটি মডিউল ।
- দ্বিতীয়ত, কোড উইন্ডোতে, অনুলিপি নিম্নলিখিতগুলি কোডএবং পেস্ট করুন এটি।
3308
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
- তৃতীয়ত, <1 ম্যাক্রো চালান। ফলাফলটি দেখতে নীচের জিআইএফটি দেখুন৷
সেখানে একটি পপ-আপ হবে MsgBox আপনাকে সংযুক্ত মান দেখাচ্ছে প্রথম এবং দ্বিতীয় কলামের কোষগুলির মধ্যে ( কলাম B5 থেকে কলাম B5-এ জন এবং কলাম C থেকে C5 সেল C5-এ 101) এবং তারপর সংযুক্ত মান প্রথম এবং তৃতীয় কলামের কক্ষগুলির মধ্যে ( কলাম B5 থেকে কলাম B5 এর জন এবং কলাম D থেকে সেল D5-এ 89) সারি নম্বর 5 আপনার ডেটাসেট থেকে। এবং এই সংযুক্তিকরণ অপারেশনটি চলতে থাকবে যতক্ষণ না এটি টেবিলের শেষ সারিতে পৌঁছায়।
VBA কোড ব্যাখ্যা
7161
ভেরিয়েবলের সংজ্ঞা দিন।
4567
তারপর কোডটি সক্রিয় শীট থেকে টেবিলটি নির্বাচন করে (“ TblConcatenate ” আমাদের টেবিলের নামে)।
9798
এর পরে, হেডার বাদ দিয়ে প্রতিটি সারি পুনরাবৃত্তি করা শুরু করে। কলাম যদি পুনরাবৃত্তিটি কলাম শিরোনাম এবং সারিগুলির মধ্যে একটি মিল খুঁজে পায় তবে এটি iValue ভেরিয়েবলে মান সংরক্ষণ করে।
3981
উপরের শর্তটি পূরণ না হলে, তারপর কোডটি MsgBox-এ মান নিক্ষেপ করে এবং শর্তটি শেষ করে। এর পরে, এটি অন্য পরিসরে লুপ করার দিকে চলে যায় এবং শেষ সারি পর্যন্ত পুনরাবৃত্তি করতে থাকে। এটি শেষ সারিতে পৌঁছে গেলে, ম্যাক্রো কোড এক্সিকিউশন শেষ করে।
4. পুনরাবৃত্তি করতে ম্যাক্রো এম্বেড করুনএক্সেলের একটি সারণীতে সমস্ত কলাম একত্রিত করার মাধ্যমে সারিগুলির মাধ্যমে
এই বিভাগে, আমরা শিখব কিভাবে এর সাথে ডেটাসেটে প্রতিটি সারি ধারণ করা সমস্ত কলামগুলিকে সকল কলামকে সংযুক্ত করতে হয়। এক্সেলে VBA ম্যাক্রো।
এক্সিকিউট করার ধাপ যা নিচে দেখানো হয়েছে।
পদক্ষেপ:
- প্রথমে, খুলুন ভিজ্যুয়াল বেসিক এডিটর ডেভেলপার ট্যাব থেকে এবং কোড উইন্ডোতে ঢোকান একটি মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
1486
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
- এর পর, ম্যাক্রো কোড চালান । 14>
আপনি উপরের জিআইএফ থেকে দেখতে পাচ্ছেন যে সেখানে আছে একটি পপ-আপ MsgBox আপনার এক্সেল ওয়ার্কশীটের টেবিল থেকে প্রতি সারিতে থাকা সমস্ত কলামের সংযুক্ত মান দেখায়।
VBA কোড ব্যাখ্যা
1453
ভেরিয়েবলগুলিকে সংজ্ঞায়িত করুন।
1554
আমরা যে শীটের নাম দিয়ে কাজ করব সেটি সেট করুন (“ ConcatenatingAllCol ” হল শীটের নাম ওয়ার্কবুকে)।
1683
ডি আমরা যে টেবিলের নাম দিয়ে কাজ করব তা সূক্ষ্ম করুন (“ TblConcatenateAll ” হল আমাদের ডেটাসেটের টেবিলের নাম)।
3233
টেবিলের প্রতিটি সারির মাধ্যমে পুনরাবৃত্তি শুরু করে।
7056
সারণীর প্রতিটি সারির প্রতিটি কলামের মাধ্যমে পুনরাবৃত্তি শুরু করে।
7503
প্রতিটি সারির প্রতিটি কলাম বহন করে এমন মানগুলিকে ছেদ করে ফলাফল সংরক্ষণ করুন। প্রতিটি সারিতে থাকা সমস্ত কলাম স্ক্যান করার পরে, এটি পাস করেছেMsgBox-এ ফলাফল। তারপরে আবার পরের সারিতে লুপ করা শুরু করে এবং টেবিলের শেষ সারিতে না পৌঁছানো পর্যন্ত লুপ করা চলতে থাকে।
আরো পড়ুন: এক্সেল VBA-এর সাহায্যে একটি টেবিলের একাধিক কলাম কীভাবে সাজানো যায় (2 পদ্ধতি)
5. VBA ম্যাক্রো
মনে করুন যে আপনি আপনার টেবিলের সারিগুলির মধ্য দিয়ে লুপ করতে চান এবং যখন এটি একটি নির্দিষ্ট মান খুঁজে পায় তখন লুপিং বন্ধ করতে চান তাহলে পুনরাবৃত্তি বন্ধ করুন । আপনি এটি শুধুমাত্র একটি সাধারণ ম্যাক্রো কোড দিয়ে করতে পারেন৷
চলো আসুন শিখি কিভাবে এটি করতে হয় VBA Excel এ৷
পদক্ষেপ:
- প্রথমে, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং কোড উইন্ডোতে ঢোকান একটি মডিউল ।
- তারপর, কোড উইন্ডোতে, নিচের কোডটি কপি করুন এবং পেস্ট করুন এটি।
1943
আপনার কোড এখন চালানোর জন্য প্রস্তুত .
- পরে, ম্যাক্রো চালান ।
- এটি লুপ শুরু করবে এবং যখন এটি বন্ধ করবে রেঞ্জের মধ্যে নির্দিষ্ট মান (“ Edge ”) খুঁজে পায় এবং ফলাফলটিকে MsgBox এ ছুড়ে দেয়।
আপনি উপরের ছবিটি থেকে দেখতে পাচ্ছেন, সেখানে একটি পপ-আপ MsgBox আপনাকে সেল ঠিকানা, $B$10 দেখাচ্ছে, যেখানে আমরা খুঁজে পেয়েছি নির্দিষ্ট মান, “ Edge ” ।
VBA কোড ব্যাখ্যা
7249
সংজ্ঞায়িত করুন পরিবর্তনশীল।
7438
কোডের এই অংশটি এখানে 1 থেকে 15 পর্যন্ত সারিগুলির মধ্যে লুপ করার জন্য রয়েছে। যদি এটি নির্দিষ্ট শব্দটি খুঁজে পায়" Edge " তারপর এটি শব্দটি ধারণ করে এমন সেল ঠিকানা দিয়ে ফলাফলটি পাস করে। শব্দটি অনুসন্ধান করার জন্য 1 থেকে 15 সারি পর্যন্ত সমস্ত ডেটা স্ক্যান করা শেষ না হওয়া পর্যন্ত এটি এটি চালিয়ে যায়৷
আরও পড়ুন: কিভাবে এক্সেল টেবিল থেকে সারি এবং কলাম সন্নিবেশ বা মুছে ফেলতে হয়
6. প্রতিটি সারির মাধ্যমে লুপ করার জন্য VBA এবং Excel এ একটি নির্দিষ্ট মান রঙ করুন
আপনি যদি MsgBox-এ নির্দিষ্ট মানের সেল ঠিকানা ফেলতে না চান তাহলে কী হবে? আপনি হয়ত কোষটিকে রঙ করতে চান যেটি মান বহন করে যেটি আপনি খুঁজছেন।
আসুন শিখি কিভাবে এটি VBA ম্যাক্রো দিয়ে করা যায়।
পদক্ষেপ:
- আগের মতই, ডেভেলপার ট্যাব থেকে ভিজ্যুয়াল বেসিক এডিটর খুলুন এবং ঢোকান কোড উইন্ডোতে একটি মডিউল ।
- তারপর, নিচের কোডটি কপি করুন এবং কোড উইন্ডোতে পেস্ট করুন ।
8350
আপনার কোড এখন চালানোর জন্য প্রস্তুত।
- এর পর, চালান ম্যাক্রো।
- এটি লুপটি শুরু করবে এবং যখন এটি নির্দিষ্ট মান (“ Edge ”) পরিসরে খুঁজে পাবে তখন এটি বন্ধ করবে এবং ColorIndex এর সাথে সেলটিকে রঙ করবে যেটা আপনি কোডে দিয়েছেন।
আপনি উপরের ছবিটি থেকে দেখতে পাচ্ছেন, C ell B10 , যেখানে আমরা নির্দিষ্ট মান খুঁজে পেয়েছি, “ Edge ” রঙিন হয় কোড এক্সিকিউশনের পরে।
VBA কোড ব্যাখ্যা
6817
সংজ্ঞায়িত করুন