VBA untuk Setiap Sel dalam Rentang di Excel (3 Metode)

Hugh West

16-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Dalam Database besar, Anda menghabiskan sebagian besar waktu Anda berurusan dengan rentang dan sel. Terkadang Anda harus mengulangi tindakan yang sama dalam rentang yang besar atau sejumlah besar sel. Ini pada saat yang sama membunuh waktu Anda dan mengurangi efisiensi Anda. Kode Pemrograman VBA yang akan berjalan melalui setiap sel dalam rentang dan melakukan tindakan yang sama dengan yang Anda arahkan. Hari ini di artikel ini, kita akan membahas cara melakukan VBA untuk Setiap Sel dalam Rentang di Excel.

Unduh Buku Kerja Praktik

Unduh buku latihan ini untuk melatih tugas saat Anda membaca artikel ini.

Kode VBA untuk Setiap Sel dalam Rentang di Excel.xlsx

3 Cara yang Cocok untuk Menerapkan VBA untuk Setiap Sel dalam Rentang di Excel

Dengan menggunakan kode VBA, Anda dapat melakukan rumus yang sama untuk setiap sel dalam rentang atau kolom atau baris. Di bagian ini, kita akan membahas semua bagian.

1. Terapkan VBA untuk Setiap Sel dalam Rentang

