ভিবিএ উদাহরণ | প্রারম্ভিকদের জন্য শীর্ষ 19 এক্সেল ভিবিএ উদাহরণগুলির তালিকা
নতুনদের জন্য এক্সেল ভিবিএ উদাহরণ
আপনার উত্পাদনশীলতা বাড়ানোর বা আপনার কর্মক্ষেত্রে কিছুটা সময় সাশ্রয় করার সময় ম্যাক্রোগগুলি আপনার সেরা বন্ধু। ছোট ছোট কাজ থেকে বড় বড় কাজগুলিতে আমরা ভিবিএ কোডিং ভাষা ব্যবহার করে স্বয়ংক্রিয় করতে পারি। আমি প্রায়শই জানি আপনি হয়ত এক্সেলের কিছু সীমাবদ্ধতার কথা ভেবে থাকতে পারেন তবে ভিবিএ কোডিংয়ের মাধ্যমে আপনি সেগুলি সরাতে পারেন। ঠিক আছে, আপনি যদি ভিবিএর সাথে লড়াই করেন এবং এখনও এই নিবন্ধটির সূচনা হয় তবে আমরা এক্সেলের মধ্যে ভিবিএ ম্যাক্রো কোডের কয়েকটি দরকারী উদাহরণ দেব।
শীর্ষ 19 উদাহরণগুলির তালিকা
- সমস্ত শীটের নাম মুদ্রণ করুন
- ভিবিএতে বিভিন্ন রঙ সূচী .োকান
- উপরে থেকে সিরিয়াল নম্বর .োকান
- নীচ থেকে সিরিয়াল নম্বর .োকান
- 10 থেকে 1 অবধি সিরিয়াল নম্বর .োকান
- আপনার পছন্দমতো ওয়ার্কশিট sertোকান
- ওয়ার্কবুক থেকে সমস্ত ফাঁকা কার্যপত্রক মুছুন
- প্রতিটি অন্যান্য সারির পরে ফাঁকা সারি .োকান
- হাইলাইট বানান ভুল
- সমস্ত বড় হাতের অক্ষরে পরিবর্তন করুন
- লোয়ার কেস অক্ষরে সমস্ত পরিবর্তন করুন
- সমস্ত মন্তব্য করা ঘরগুলি হাইলাইট করুন
- সমস্ত ফাঁকা ঘর হাইলাইট করুন
- একটি শীট বাদে সমস্ত শীট লুকান
- সমস্ত পত্রক উন্মুক্ত করুন
- ফোল্ডারে সমস্ত ফাইল মুছুন
- পুরো ফোল্ডার মুছুন
- পত্রকটিতে সর্বশেষ ব্যবহৃত সারিটি সন্ধান করুন
- পত্রকটিতে সর্বশেষ ব্যবহৃত কলামটি সন্ধান করুন
আসুন এই উদাহরণটির প্রতিটি বিস্তারিতভাবে দেখুন।
আপনি এই ভিবিএ উদাহরণ এক্সেল টেম্পলেটটি এখানে ডাউনলোড করতে পারেন - ভিবিএ উদাহরণ এক্সেল টেম্পলেট# 1 - সমস্ত পত্রকের নাম মুদ্রণ করুন
কোড:
সাব মুদ্রণপত্রক_নাম () পত্রকে i = 1 এর জন্য পূর্ণসংখ্যার হিসাবে ধীনা করুন ount হিসাব কক্ষ (i, 1)। মূল্য = পত্রক (i) ame নাম পরবর্তী পরবর্তী সাব
এটি সমস্ত শীটের নামগুলি সক্রিয় শীটে উত্তোলন করবে।
# 2 - ভিবিএতে ভিন্ন রঙ সূচী .োকান
কোড:
সাব sertোকানো_বিধ্বংসী_সামগ্রী () i = 1 থেকে 56 কোষের জন্য আমি পূর্ণসংখ্যার হিসাবে ধীর (i, 1)। মূল্য = i কোষ (i, 2) I
এটি 1 থেকে 56 নম্বর এবং পরবর্তী কলামে তাদের রঙ সূচক সন্নিবেশ করবে।
# 3 - শীর্ষ থেকে সিরিয়াল নম্বর .োকান
কোড:
সাব sertোকানো_নম্বরে_ফর্ম_টপ () i = 1 থেকে 10 টি সেল (i, 1) এর পূর্ণসংখ্যার হিসাবে আমি ধীর করব V মূল্য = i পরবর্তী আমি শেষ করব
এটি শীর্ষ থেকে 1 থেকে 10 পর্যন্ত ক্রমিক সংখ্যা সন্নিবেশ করবে।
# 4 - নীচ থেকে সিরিয়াল নম্বর .োকান
কোড:
সাব সন্নিবেশ_ নম্বর_ফর্ম_বটম () আমি পূর্ণসংখ্যার জন্য ধীর i = 20 থেকে 1 পদক্ষেপ -1 ঘর (i, 7)। মূল্য = i পরবর্তী আমি সাব শেষ করব
এটি নীচে থেকে 1 থেকে 20 পর্যন্ত ক্রমিক সংখ্যাগুলি সন্নিবেশ করবে।
# 5 - 10 থেকে 1 অবধি সিরিয়াল নম্বর .োকান
কোড:
সাব টেন_তো_এন () ধীর আমি হিসাবে পূর্ণসংখ্যার ধিম জে হিসাবে পূর্ণসংখ্যা j = 10 আমি = 1 থেকে 10 ব্যাপ্তি ("এ" এবং i)। মূল্য = জে জে = জে - 1 পরবর্তী আমি শেষ এটি শীর্ষ থেকে 10 থেকে 1 অবধি সিরিয়াল নম্বর সন্নিবেশ করবে।
# 6 - আপনি যতটা চান ওয়ার্কশিট sertোকান
কোড:
সাব অ্যাডশিটস () ধীরে শিটকઉન્ટটি পূর্ণসংখ্যা হিসাবে, আমি হিসাবে পূর্ণসংখ্যা শটকাউন্ট = অ্যাপ্লিকেশন I ইনপুটবক্স ("আপনি কতগুলি পত্রক সন্নিবেশ করতে চান?", "পত্রকগুলি যুক্ত করুন",,,,, ১) যদি শিটকাউন্ট = মিথ্যা থাকে তবে সাব অন্যটি প্রস্থান করুন I = 1 এর জন্য ShtCount ওয়ার্কশিটগুলি। শেষ করুন সাব শেষ হলে আমি শেষ করুন এটি আপনাকে যে ওয়ার্কশিটগুলি সন্নিবেশ করতে চান তার সংখ্যা লিখতে বলবে। কেবল ইনপুট বাক্সে নম্বরটি নির্দিষ্ট করুন এবং ওকে ক্লিক করুন, এটি তত্ক্ষণাত those অনেকগুলি শীট sertোকানো হবে।
# 7 - ওয়ার্কবুক থেকে সমস্ত ফাঁকা কার্যপত্রক মুছুন
কোড:
সাব ডিলিট_ব্ল্যাঙ্ক_শীটস () ডিমি ডাব্লু ওয়ার্কশিট অ্যাপ্লিকেশন হিসাবে ডিলপ্লে অ্যালার্টস = মিথ্যা অ্যাপ্লিকেশন.স্ক্রিনঅ্যাপডেটিং = অ্যাক্টিভ ওয়ার্কবুক.ওয়ার্কশীটগুলিতে প্রতিটি ডাব্লু এর জন্য মিথ্যা যদি ওয়ার্কশিটফানশন.কাউন্টে (ডাব্লুএস। ইউসেড রেঞ্জ) = 0 তারপরে ডাব্লু। ডিলিট শেষ করুন যদি পরবর্তী ডাব্লু অ্যাপ্লিকেশন = অ্যাপ্লিকেশন .ScreenUpdating = সত্য শেষ সাব
এটি আমরা যে ওয়ার্কবুকটিতে কাজ করছি তা থেকে খালি সমস্ত কার্যপত্রক মুছে ফেলা হবে।
# 8 - প্রতিটি অন্যান্য সারির পরে ফাঁকা সারি .োকান
কোড:
সাব সন্নিবেশ_রো_অফটার_এই_অথার_রউ () ধীর rng হিসাবে পরিসীমা ডিম কাউন্ট্রো হিসাবে পূর্ণসংখ্যার হিসাবে ধীর i হিসাবে পূর্ণসংখ্যা হিসাবে সেট করুন rng = নির্বাচন কাউন্টরো = rng.EnteryRow.Count এর জন্য i = 1 কাউন্টরউ অ্যাক্টিভেল.অন্টিআরলো.অফেসটলেক্ট নির্বাচন করুন (2,)। শেষ সাব
এটির জন্য প্রথমে আপনাকে এমন ব্যাপ্তি নির্বাচন করতে হবে যেখানে আপনি বিকল্প ফাঁকা সারি সন্নিবেশ করতে চান।
# 9 - হাইলাইট বানান ভুল
কোড:
সাব চেচ_স্পেলিং_ ভুল () অ্যাক্টিভশিটে প্রতিটি মাইলেকশনের জন্য রেঞ্জ হিসাবে মাই সিলেকশনটি ম্লান করুন। অ্যাপ্লিকেশন না থাকলে ব্যবহার করা হয়েছে.চেকসপেলিং (শব্দ: = মাইলেকশন.টেক্সট) তারপরে মাই সিলেকশন.ইন্টারিয়র.ক্লোর = vb রেড সমাপ্তি যদি পরবর্তী মাইলেকশন শেষ হয়
প্রথমে ডেটা নির্বাচন করুন এবং ভিবিএ কোড চালান। এটি এমন কোষগুলিকে হাইলাইট করবে যেখানে বানানের ভুল রয়েছে।
# 10 - সমস্ত বড় হাতের অক্ষরে পরিবর্তন করুন
কোড:
সাব চেঞ্জ_এল_ট_অপ পিপি কেস () সিলেকশনে প্রতিটি রিংয়ের জন্য রেঞ্জ হিসাবে ধীরে ধীরে রিং করুন If সেলগুলি যদি Rng.HasFormula = ভুয়া থাকে তবে Rng.Value = UCase (Rng.Value) শেষ হলে পরবর্তী Rng শেষ সাব
প্রথমে ডেটা নির্বাচন করুন এবং কোডটি চালান। এটি সমস্ত পাঠ্য মানকে বড় হাতের অক্ষরে রূপান্তরিত করে।
# 11 - সমস্ত ছোট হাতের অক্ষরে পরিবর্তন করুন
কোড:
সাব চেঞ্জ_সাল_ট_এলএইউ_এইচএস (ক্যাস) (বাছাইয়ের ক্ষেত্রে প্রতিটি রিংয়ের জন্য রেঞ্জ হিসাবে ধীরে ধীরে রিং করুন C সেলগুলি যদি Rng.HasFormula = ভুয়া থাকে তবে Rng.Value = LCase (Rng.Value) শেষ হলে পরবর্তী Rng শেষ সাব
প্রথমে ডেটা নির্বাচন করুন এবং কোডটি চালান। এটি সমস্ত পাঠ্য মানকে এক্সেলের ছোট হাতের অক্ষরে রূপান্তরিত করে।
# 12 - সমস্ত মন্তব্য করা ঘরগুলি হাইলাইট করুন
কোড:
সাব হাইলাইটসেলস উইথ কমন্সইনস্যাকটিভ ওয়ার্কশিট () অ্যাক্টিভশিট.উস্রেড রেঞ্জ.স্পেশিয়াল সেলস (xlCellTypeComments) .ইনটারিয়র.কালোরইন্ডেক্স = 4 শেষ সাব
ফলাফল:
# 13 - সমস্ত ফাঁকা ঘর হাইলাইট করুন
কোড:
সাব হাইলাইট_ব্ল্যাঙ্ক_সেলস () রেঞ্জ সেট ডেটাসেট হিসাবে স্নিগ্ধ ডেটাসেট = সিলেকশন ডেটাসেট.সেলস.স্পেশিয়াল সেলস (xlCellTypeBlanks)। অভ্যন্তরীণ.ক্লোর = vb গ্রিন এন্ড সাব
প্রথমে ডেটা ব্যাপ্তিটি নির্বাচন করুন এবং কোডটি চালান। এটি সবুজ রঙ সহ সমস্ত ফাঁকা ঘর হাইলাইট করবে।
# 14 - একটি শীট ব্যতীত সমস্ত শীট লুকান
কোড:
অ্যাক্টিভ ওয়ার্কবুক-ওয়ার্কশিটগুলিতে সাব হাইড_আল_এক্সসেপ্ট_অন () ডিএম ডাব্লু ওয়ার্কশিট হিসাবে প্রতিটি ওয়ার্ল্ডের ওয়ার্কশিট হিসাবে
উপরের কোডটি "মেইন শীট" নামক শিট বাদে সমস্ত শীট লুকায়। আপনি নিজের ইচ্ছানুসারে ওয়ার্কশিটের নাম পরিবর্তন করতে পারেন।
# 15 - সমস্ত পত্রক উন্মুক্ত করুন
কোড:
অ্যাক্টিভ ওয়ার্কবুক-ওয়ার্কশিটগুলিতে ওয়ার্কশিট হিসাবে সাব আনহাইড_এল () সমস্ত ডিম ডাব্লুএস ওয়ার্কশিট হিসাবে
এটি সমস্ত গোপনীয় শিটগুলি গোপন করবে।
# 16 - ফোল্ডারে সমস্ত ফাইল মুছুন
কোড:
সাব ডিলিট_এল_ফাইলেস () 'আপনি টেস্ট ফোল্ডারে থাকা সমস্ত ফাইল মুছে ফেলার জন্য এটি ব্যবহার করতে পারেন' 'ত্রুটি পুনরায় শুরু করুন পরবর্তী কিল "সি: \ ব্যবহারকারীদের _2 অ্যাডমিন_2.ডেল-পিসি \ ডেস্কটপ \ ফোল্ডার মুছুন * *। *" ত্রুটিতে GoTo 0 শেষ সাব
আপনার ফোল্ডার মোছা অনুযায়ী ফোল্ডারের পথটি লাল হিসাবে চিহ্নিত করুন।
# 17 - সম্পূর্ণ ফোল্ডার মুছুন
কোড:
সাব ডিলিট_ওহোল_ফোল্ডার () 'আপনি পুরো ফোল্ডারটি মুছে ফেলার জন্য এটি ব্যবহার করতে পারেন ত্রুটি পুনরায় শুরু করুন পরবর্তী হত্যা করুন "সি: \ ব্যবহারকারী \ অ্যাডমিন_2. ডেল-পিসি \ ডেস্কটপ F ফোল্ডার মুছুন \ *। *"' প্রথমে এটি ফোল্ডারের সমস্ত ফাইল মুছে ফেলবে 'তারপরে নীচের কোডটি পুরো ফোল্ডারটি মুছে ফেলবে যদি এটি শূন্য হয় আরএমডির "সি: \ ব্যবহারকারীগণ \ প্রশাসক।
আপনার ফোল্ডার মোছা অনুযায়ী ফোল্ডারের পথটি লাল হিসাবে চিহ্নিত করুন।
# 18 - পত্রকে শেষ ব্যবহৃত সারিটি সন্ধান করুন
কোড:
সাব লাস্ট_রো () লম্বা এলআর = কোষগুলি (সারি। হিসাব, 1) হিসাবে ডিএম এলআর আবদ্ধ করুন E
এখানে আমরা শীটটিতে সর্বশেষ ব্যবহৃত সারিটি পাই
# 19 - পত্রকে শেষ ব্যবহৃত কলামটি সন্ধান করুন
কোড:
সাব লাস্ট_কলাম () ডিএম এলসি লম্বা এলসি হিসাবে সেলগুলি (1, কলামগুলি: হিসাব)। শেষ (xlToLeft)
এখানে আমরা শীটটিতে সর্বশেষ ব্যবহৃত কলামটি পাই
