এক্সেল ম্যাক্রোতে বিভিন্ন ওয়র্কশীটের সঙ্গে কাজ করার জন্য VBA (Visual Basic for Applications) ব্যবহার করা হয়। আপনি ম্যাক্রোর মাধ্যমে সহজেই নতুন ওয়র্কশীট Add, পুরনো ওয়র্কশীট Delete, এবং ওয়র্কশীটের নাম Rename করতে পারেন। এই কাজগুলো স্বয়ংক্রিয়ভাবে করার জন্য ম্যাক্রো অত্যন্ত কার্যকরী।
নতুন ওয়র্কশীট (Add) তৈরি করা
এক্সেল VBA-তে Worksheets.Add মেথড ব্যবহার করে নতুন ওয়র্কশীট তৈরি করা হয়। এটি একটি নতুন শীট তৈরি করে এবং সেটিকে বর্তমান ওয়ার্কবুকের শেষে যুক্ত করে।
উদাহরণ:
Sub AddNewSheet()
Worksheets.Add
End Sub
এখানে:
- Worksheets.Add: এটি একটি নতুন শীট তৈরি করে এবং এটি কাজের শেষে যুক্ত করে।
নির্দিষ্ট অবস্থানে শীট যুক্ত করা:
আপনি যদি নতুন শীটটি কোনো নির্দিষ্ট অবস্থানে (যেমন, শীট ১ এর আগে) রাখতে চান, তাহলে Before বা After অপশন ব্যবহার করতে পারেন।
Sub AddSheetBefore()
Worksheets.Add Before:=Worksheets("Sheet1")
End Sub
এখানে:
- Before:=Worksheets("Sheet1"): নতুন শীটটি "Sheet1" এর আগে যুক্ত হবে।
ওয়র্কশীট (Delete) মুছে ফেলা
এক্সেল VBA-তে Worksheets.Delete মেথড ব্যবহার করে আপনি একটি ওয়র্কশীট মুছে ফেলতে পারেন। এটি সাধারণত ব্যবহৃত হয় যখন আপনি একটি শীট অপসারণ করতে চান, তবে সাবধান থাকতে হবে, কারণ একবার শীট মুছে ফেললে তা পুনরুদ্ধার করা সম্ভব নয়, যদি না আপনি এটি কোনো নিরাপত্তা ব্যবস্থা গ্রহণ না করেন।
উদাহরণ:
Sub DeleteSheet()
Application.DisplayAlerts = False ' Disable confirmation message
Worksheets("Sheet1").Delete
Application.DisplayAlerts = True ' Enable confirmation message
End Sub
এখানে:
- Application.DisplayAlerts = False: এটি নিশ্চিতকরণ বার্তাটি বন্ধ করে দেয়, যাতে শীটটি মুছে ফেলার আগে কোনো বার্তা না আসে।
- Worksheets("Sheet1").Delete: "Sheet1" নামের শীটটি মুছে ফেলবে।
- Application.DisplayAlerts = True: বার্তা পুনরায় চালু করে, যাতে ভবিষ্যতে শীট মুছতে গেলে সতর্কতা বার্তা প্রদর্শিত হয়।
ওয়র্কশীটের নাম (Rename) পরিবর্তন করা
এক্সেল VBA-তে Worksheets("OldName").Name = "NewName" স্টেটমেন্ট ব্যবহার করে একটি ওয়র্কশীটের নাম পরিবর্তন করা হয়। এটি খুবই সহজ পদ্ধতিতে নাম পরিবর্তন করার জন্য ব্যবহৃত হয়।
উদাহরণ:
Sub RenameSheet()
Worksheets("Sheet1").Name = "NewSheetName"
End Sub
এখানে:
- Worksheets("Sheet1").Name = "NewSheetName": "Sheet1" নামের শীটটির নাম পরিবর্তন করে "NewSheetName" রাখা হবে।
নাম পরিবর্তন করতে শর্ত দেওয়া:
যদি আপনি একটি শীটের নাম পরিবর্তন করার আগে তা উপস্থিত কিনা চেক করতে চান, তাহলে If-Else শর্ত ব্যবহার করা যেতে পারে।
Sub RenameSheetIfExists()
If WorksheetExists("Sheet1") Then
Worksheets("Sheet1").Name = "NewSheetName"
Else
MsgBox "শীটটি পাওয়া যায়নি!"
End If
End Sub
Function WorksheetExists(sheetName As String) As Boolean
On Error Resume Next
WorksheetExists = Not Worksheets(sheetName) Is Nothing
On Error GoTo 0
End Function
এখানে:
- WorksheetExists ফাংশনটি একটি চেক করে, শীটটির নাম আছে কিনা।
- যদি শীটটি থাকে, তবে তার নাম পরিবর্তন হবে, অন্যথায় একটি বার্তা প্রদর্শিত হবে।
সারাংশ
Excel Macros ব্যবহার করে আপনি Worksheets.Add, Worksheets.Delete, এবং Worksheets.Name এর মাধ্যমে এক্সেল ওয়র্কশীটের বিভিন্ন কার্যাবলী সহজে এবং দ্রুত করতে পারেন। Add মেথড ব্যবহার করে নতুন শীট তৈরি করা, Delete মেথডের মাধ্যমে শীট মুছে ফেলা এবং Rename স্টেটমেন্ট ব্যবহার করে শীটের নাম পরিবর্তন করা খুবই কার্যকর পদ্ধতি। এই প্রক্রিয়াগুলি এক্সেল কার্যক্রমকে আরও স্বয়ংক্রিয় এবং সহজ করে তোলে।
Read more
