Skatte lêstiid: 3 minuten
De folgjende Sub-proseduere lêst wearden fan sellen yn kolom A fan it aktive wurkblêd, oant it in lege sel tsjinkomt. De wearden wurde opslein yn in array. Dit ienfâldige Excel-makro-foarbyld yllustrearret it gebrûk fan:
Do Until
;Ubound
ynboud (dat jout de heechste yndeks fan in array).' 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
De proseduere bewarret de wearden yn kolom A fan it aktive wurkblêd yn in array, tink derom dat:
Do Until
ekstrakt de wearden fan elke sel yn kolom A fan it aktive wurkblêd, negearje lege sellenIf UBound(dCellValues) < iRow
” kontrolearret dat de dCellValues-array grut genôch is om de ynformaasje te hâlden, as net, brûk ReDim om de grutte fan 'e array mei 10 te fergrutsjendCellValues(iRow) = Cells(iRow, 1).Value
"Bewarret de hjoeddeistige sel yn 'e CellValues-arrayDe folgjende Sub-proseduere lêst de wearden út kolom A fan it wurkblêd mei de namme "Sheet2" en fiert rekenkundige operaasjes út op 'e wearden. De resultearjende wearden wurde printe yn kolom A fan it aktive wurkblêd.
Dizze makro yllustrearret:
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
Litte wy in ienfâldige VBA-makro skriuwe dy't fjoer as in sel yn in spesifyk berik fan ús blêd wurdt bywurke. Stel dat jo wizigingen yn kolom B (B4 oant B11) folgje wolle en de datum en tiid fan 'e feroaring yn kolom A opnimme.
Litte wy sa fierder gean:
Developer
klik op opsje "Visual Basic
” om de VBA-bewurker te iepenjen. 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
Bewarje it wurkboek mei makro's ynskeakele (bygelyks as in .xlsm-bestân).
No, elke kear as wy in sel yn kolom B bywurkje (fan rige 1 oant rige 10), sil de sel yn kolom A automatysk de aktuele datum en tiid werjaan.
Ercole Palmeri
Coveware troch Veeam sil trochgean mei it leverjen fan antwurdtsjinsten foar cyberafpersing ynsidint. Coveware sil forensyske en sanearjen mooglikheden oanbiede ...
Foarsizzend ûnderhâld revolúsjonearret de oalje- en gassektor, mei in ynnovative en proaktive oanpak foar plantbehear.…
De UK CMA hat in warskôging útjûn oer it gedrach fan Big Tech yn 'e merk foar keunstmjittige yntelliginsje. Dêr…
It Beslút "Case Green", formulearre troch de Jeropeeske Uny om de enerzjy-effisjinsje fan gebouwen te ferbetterjen, hat syn wetjouwingsproses ôfsletten mei ...