VBA untuk Mengulang Melalui Baris dalam Rentang di Excel (6 Contoh)

Hugh West

30-09-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Dalam tutorial ini, kita akan membahas cara menggunakan VBA untuk mengulang-ulang baris dalam range di excel. Kita menggunakan loop untuk mencegah melakukan hal yang sama berulang-ulang. Saat bekerja di Microsoft Excel kita mungkin berada dalam posisi di mana kita harus melakukan tugas yang sama berkali-kali. Kita dapat melakukan ini dengan mudah menggunakan loop di VBA Dalam artikel ini, kami akan mendemonstrasikan 6 contoh untuk mengulang baris di excel dengan VBA Perulangan yang akan kita gunakan di seluruh contoh adalah ' Perulangan Untuk-Selanjutnya '.

Unduh Buku Kerja Praktik

Kita bisa mengunduh buku kerja latihan dari sini.

VBA Mengulang Melalui Baris di Range.xlsm

6 Contoh untuk Mengulang Melalui Baris dalam Rentang dengan VBA di Excel

Untuk mengilustrasikan contoh-contoh tutorial ini, kita akan menggunakan dataset berikut ini. Dataset ini berisi jumlah penjualan selama dua bulan pertama dari 5 Tenaga Penjualan .

1. Gunakan VBA dalam Range dengan Variabel Range untuk Mengulang Melalui Baris

Dalam contoh pertama, kita akan menggunakan variabel range untuk mengulang-ulang baris dalam range menggunakan VBA di excel. Kita akan menerapkan VBA loop dalam dataset berikut ini.

Mari kita lihat langkah-langkah untuk melakukan contoh ini.

LANGKAH-LANGKAH:

  • Untuk memulainya, buka lembar kerja aktif ' Variabel Rentang '.
  • Selain itu, klik kanan dan pilih opsi ' Lihat Kode '. Anda juga dapat menekan Alt + F11 untuk membukanya.

  • Tindakan di atas membuka jendela kode untuk lembar kerja itu.
  • Selanjutnya, ketikkan kode di jendela kode: 
 Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub
  • Kemudian, klik pada Lari atau tekan F5 untuk menjalankan kode.

  • Akhirnya, kita akan mendapatkan hasil seperti screenshot berikut ini.

Baca Lebih Lanjut: Excel VBA: Ulangi Melalui Kolom dalam Rentang (5 Contoh)

2. Terapkan VBA untuk Mengulang Melalui Baris dalam Rentang dengan Variabel Numerik

Opsi lain untuk mengulang-ulang baris dalam suatu rentang adalah dengan memilih variabel. Dalam contoh kedua, kita akan menerapkan VBA dalam dataset berikut untuk mengulang melalui baris dalam rentang dengan variabel numerik.

Mari kita lihat langkah-langkah untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Pertama, klik kanan pada lembar aktif bernama ' Nilai Numerik '.
  • Berikutnya, pilih opsi ' Lihat Kode '.

  • Tindakan ini akan membuka jendela kode untuk lembar kerja itu. Anda juga bisa menekan Alt + F11 untuk membuka jendela kode itu.
  • ketik kode berikut ini di jendela itu: 
 Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub
  • Setelah itu, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Akhirnya, kita bisa melihat hasil seperti gambar berikut. Kode di atas mengubah format angka menjadi titik desimal.

Baca Lebih Lanjut: VBA untuk Mengulang Baris dan Kolom dalam Rentang di Excel (5 Contoh)

3. Excel VBA dalam Rentang yang Dipilih Pengguna untuk Mengulang Melalui Baris dalam Rentang

Pada contoh ketiga, kita akan menggunakan VBA dalam rentang yang dipilih pengguna untuk mengulang baris dalam suatu rentang. Jadi, pengguna akan dapat menerapkan loop di area yang dipilih dari dataset.

Mari kita lihat langkah-langkah yang terkait dengan contoh ini.

LANGKAH-LANGKAH:

  • Pada awalnya, pilih cell range ( D5:D9 ).

  • Selanjutnya, klik kanan pada lembar aktif bernama ' Dipilih Pengguna '. Pilih opsi ' Lihat Kode '.

  • Perintah di atas akan membuka file VBA Anda juga dapat membuka jendela kode tersebut dengan menekan Alt + F11 Sisipkan kode berikut ini di jendela kode kosong tersebut: 
 Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Cell value = " & w.Value Next w End Sub
  • Kemudian, untuk menjalankan kode untuk lembar kerja itu, klik pada tombol Lari atau tekan tombol F5 kunci.

  • Jadi, kotak pesan muncul yang menunjukkan nilai pertama dari kisaran yang dipilih.

  • Selain itu, jika Anda mengklik OK itu akan mengembalikan nilai kedua dari rentang yang dipilih yaitu sel D6 .

  • Proses ini akan berlanjut sampai nilai terakhir dari rentang yang dipilih yaitu sel D9 .

Baca selengkapnya: Cara Menggunakan VBA untuk Menghitung Baris dalam Rentang dengan Data di Excel (5 Makro)

