Bagaimana cara menavigasi rentang menggunakan vba?

Untuk mengulang suatu rentang di VBA, Anda perlu menggunakan opsi “Untuk Setiap Loop”. Dengan menggunakan loop ini, Anda dapat menulis kode di mana Anda memberitahu VBA untuk menelusuri setiap sel dalam rentang, kolom, atau baris dan melakukan aktivitas tertentu.

 Sub vba_loop_range() Dim iCell As Range For Each iCell In Range("A1:A10").Cells   iCell.Value = "Yes" Next iCell End Sub

Berikut langkah-langkah berjalan di pantai:

1. Pertama, deklarasikan variabel yang akan digunakan sebagai sel rentang yang akan diulang.
   
2. Setelah itu, mulai perulangan “Untuk Setiap” dan gunakan variabel “iCell” untuk mewakili setiap sel dalam rentang selama perulangan.
   
3. Selanjutnya, Anda perlu menulis sebaris kode untuk melakukan aktivitas pada setiap sel tempat kita mengulang rentangnya.
   
4. Pada akhirnya, akhiri kode untuk satu perulangan.
   

Ulangi seluruh kolom dan satu baris menggunakan VBA

Dengan cara yang sama, Anda dapat mengulangi setiap sel dalam satu baris menggunakan kode berikut yang identik dengan kode yang kita gunakan pada contoh sebelumnya, satu-satunya perbedaan adalah rentang yang kita tentukan.

Catatan: Sebelum Anda menelusuri seluruh kolom atau baris, Anda harus memahami bahwa perulangan mungkin memerlukan waktu dan Excel Anda mungkin terhenti selama beberapa menit.

 Sub vba_loop_range() Dim iCell As Range For Each iCell In Range("A:A").Cells   iCell.Value = "Yes" Next iCell End Sub

Dan dengan cara yang sama, Anda dapat menggunakan garis penuh sebagai rentang yang harus dilalui.

 Sub vba_loop_range() Dim iCell As Range For Each iCell In Range("1:1").Cells   iCell.Value = "Yes" Next iCell End Sub

Ulangi rentang dinamis

Dan jika Anda ingin mengulangi rentang sel dinamis, lihat kode berikut.

 Sub vba_dynamic_loop_range() Dim iCell As Range Dim iRange1 As String Dim iRange2 As String Dim rangeName As String iRange1 = ActiveCell.Address iRange2 = ActiveCell.Offset(5, 5).Address rangeName = iRange1 & ":" & iRange2 For Each iCell In Range(rangeName).Cells   iCell = "Yes" Next iCell End Sub