VBA ನೊಂದಿಗೆ ಬರೆಯಲಾದ ಎಕ್ಸೆಲ್ ಮ್ಯಾಕ್ರೋಗಳ ಉದಾಹರಣೆಗಳು

ಕೆಳಗಿನ ಸರಳ ಎಕ್ಸೆಲ್ ಮ್ಯಾಕ್ರೋ ಉದಾಹರಣೆಗಳನ್ನು VBA ಬಳಸಿ ಬರೆಯಲಾಗಿದೆ 

ಅಂದಾಜು ಓದುವ ಸಮಯ: 3 ಮಿನುಟಿ

ಅರೇ ಬಳಸಿ 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) < iRowdCellValues ​​ಶ್ರೇಣಿಯು ಮಾಹಿತಿಯನ್ನು ಹಿಡಿದಿಟ್ಟುಕೊಳ್ಳುವಷ್ಟು ದೊಡ್ಡದಾಗಿದೆ ಎಂದು ಪರಿಶೀಲಿಸುತ್ತದೆ, ಇಲ್ಲದಿದ್ದರೆ, ರಚನೆಯ ಗಾತ್ರವನ್ನು 10 ರಷ್ಟು ಹೆಚ್ಚಿಸಲು ReDim ಅನ್ನು ಬಳಸಿ
• ಅಂತಿಮವಾಗಿ, ಶಿಕ್ಷಣ​​dCellValues(iRow) = Cells(iRow, 1).Value” ಪ್ರಸ್ತುತ ಕೋಶವನ್ನು ಸೆಲ್‌ವ್ಯಾಲ್ಯೂಸ್ ಶ್ರೇಣಿಯಲ್ಲಿ ಸಂಗ್ರಹಿಸುತ್ತದೆ

ಗಣಿತದ ಕಾರ್ಯಾಚರಣೆಗಳೊಂದಿಗೆ VBA ಉದಾಹರಣೆ

ಕೆಳಗಿನ ಉಪ ಕಾರ್ಯವಿಧಾನವು "ಶೀಟ್2" ಹೆಸರಿನ ವರ್ಕ್‌ಶೀಟ್‌ನ ಕಾಲಮ್ 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