VBA ഉപയോഗിച്ച് എഴുതിയ എക്സൽ മാക്രോകളുടെ ഉദാഹരണങ്ങൾ

ഇനിപ്പറയുന്ന ലളിതമായ Excel മാക്രോ ഉദാഹരണങ്ങൾ VBA ഉപയോഗിച്ചാണ് എഴുതിയത് 

കണക്കാക്കിയ വായന സമയം: 3 minuti

അറേ ഉപയോഗിച്ചുള്ള VBA ഉദാഹരണം

ഇനിപ്പറയുന്ന ഉപ നടപടിക്രമം, സജീവമായ വർക്ക്ഷീറ്റിൻ്റെ A കോളത്തിലെ സെല്ലുകളിൽ നിന്ന് ഒരു ശൂന്യമായ സെൽ കാണുന്നതുവരെ മൂല്യങ്ങൾ വായിക്കുന്നു. മൂല്യങ്ങൾ ഒരു അറേയിൽ സംഭരിച്ചിരിക്കുന്നു. ഈ ലളിതമായ Excel മാക്രോ ഉദാഹരണം ഇതിൻ്റെ ഉപയോഗം വ്യക്തമാക്കുന്നു:

• വേരിയബിൾ പ്രഖ്യാപനങ്ങൾ;
• ഡൈനാമിക് അറേകൾ;
• ഒരു സൈക്കിൾ Do Until;
• നിലവിലെ Excel വർക്ക്ഷീറ്റിലെ സെല്ലുകൾ റഫർ ചെയ്യുക;
• വിബിഎ ഫംഗ്‌ഷൻ 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) < iRowdCellValues ​​അറേ വിവരങ്ങൾ സൂക്ഷിക്കാൻ പര്യാപ്തമാണോ എന്ന് പരിശോധിക്കുന്നു, ഇല്ലെങ്കിൽ, അറേയുടെ വലുപ്പം 10 വർദ്ധിപ്പിക്കാൻ ReDim ഉപയോഗിക്കുക
• ഒടുവിൽ, വിദ്യാഭ്യാസം​​dCellValues(iRow) = Cells(iRow, 1).Value” നിലവിലെ സെൽ സെൽവാല്യൂസ് അറേയിൽ സംഭരിക്കുന്നു

ഗണിത പ്രവർത്തനങ്ങളുള്ള VBA ഉദാഹരണം

ഇനിപ്പറയുന്ന ഉപ നടപടിക്രമം "ഷീറ്റ് 2" എന്ന് പേരിട്ടിരിക്കുന്ന വർക്ക്ഷീറ്റിൻ്റെ A കോളത്തിൽ നിന്നുള്ള മൂല്യങ്ങൾ വായിക്കുകയും മൂല്യങ്ങളിൽ ഗണിത പ്രവർത്തനങ്ങൾ നടത്തുകയും ചെയ്യുന്നു. തത്ഫലമായുണ്ടാകുന്ന മൂല്യങ്ങൾ നിലവിലെ സജീവ വർക്ക്ഷീറ്റിൻ്റെ കോളം A യിൽ അച്ചടിച്ചിരിക്കുന്നു.

ഈ മാക്രോ വ്യക്തമാക്കുന്നു:

• വേരിയബിൾ പ്രഖ്യാപനങ്ങൾ;
• Excel ഒബ്‌ജക്റ്റുകൾ (പ്രത്യേകിച്ച്, സെറ്റ് കീവേഡിൻ്റെ ഉപയോഗവും 'ഷീറ്റ്' ഒബ്‌ജക്റ്റിൽ നിന്ന് 'കോളങ്ങൾ' ഒബ്‌ജക്റ്റ് എങ്ങനെ ആക്‌സസ് ചെയ്യാം);
• ഒരു സൈക്കിൾ Do Until;
• നിലവിലെ Excel വർക്ക്ബുക്കിൽ വർക്ക്ഷീറ്റുകളും സെൽ ശ്രേണികളും ആക്സസ് ചെയ്യുക.

' 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 Basic” VBA എഡിറ്റർ തുറക്കാൻ.
• VBA എഡിറ്ററിൽ, ഷീറ്റ്2 മായി ബന്ധപ്പെട്ട കോഡ് എഡിറ്ററിൽ ഇരട്ട-ക്ലിക്കുചെയ്യുക.
• വലത് (അല്ലെങ്കിൽ ഇടത്) ടാബിൽ നിന്ന് വർക്ക്ഷീറ്റ് തിരഞ്ഞെടുത്ത് മാറ്റുക ഓപ്ഷൻ തിരഞ്ഞെടുക്കുക.
• 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