עסטימאַטעד לייענען צייט: 3 minuti
די פאלגענדע סאַב פּראָצעדור לייענט וואַלועס פון סעלז אין זייַל א פון די אַקטיוו ווערקשיט, ביז עס ינקאַונטערז אַ ליידיק צעל. די וואַלועס זענען סטאָרד אין אַ מענגע. דעם פּשוט עקססעל מאַקראָו בייַשפּיל ילאַסטרייץ די נוצן פון:
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
דער פּראָצעדור סטאָרז די וואַלועס אין זייַל א פון די אַקטיוו ווערקשיט אין אַ מענגע, טאָן אַז:
Do Until
עקסטראַקט די וואַלועס פון יעדער צעל אין זייַל א פון די אַקטיוו ווערקשיט, יגנאָרינג ליידיק סעלזIf UBound(dCellValues) < iRow
" טשעקס אַז די dCellValues מענגע איז גרויס גענוג צו האַלטן די אינפֿאָרמאַציע, אויב נישט, נוצן ReDim צו פאַרגרעסערן די גרייס פון די מענגע מיט 10dCellValues(iRow) = Cells(iRow, 1).Value
"סטאָרז די קראַנט צעל אין די CellValues מענגעדי פאלגענדע סאַב פּראָצעדור לייענט די וואַלועס פון זייַל א פון די ווערקשיט מיטן נאָמען "Sheet2" און פּערפאָרמז אַריטמעטיק אַפּעריישאַנז אויף די וואַלועס. די ריזאַלטינג וואַלועס זענען געדרוקט אין זייַל א פון די קראַנט אַקטיוו ווערקשיט.
דער מאַקראָ ילאַסטרייץ:
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 מאַקראָו אַז פירעס ווען אַ צעל אין אַ ספּעציפיש קייט פון אונדזער בלאַט איז דערהייַנטיקט. רעכן איר ווילן צו שפּור ענדערונגען אין זייַל ב (B4 צו B11) און רעקאָרדירן די דאַטע און צייט פון די ענדערונג אין זייַל א.
זאל ס גיינ ווייַטער ווי דאָס:
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
היט די וואָרקבאָאָק מיט מאַקראָס ענייבאַלד (למשל, ווי אַ .קסלסם טעקע).
איצט, יעדער מאָל מיר דערהייַנטיקן אַ צעל אין זייַל ב (פון רודערן 1 צו רודערן 10), דער צעל אין זייַל א וועט אויטאָמאַטיש ווייַזן די קראַנט דאַטע און צייט.
Ercole Palmeri
Coveware דורך Veeam וועט פאָרזעצן צו צושטעלן ענטפער באַדינונגס פֿאַר סייבער יקסטאָרשאַן אינצידענט. קאָוועוואַרע וועט פאָרשלאָגן פאָרענסיקס און רימעדייישאַן קייפּאַבילאַטיז ...
פּרידיקטיוו וישאַלט איז רעוואַלושאַנייזינג די ייל & גאַז סעקטאָר, מיט אַן ינאַווייטיוו און פּראָואַקטיוו צוגאַנג צו פאַבריק פאַרוואַלטונג.…
די UK CMA האט ארויס אַ ווארענונג וועגן ביג טעק ס נאַטור אין די קינסטלעך סייכל מאַרק. דאָרט…
די "קאַסע גרין" דעקרעט, פארמולירט דורך די אייראפעישע יוניאַן צו פאַרבעסערן די ענערגיע עפעקטיווקייַט פון בנינים, האט פארענדיקט זיין לעגיסלאַטיווע פּראָצעס מיט ...