Pertimbangkan situasi di mana Anda harus menerapkan kode VBA yang sama untuk setiap sel dalam kisaran tertentu ( B3:F12 Untuk melakukan ini kita akan membuat kode VBA. Instruksi diberikan di bawah ini

Langkah 1:

  • Pertama, kita akan menyisipkan tombol perintah untuk menyederhanakan pekerjaan kita. Tab Pengembang , pilih Sisipkan dan klik pada tombol perintah untuk mendapatkannya.

  • Kita sudah mendapatkan tombol perintah kita.

  • Klik kanan pada tombol perintah untuk membuka opsi. Pilih dan klik pada Properti untuk memodifikasi beberapa opsi.

  • Ubah Caption dari tombol perintah. Di sini kita ubah namanya menjadi, " Klik di sini ".

Langkah 2:

  • Sekarang klik dua kali pada tombol perintah untuk membuka VBA Modul Di sini kita akan menuliskan kode VBA kita untuk tugas tersebut.

  • Pertama, kita akan mendeklarasikan dua variabel. Kita sebut objek range CL dan Rng Anda bisa menamainya sesuka Anda. 
 Dim CL Sebagai Range Dim Rng Sebagai Range

  • Tetapkan rentang spesifik dengan perintah ini,

Set Rng = Lembar Kerja ("VBA1").Range ("B3:F12")

  • Di sini VBA1 adalah nama lembar kerja kita dan B3:F12 adalah kisaran yang kami tentukan.

  • Sekarang kita akan menggunakan kode untuk melakukan melalui setiap sel dalam rentang tersebut. Kodenya adalah, 
 Untuk Setiap CL Dalam Rng CL.Value = 100 CL Berikutnya
  • Nilai = 100 mengacu bahwa itu akan kembali 100 untuk setiap sel dalam rentang yang diberikan.

  • Jadi kode akhir kita menjadi, 
 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng CL.Value = 100 Next CL End Sub
  • Buka lembar kerja utama Anda dan klik tombol perintah untuk menjalankan VBA untuk setiap sel dalam rentang tersebut.

Langkah 3:

  • Seperti nilai numerik, kita juga dapat memasukkan nilai teks untuk setiap sel dalam rentang. Dalam hal ini, buka jendela VBA, dan alih-alih 100, masukkan nilai teks yang ingin Anda jalankan. Baris yang diubah adalah 
 CL.Value = "ExcelWIKI"

  • Klik pada tombol perintah dan kode VBA akan mengembalikan nilai teks ini untuk setiap sel dalam rentang tersebut.

Langkah 4:

  • Pada langkah ini, kita akan menggali sedikit lebih dalam. Katakanlah kita ingin menyorot setiap sel kosong dalam range kita.

  • Untuk itu, tambahkan kondisi baru pada kode yang sudah ada. Rumus barunya adalah, 
 If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If
  • Kode baru ini akan menyorot sel kosong dengan warna merah. Jadi kode lengkapnya adalah, 
 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If Next CL End Sub

  • Dapatkan hasilnya dengan mengklik tombol perintah.

Bacaan serupa:

  • Cara Menggunakan Objek Rentang VBA di Excel (5 Properti)
  • Gunakan VBA Range Offset (11 Cara)
  • Cara Menghitung Teks di Excel (7 Trik Mudah)

2. Sisipkan Kode VBA Untuk Setiap Sel dalam Kolom Rentang

Kita bisa menjalankan kode VBA untuk setiap sel dalam kolom juga. Misalkan kita memiliki kolom yang berisi angka dan kita harus mewarnai nilai yang lebih rendah dari 10. Kita akan membuat kode VBA untuk menjalankan setiap sel dalam kolom tersebut.

Langkah 1:

  • Buat tombol perintah dengan mengikuti instruksi yang telah kita diskusikan.

Langkah 2:

  • Klik dua kali pada tombol perintah untuk membuka jendela VBA.
  • Kita akan mendeklarasikan variabel bernama " c "Kita menggunakan variabel tipe Long di sini karena variabel Long memiliki kapasitas yang lebih besar daripada variabel Integer. 
 Dim c Sebagai Long

  • Selanjutnya, tambahkan baris kode yang mengubah warna font semua sel di kolom kita menjadi hitam. 
 Kolom(1).Font.Color = vbBlack

  • Masukkan loop untuk kode ini. 
 For c = 1 To Rows.Count Next c

  • Pada langkah ini, kita akan memasukkan kondisi untuk mewarnai nilai yang lebih rendah dari nilai sel C4 (10). Masukkan kode ini untuk melakukan itu. 
 If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If

  • Jadi, kode akhirnya adalah, 
 Private Sub CommandButton1_Click () Dim c As Long Columns(1).Font.Color = vbBlack For c = 1 To Rows.Count If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If Next c End Sub
  • VBA akan berjalan dan menunjukkan hasil ketika Anda mengklik tombol perintah.

3. Tulis Kode VBA Untuk Setiap Sel dalam Baris Rentang

Kita juga dapat menjalankan kode VBA untuk setiap sel dalam satu baris. Di baris yang diberikan, kita perlu melakukan tindakan yang sama pada setiap sel baris.

Langkah 1:

  • Tambahkan tombol perintah dan ubah namanya menjadi " Klik di sini! "

  • Klik dua kali pada tombol untuk membuka jendela VBA. Tuliskan kode VBA yang disediakan di bawah ini. 
 Private Sub CommandButton1_Click () Dim r As Range Dim MyString As String 'Untuk Setiap sel dalam satu baris, dan terapkan isian warna kuning For Each r In Range("B3:F3").Rows r.Interior.ColorIndex = 6 Next End Sub
  • Kode akan berjalan melalui setiap sel baris dan menerapkan isian warna kuning ke setiap sel.

  • Klik pada tombol dan hasil kami ada di sini.

Catatan Cepat

👉 Jika tab pengembang Anda tidak terlihat, Anda dapat mengaktifkannya menggunakan instruksi ini.

Bilah Alat Akses Cepat yang Disesuaikan → Perintah Lainnya → Sesuaikan Pita → Pengembang → OK

Kesimpulan

Kami telah melalui tiga pendekatan berbeda untuk menjalankan VBA untuk setiap sel dalam suatu rentang. Anda dipersilakan untuk berkomentar jika Anda memiliki pertanyaan atau pertanyaan. Anda juga dapat melihat artikel kami yang lain yang terkait dengan tugas Excel!

Postingan sebelumnya Cara Membekukan Dua Baris Teratas di Excel (4 cara)
Postingan berikutnya Cara Mengonversi Menit ke Hari di Excel (3 Metode Mudah)

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.