اندازي مطابق پڙهڻ جو وقت: 3 منٽ
هيٺ ڏنل ذيلي طريقيڪار فعال ورڪ شيٽ جي ڪالمن A ۾ سيلز مان قيمتون پڙهي ٿو، جيستائين اهو هڪ خالي سيل سان منهن نٿو ڪري. قدر هڪ صف ۾ محفوظ ٿيل آهن. هي سادو ايڪسل ميڪرو مثال استعمال ڪري ٿو:
Do Until
;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 تائين وڌائڻ لاءِdCellValues(iRow) = Cells(iRow, 1).Value
"موجوده سيل کي CellValues صف ۾ محفوظ ڪري ٿوهيٺ ڏنل ذيلي عمل "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 ميڪرو لکون جيڪو فائر ٿئي ٿو جڏهن اسان جي شيٽ جي مخصوص رينج ۾ هڪ سيل کي اپڊيٽ ڪيو وڃي. فرض ڪريو ته توھان ڪالمن B (B4 کان B11) ۾ تبديلين کي ٽريڪ ڪرڻ چاھيو ٿا ۽ ڪالم A ۾ تبديلي جي تاريخ ۽ وقت رڪارڊ ڪريو.
اچو ته هن طرح اڳتي وڌو:
Developer
اختيار تي ڪلڪ ڪريو "Visual Basic
"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
رنگ سازي ذريعي سٺي موٽر صلاحيتن کي ترقي ڪرڻ ٻارن کي وڌيڪ پيچيده صلاحيتن لاء تيار ڪري ٿو جهڙوڪ لکڻ. رنگ ڏيڻ…
بحري شعبي هڪ حقيقي عالمي معاشي طاقت آهي، جيڪا 150 بلين مارڪيٽ جي طرف نيويگيٽ ڪئي آهي ...
گذريل سومر، فنانشل ٽائمز OpenAI سان هڪ ڊيل جو اعلان ڪيو. ايف ٽي پنهنجي عالمي سطح جي صحافت کي لائسنس ڏئي ٿو ...
لکين ماڻهو ادا ڪن ٿا اسٽريمنگ سروسز لاءِ، ادا ڪندا مھينا سبسڪرپشن فيس. اها عام راءِ آهي ته توهان…