Bacaan Serupa

  • Cara Menggunakan VBA untuk Memilih Rentang dari Sel Aktif di Excel (3 Metode)
  • Makro Excel: Urutkan Beberapa Kolom dengan Rentang Dinamis (4 Metode)
  • Cara Mengonversi Rentang ke Larik di Excel VBA (3 Cara)

4. Loop Melalui Baris dalam Rentang Dinamis dengan VBA

Dalam contoh keempat, kita akan menerapkan VBA Contoh ini sedikit berbeda dari contoh sebelumnya. Kita akan dapat menyesuaikan rentang dalam perulangan untuk lembar kerja excel. Kita akan menggunakan dataset berikut untuk mengilustrasikan metode ini. Dalam dataset berikut, kita akan mengisi nilai-nilai dari rentang ( B8:C12 ) dengan nilai tertentu.

Cukup lakukan langkah-langkah di bawah ini untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Pertama, nilai input 6 di dalam sel B1 dan C di dalam sel B2 .
  • Kedua, klik kanan pada sel aktif dan pilih opsi ' Lihat Kode '.

  • Perintah ini akan membuka file VBA cara lain untuk membuka jendela kode tersebut adalah dengan menekan Alt + F11 .
  • Ketiga, sisipkan kode berikut ini di jendela kode itu: 
 Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("Dynamic Range").Cells(2, 2).Value + _ CStr(3 + Worksheets("Dynamic Range").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub
  • Sekarang, untuk menjalankan kode, klik pada tombol Lari atau tekan tombol F5 kunci.

  • Akibatnya, dataset terisi dengan nilai $2500.00 dengan cara berikut ini.

CATATAN:

Pada gambar di atas, nilai 6 mewakili dua baris pertama dari rentang ( B8:B9 ).

  • Terakhir, masukkan nilai 9 di dalam sel B1 bukannya 6 Kita bisa melihat hasilnya pada gambar berikut ini.

5. Masukkan VBA untuk Mengulang Seluruh Baris dalam Rentang

Dalam contoh kelima, kita akan melihat bagaimana kita bisa menerapkan VBA untuk mengulang seluruh baris dalam rentang. Contoh ini akan menemukan posisi nilai tertentu dari satu atau beberapa baris yang dipilih.

Jadi, mari kita lihat langkah-langkah yang akan kita ikuti untuk mengeksekusi contoh ini.

LANGKAH-LANGKAH:

  • Untuk memulainya, klik kanan pada lembar aktif bernama ' Seluruh Baris '. Pilih opsi ' Lihat Kode '.

  • Perintah di atas membuka sebuah VBA jendela kode untuk lembar kerja yang aktif. Kita juga bisa mendapatkan jendela kode ini dengan menekan Alt + F11 .
  • Berikutnya, sisipkan kode berikut ini di jendela kode itu: 
 Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris ditemukan di " & w.Address End If Next w End Sub
  • Kemudian, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Pada gambar di atas, nilai yang disorot ' Chris ' mengindikasikan nilai yang akan kita cari. Range value ' 5:9 ' menunjukkan bahwa kita akan mencari nilai dalam cell range ( B5:B9 ).
  • Akhirnya, kotak pesan menampilkan bahwa nilai ' Chris ' terletak di sel B6 .

Baca Lebih Lanjut: Cara Menggunakan VBA untuk Setiap Baris dalam Rentang di Excel

6. Ulangi Setiap Baris ke-n dalam Rentang dengan Excel VBA

Dalam contoh terakhir, kita akan menerapkan VBA untuk mengulang-ulang setiap n-th Baris dalam rentang. Dalam dataset berikut ini, kita akan menerapkan bayangan warna ke baris nomor ganjil dari rentang data kita.

Jadi, mari kita lihat langkah-langkah untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Pertama, klik kanan pada lembar aktif bernama ' Baris ke-n '. Pilih opsi ' Lihat Kode '.

  • Berikutnya, ini membuka VBA jendela kode untuk lembar kerja itu. Kita juga bisa mendapatkan jendela kode ini dengan menekan Alt + F11 .
  • Kemudian, ketikkan kode berikut ini di jendela kode itu selanjutnya: 
 Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'even rows .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub
  • Sekarang, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Terakhir, kita dapat melihat bahwa kode di atas hanya menaungi baris nomor ganjil dari dataset kita.

Baca Juga: Excel VBA untuk Mengulang Rentang hingga Sel Kosong (4 Contoh)

Kesimpulan

Kesimpulannya, tutorial ini memberi Anda 6 contoh perulangan melalui baris dalam rentang dengan VBA Unduh lembar kerja latihan yang terdapat dalam artikel ini untuk menguji kemampuan Anda. Jika Anda memiliki pertanyaan, silakan tinggalkan komentar di kotak di bawah ini. Tim kami akan mencoba menanggapi pesan Anda sesegera mungkin. Perhatikan lebih banyak lagi penemuan Microsoft Excel solusi di masa mendatang.

Postingan sebelumnya Cara Menghitung Mean dan Standar Deviasi di Excel
Postingan berikutnya Cara Menarik Data dari Beberapa Lembar Kerja di Excel (4 Cara Cepat)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.