د ایکسل میکرو مثالونه د 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) < iRow" چک کوي چې د dCellValues ​​صف دومره لوی دی چې معلومات وساتي، که نه، د 10 لخوا د سرې اندازه زیاتولو لپاره ReDim وکاروئ
• په پای کې، تعلیم​​dCellValues(iRow) = Cells(iRow, 1).Valueاوسنۍ حجره د CellValues ​​په صف کې ساتي

د 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 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