VBA দিয়ে লেখা এক্সেল ম্যাক্রোর উদাহরণ

নিম্নলিখিত সাধারণ এক্সেল ম্যাক্রো উদাহরণগুলি VBA ব্যবহার করে লেখা হয়েছিল 

পড়ার আনুমানিক সময়: 3 minuti

অ্যারে ব্যবহার করে VBA উদাহরণ

নিম্নলিখিত সাব পদ্ধতিটি সক্রিয় ওয়ার্কশীটের কলাম A-তে কক্ষ থেকে মানগুলি পাঠ করে, যতক্ষণ না এটি একটি ফাঁকা ঘরের মুখোমুখি হয়। মানগুলি একটি অ্যারেতে সংরক্ষণ করা হয়। এই সাধারণ এক্সেল ম্যাক্রো উদাহরণটি এর ব্যবহারকে ব্যাখ্যা করে:

• পরিবর্তনশীল ঘোষণা;
• গতিশীল অ্যারে;
• একটি চক্র Do Until;
• বর্তমান এক্সেল ওয়ার্কশীটের কক্ষগুলি পড়ুন;
• VBA ফাংশন Ubound বিল্টইন (যা একটি অ্যারের সর্বোচ্চ সূচক প্রদান করে)।

' Sub procedure store values in Column A of the active Worksheet
' into an array
Sub GetCellValues()
Dim iRow As Integer            ' stores the current row number
Dim dCellValues() As Double  ' array to store the cell values
iRow = 1
ReDim dCellValues(1 To 10)
' Do Until loop to extract the value of each cell in column A
' of the active Worksheet, as long as the cell is not blank
Do Until IsEmpty(Cells(iRow, 1))
   ' Check that the dCellValues array is big enough
   ' If not, use ReDim to increase the size of the array by 10
   If UBound(dCellValues) < iRow Then
      ReDim Preserve dCellValues(1 To iRow + 9)
   End If
   ' Store the current cell in the CellValues array
   dCellValues(iRow) = Cells(iRow, 1).Value
   iRow = iRow + 1
Loop
End Sub

পদ্ধতিটি একটি অ্যারেতে সক্রিয় ওয়ার্কশীটের কলাম A-তে মান সংরক্ষণ করে, নোট করুন যে:

• চক্র Do Until ফাঁকা কক্ষ উপেক্ষা করে সক্রিয় ওয়ার্কশীটের কলাম A-তে প্রতিটি ঘরের মান বের করে
• অবস্থা "If UBound(dCellValues) < iRow” চেক করে যে dCellValues ​​অ্যারে তথ্য ধারণ করার জন্য যথেষ্ট বড়, যদি না হয়, তাহলে অ্যারের আকার 10 দ্বারা বৃদ্ধি করতে ReDim ব্যবহার করুন
• অবশেষে, শিক্ষা​​dCellValues(iRow) = Cells(iRow, 1).Value” সেলভ্যালুস অ্যারেতে বর্তমান সেল সঞ্চয় করে

গাণিতিক অপারেশন সহ VBA উদাহরণ

নিম্নলিখিত সাব পদ্ধতিটি “Sheet2” নামের ওয়ার্কশীটের কলাম A থেকে মানগুলি পড়ে এবং মানগুলির উপর গাণিতিক ক্রিয়াকলাপ সম্পাদন করে। ফলস্বরূপ মানগুলি বর্তমান সক্রিয় ওয়ার্কশীটের কলাম A এ মুদ্রিত হয়।

এই ম্যাক্রো চিত্রিত করে:

• পরিবর্তনশীল ঘোষণা;
• এক্সেল অবজেক্ট (বিশেষত, সেট কীওয়ার্ডের ব্যবহার এবং কীভাবে 'শীট' অবজেক্ট থেকে 'কলাম' অবজেক্ট অ্যাক্সেস করা যায়);
• একটি চক্র Do Until;
• বর্তমান এক্সেল ওয়ার্কবুকে ওয়ার্কশীট এবং সেল রেঞ্জ অ্যাক্সেস করুন।

' Sub procedure to loop through the values in Column A of the Worksheet
' "Sheet2", perform arithmetic operations on each value, and write the
' result into Column A of the current Active Worksheet ("Sheet1")
Sub Transfer_ColA()
Dim i As Integer
Dim Col As Range
Dim dVal As Double
' Set the variable 'Col' to be Column A of Sheet 2
Set Col = Sheets("Sheet2").Columns("A")
i = 1
' Loop through each cell of the column 'Col' until
' a blank cell is encountered
Do Until IsEmpty(Col.Cells(i))
   ' Apply arithmetic operations to the value of the current cell
   dVal = Col.Cells(i).Value * 2 + 1
   ' The command below copies the result into Column A
   ' of the current Active Worksheet - no need to specify
   ' the Worksheet name as it is the active Worksheet.
   Cells(i, 1) = dVal
   i = i + 1
Loop
End Sub

পরিবর্তন তারিখ রেকর্ডিং সহ VBA উদাহরণ

আসুন একটি সাধারণ VBA ম্যাক্রো লিখি যা আমাদের শীটের একটি নির্দিষ্ট পরিসরের একটি সেল আপডেট করা হলে ফায়ার হয়৷ ধরুন আপনি কলাম B (B4 থেকে B11) এর পরিবর্তনগুলি ট্র্যাক করতে চান এবং কলাম A-তে পরিবর্তনের তারিখ এবং সময় রেকর্ড করতে চান।
আসুন এভাবে এগিয়ে যাই:

• ট্যাবে Developer বিকল্পে ক্লিক করুন "Visual BasicVBA সম্পাদক খুলতে।
• VBA এডিটরে, Sheet2 এর সাথে সম্পর্কিত কোড এডিটরে ডাবল ক্লিক করুন।
• ডান (বা বাম) ট্যাব থেকে ওয়ার্কশীট নির্বাচন করুন এবং পরিবর্তন বিকল্পটি নির্বাচন করুন।
• VBA কোড যোগ করুন:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Target.Range("A1:A1").Value = Now
    End If
End Sub

ম্যাক্রো সক্ষম করে ওয়ার্কবুকটি সংরক্ষণ করুন (উদাহরণস্বরূপ, একটি .xlsm ফাইল হিসাবে)।

এখন, যখনই আমরা B কলামে একটি সেল আপডেট করি (সারি 1 থেকে সারি 10 পর্যন্ত), কলাম A-এর সেলটি স্বয়ংক্রিয়ভাবে বর্তমান তারিখ এবং সময় প্রদর্শন করবে।

Ercole Palmeri