Cara Menggunakan Rentang dengan Baris dan Kolom Variabel dengan Excel VBA

Hugh West

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

Ini memakan waktu ketika Anda ingin memformat sel dengan seleksi dan bekerja dengan data besar pada saat yang bersamaan. VBA Dalam tutorial ini, kami akan menunjukkan kepada Anda cara menggunakan baris variabel dan kolom variabel dalam suatu rentang dengan Excel VBA .

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Baris dan Kolom Variabel dengan VBA.xlsm

5 Cara yang Cocok untuk Menggunakan Range dengan Baris dan Kolom Variabel dengan Excel VBA

Pada bagian berikut ini, kita akan mendemonstrasikan 5 cara untuk menciptakan baris variabel dan kolom Selain itu, kami akan menunjukkan kepada Anda cara menggunakannya untuk memformat atau menerapkan kustomisasi apa pun pada rentang variabel Contoh set data direpresentasikan dalam gambar di bawah ini untuk memanfaatkan tugas tersebut.

1. Memformat Rentang Tertentu dengan Menerapkan Baris Variabel dengan Excel VBA

Katakanlah, kita ingin memilih sebuah rentang variabel dengan mengajukan permohonan untuk nomor baris variabel Kami akan memilih kisaran B5:C10 dan menerapkan warna font ( Merah marun Untuk melakukannya, ikuti langkah-langkah sederhana di bawah ini.

♠ Langkah 1: Membuat Modul VBA

  • Pertama-tama, tekan Alt + F11 untuk memulai Makro VBA .
  • Klik pada Sisipkan.
  • Kemudian, pilih Modul .

♠ Langkah 2: Tulis Kode VBA

  • Tulislah yang berikut ini Kode VBA. 
 Sub Variable_row_Select() 'mendeklarasikan variabel untuk nomor baris Dim Row_Number As Integer 'Masukkan kotak Input, ketik 10 untuk nomor baris Row_Number = InputBox("Ketik nomor baris") 'Masukkan variabel 'row_num' untuk memilih 5 baris pertama yang berisi data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

♠ Langkah 3: Jalankan Program

  • Pertama, Simpan program dan tekan F5 untuk dijalankan.
  • Oleh karena itu, maka Kotak masukan akan muncul, dan ketik 10 sebagai nomor baris .

  • Terakhir, tekan Masuk untuk melihat bahwa rentang dengan ( Baris 5 , Kolom 2 ) ke ( Variabel Baris 10 , Kolom 3 ) akan menjadi dipilih .

♠ Langkah 4: Terapkan Warna Font ke Rentang

  • Untuk menambahkan warna font di dalam yang dipilih rentang , tempelkan yang berikut ini Kode VBA . 
 Sub Variable_row_Font() 'mendeklarasikan variabel untuk nomor baris Dim Row_Number As Integer 'Masukkan kotak Input, ketik 10 untuk nomor baris Row_Number = InputBox("Ketik nomor baris") 'Masukkan variabel 'row_num' untuk memilih 6 baris pertama yang berisi data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Masukkan warna untuk font dalam warna Maroon With Selection .Font.Color = RGB(128, 0, 0)Akhiri Dengan End Sub

♠ Langkah 5: Ketik Nomor Baris

  • Jenis a nomor baris ( 10 ) di dalam Kotak masukan .
  • Klik OK .

  • Oleh karena itu, maka rentang yang dipilih akan berwarna seperti ditunjukkan dalam gambar di bawah ini.

Baca selengkapnya: Cara Menggunakan VBA untuk Mengatur Variabel Rentang ke Pilihan di Excel (5 Metode)

2. Sesuaikan Rentang Dinamis dengan Menerapkan Baris Variabel dengan Excel VBA

Apabila kisaran yang Anda gunakan sangat besar sehingga Anda tidak bisa membedakan nomor barisnya, Anda mungkin perlu menggunakan baris terakhir yang digunakan sebagai baris variabel Untuk melakukannya, ikuti langkah-langkah yang diuraikan di bawah ini.

♠ Langkah 1: Masukkan Kode VBA

  • Pilih baru Modul dari Sisipkan
  • Di dalam Modul , menulis berikut ini Program VBA . 
 Sub Variable_Dynamic_Row() 'mendeklarasikan variabel untuk nomor baris Dim Last_Used_Row As Integer 'Definisikan variabel ke rentang yang digunakan Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Terapkan variabel untuk memilih baris terakhir saat ini dalam rentang Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

♠ Langkah 2: Dapatkan Pilihan

  • Setelah menjalankan program, Anda rentang akan dipilih hingga Anda terakhir digunakan barisan.

♠ Langkah 3: Terapkan Warna Huruf

  • Untuk tandai yang rentang yang dipilih atau ke sunting , tempelkan berikut ini Kode VBA . 
 Sub Variable_Dynamic_Row() 'mendeklarasikan variabel untuk nomor baris Dim Last_Used_Row As Integer 'Definisikan variabel ke rentang yang digunakan Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Terapkan variabel untuk memilih baris terakhir saat ini dalam rentang Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Langkah 4: Hasil Akhir

  • Akhirnya, Simpan program dan lari itu dengan menekan F5 .
  • Sebagai hasilnya, kisaran dengan baris terakhir yang digunakan diformat dengan warna.

Baca selengkapnya: Excel VBA: Salin Rentang Dinamis ke Buku Kerja Lain

Bacaan Serupa

  • Cara Menggunakan VBA untuk Setiap Baris dalam Rentang di Excel
  • VBA untuk Mengulang Baris dan Kolom dalam Rentang di Excel (5 Contoh)
  • Excel VBA untuk Mengulang Rentang hingga Sel Kosong (4 Contoh)
  • Cara Mengonversi Rentang ke Larik di Excel VBA (3 Cara)
  • Cara Menggunakan VBA untuk Memilih Rentang dari Sel Aktif di Excel (3 Metode)

3. Format Rentang Tertentu dengan Menerapkan Kolom Variabel dengan Excel VBA

Mirip dengan baris variabel , Anda dapat mengajukan permohonan kolom variabel dengan Excel VBA . B5 ( Baris 5 , Kolom 2 ) sel adalah sel pertama di jangkauan, dan Baris 8 adalah baris terakhir dalam jangkauan; kolom terakhir adalah kolom variabel Ikuti prosedur di bawah ini untuk menerapkan kolom variabel .

♠ Langkah 1: Tulis kode VBA

  • Dalam sebuah Modul , menulis berikut ini Kode VBA . 
 Sub Variabel_Column_Font() 'mendeklarasikan variabel untuk nomor baris Dim Column_num As Integer 'Masukkan kotak Input, ketik 5 untuk nomor Kolom Column_num = InputBox("Ketik nomor Kolom") 'Masukkan variabel 'Column_num' untuk memilih 5 Kolom pertama yang berisi data Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Masukkan warna untuk font dalam warna Maroon With Selection .Font.Color =RGB(128, 0, 0) End With End Sub

♠ Langkah 2: Jalankan Program

  • Untuk lari program, tekan F5 setelah penghematan .
  • Oleh karena itu, Anda akan melihat hasil berikut ini sebagai berikut sel yang dipilih adalah kisaran B5:E8 .

4. Sesuaikan Rentang Dinamis dengan Menerapkan Kolom Variabel dengan Excel VBA

Selain yang sebelumnya, Anda dapat menyesuaikan kolom variabel untuk tampil secara dinamis. meningkat data dalam sebuah kolom yang akan tambahkan ke seleksi Ikuti instruksi sederhana di bawah ini untuk melakukannya.

♠ Langkah 1: Tempelkan Kode VBA

  • Tempel berikut ini VBA kode ke dalam Modul . 
 Sub Variable_Dynamic_Column() 'mendeklarasikan variabel untuk nomor kolom Dim lastColumn As Integer 'Mendefinisikan variabel ke rentang yang digunakan lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'Terapkan variabel untuk memilih kolom terakhir cuurent dalam rentang Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'mewarnai font sel yang dipilih dalam warna merah marun With Selection .Font.Color = RGB(128, 0,0) Akhiri Dengan End Sub

♠ Langkah 2: Jalankan program

  • Pertama, Simpan program dan tekan F5 untuk dijalankan.
  • Hasilnya, kisaran dipilih dan diformat hingga kolom terakhir yang digunakan dalam lembar kerja.

Baca selengkapnya: Makro Excel: Urutkan Beberapa Kolom dengan Rentang Dinamis (4 Metode)

5. Buat Rentang dengan Baris Variabel dan Kolom Variabel dengan Excel VBA

Yang penting, Anda bisa menggunakan keduanya baris variabel dan kolom variabel dengan pilihan pilihan Anda. Sel pertama dalam pilihan rentang kita adalah B5 ( Baris 5, Kolom 2 ) dan kisaran terakhir akan bervariasi sesuai pilihan kita. Ikuti langkah-langkah yang diuraikan di bawah ini untuk menyelesaikan tugas.

♠ Langkah 1: Ketikkan Kode VBA

  • Pertama, membuat baru Modul .
  • Kemudian, menulis berikut ini Kode VBA . 
 Sub Variabel_Column_Row() 'mendeklarasikan variabel untuk nomor baris Dim Row_Number As Integer 'mendeklarasikan variabel untuk nomor kolom Dim Column_num As Integer 'Definisikan variabel - ketik 8 untuk nomor baris dan 4 untuk kolom Row_Number = InputBox("Ketik nomor baris") Column_num = InputBox("Ketik nomor Kolom") 'Terapkan variabel untuk memilih baris dan kolom dalam rentang Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Langkah 2: Masukkan Nomor Baris

  • Jenis apa saja nomor baris .

♠ Langkah 3: Masukkan Nomor Kolom

  • Jenis apa saja nomor kolom .

♠ Langkah 4: Dapatkan Hasil Akhir

  • Akibatnya, saat Anda memilih ( Baris , Kolom ) = ( 8,5 ), Anda akan mendapatkan hasil akhir seperti yang ditunjukkan pada gambar di bawah ini.

Kesimpulan

Akhirnya, saya harap Anda sekarang memahami cara menggunakan range dengan baris dan kolom variabel dengan Excel VBA Semua strategi ini harus dilakukan ketika data Anda sedang dididik dan dipraktikkan. Periksalah buku latihan dan terapkan apa yang telah Anda pelajari. Kami terdorong untuk terus menawarkan program-program seperti ini karena dukungan Anda yang murah hati.

Jika Anda memiliki pertanyaan, jangan ragu untuk menghubungi kami. Silakan berbagi pemikiran Anda pada bagian komentar di bawah ini.

The Exceldemy staf akan menghubungi Anda sesegera mungkin.

Tetaplah bersama kami dan teruslah belajar.

Postingan sebelumnya Cara Mengonversi File Excel ke Teks dengan Pembatas Pipa (2 Cara)
Postingan berikutnya Cara Menerapkan Beberapa Filter di Excel (6 Metode yang Sesuai)

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.