Tahmini okuma süresi: 3 minuti
Aşağıdaki Alt prosedür, boş bir hücreyle karşılaşıncaya kadar etkin çalışma sayfasının A sütunundaki hücrelerdeki değerleri okur. Değerler bir dizide saklanır. Bu basit Excel makro örneği aşağıdakilerin kullanımını göstermektedir:
Do Until
;Ubound
yerleşik (bir dizinin en yüksek dizinini döndürür).' 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
Prosedür, değerleri aktif çalışma sayfasının A sütununda bir dizide saklar; şunu unutmayın:
Do Until
boş hücreleri yok sayarak, etkin çalışma sayfasının A sütunundaki her hücrenin değerlerini çıkarırIf UBound(dCellValues) < iRow
” dCellValues dizisinin bilgiyi tutacak kadar büyük olup olmadığını kontrol eder, değilse ReDim kullanarak dizinin boyutunu 10 oranında artırındCellValues(iRow) = Cells(iRow, 1).Value
” Geçerli hücreyi CellValues dizisinde saklarAşağıdaki Alt prosedür “Sayfa2” isimli çalışma sayfasının A sütunundaki değerleri okur ve değerler üzerinde aritmetik işlemler gerçekleştirir. Ortaya çıkan değerler mevcut aktif çalışma sayfasının A sütununa yazdırılır.
Bu makro şunu gösterir:
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
Sayfamızın belirli bir aralığındaki bir hücre güncellendiğinde tetiklenen basit bir VBA makrosu yazalım. B sütunundaki (B4 ila B11) değişiklikleri izlemek ve değişikliğin tarih ve saatini A sütununa kaydetmek istediğinizi varsayalım.
Şöyle devam edelim:
Developer
“seçeneğine tıklayınVisual Basic
VBA düzenleyicisini açmak için ”. 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
Çalışma kitabını makrolar etkinleştirilmiş olarak kaydedin (örneğin, .xlsm dosyası olarak).
Artık, B sütunundaki bir hücreyi her güncellediğimizde (1. satırdan 10. satıra kadar), A sütunundaki hücre otomatik olarak geçerli tarih ve saati görüntüleyecektir.
Ercole Palmeri
Veeam Coveware, siber şantaj olaylarına müdahale hizmetleri sağlamaya devam edecek. Coveware adli tıp ve iyileştirme yetenekleri sunacak…
Kestirimci bakım, tesis yönetimine yenilikçi ve proaktif bir yaklaşımla petrol ve gaz sektöründe devrim yaratıyor.…
İngiltere CMA, Big Tech'in yapay zeka pazarındaki davranışları hakkında bir uyarı yayınladı. Orada…
Avrupa Birliği'nin binalarda enerji verimliliğini artırmak amacıyla formüle ettiği "Yeşil Evler" Kararnamesi yasama sürecini tamamladı...