Cara Menggunakan VBA Range Offset (11 Cara)

Hugh West

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

Jika Anda mencari beberapa cara termudah untuk menggunakan VBA Range Offset, maka Anda akan merasa artikel ini sangat berharga. Mari kita mulai dengan cara-cara menggunakan VBA Rentang Offset.

Unduh Buku Kerja

VBA Range Offset.xlsm

11 Cara Menggunakan VBA Range Offset

Saya memiliki tabel data berikut yang berisi beberapa informasi mahasiswa dari sebuah perguruan tinggi. Dengan menggunakan dataset ini, saya akan menjelaskan cara-cara menggunakan VBA Rentang Offset.

Untuk tujuan ini, saya telah menggunakan Microsoft Excel 365 Anda dapat menggunakan versi lain sesuai dengan kenyamanan Anda.

Metode-1: Memilih Sel dengan Menggunakan Rentang VBA

Di sini, kita akan memilih sel yang berisi nama Daniel Defoe. Untuk tujuan ini, kita akan menggunakan Fungsi RANGE di VBA .

Langkah-01 :

➤Pergi ke Pengembang Tab>> Visual Basic Opsi

Kemudian, itu Editor Visual Basic akan terbuka.

➤Pergi ke Sisipkan Tab>> Modul Opsi

Setelah itu, a Modul akan dibuat.

Langkah-02 :

➤Tulis kode berikut 

 Sub SelectCell() Range("B8").Select End Sub

Ini akan memilih sel B8 .

➤ Tekan F5

Hasil :

Dengan cara ini, Anda akan mendapatkan sel yang berisi Daniel Defoe dipilih.

Baca selengkapnya: Cara Menggunakan Objek Rentang VBA di Excel

Metode-2: Memilih Sekelompok Sel yang Bersebelahan dengan Menggunakan VBA Range

Anda bisa memilih rentang sel yang bersebelahan seperti Nama Siswa kolom dan Hasil kolom dalam tabel berikut dengan mengikuti metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub ContiguousCells() Range("B5:C10").Select End Sub

Ini akan memilih sel dari B5 untuk C10 .

➤ Tekan F5

Hasil :

Setelah itu, Anda akan mendapatkan sel dalam Kolom B dan Kolom C dipilih.

Metode-3: Memilih Sekelompok Sel yang Tidak Bersebelahan dengan Menggunakan Rentang VBA

Misalkan, Anda ingin memilih siswa bernama William David dan Michael Anthony termasuk masing-masing Id Email Untuk memilih sel-sel yang tidak sesuai ini, Anda bisa mengikuti metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub nonContiguous() Range("B6,D6,B9,D9").Select End Sub

Ini akan memilih sel B6 , D6 , B9, dan D9 .

➤ Tekan F5

Hasil :

Kemudian, Anda akan mendapatkan sel yang berisi nama siswa William David , Michael Anthony, dan masing-masing Id Email dipilih.

Metode-4: Memilih Sekelompok Sel yang Tidak Bersebelahan dan Rentang dengan Menggunakan Rentang VBA

Anda dapat memilih rentang sel dan beberapa sel yang tidak bersebelahan secara bersamaan dengan mengikuti metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub nonContiguouswithrange() Range("B5:B10,D6,D10").Select End Sub

Ini akan memilih rentang sel dalam rentang tersebut B5:B10 dan dua sel lainnya D6 , D10 .

➤ Tekan F5

Hasil :

Setelah itu, Anda akan mendapatkan sel-sel di kolom Nama Siswa dan dua Email Ids untuk William David dan Donald Paul dipilih.

Metode-5: Memilih Rentang dengan Menggunakan VBA Range Offset

Anda dapat memilih rentang sel dalam Kolom Nama Siswa dengan menggunakan Fungsi OFFSET .

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub selectrangeoffset() Range("A1:A6").Offset(4, 1).Select End Sub

Pada awalnya, Rentang ("A1:A6") akan memilih rentang A1:A6 dan kemudian Offset(4, 1) akan memindahkan 4 baris ke bawah dari sel A1 dan 1 kolom ke sisi kanan. Setelah itu, jumlah sel yang sama dalam rentang A1:A6 akan dipilih dari sini.

➤ Tekan F5

Hasil :

Dengan cara ini, Anda akan memilih kolom Nama Siswa .

Metode-6: VBA Range Offset Negatif

Anda bisa memilih Kolom Id Email dengan mengikuti metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub negativerangeoffset() Range("F11:F16").Offset(-6, -2).Select End Sub

Pada awalnya, Rentang ("F11:F16") akan memilih rentang F11:F16 dan kemudian Offset(-6, -2) akan memindahkan 6 baris ke atas dari sel F11 dan 2 kolom ke sisi kiri. Setelah itu, jumlah sel yang sama dalam rentang F11:F16 akan dipilih dari sini.

➤ Tekan F5

Hasil :

Setelah itu, Anda akan dapat memilih kolom Id Email .

Bacaan serupa:

  • VBA untuk Setiap Sel dalam Rentang di Excel (3 Metode)
  • Cara Menghitung Teks di Excel (7 Trik Mudah)

Metode-7: Memilih Rentang sehubungan dengan Sel Aktif

Di sini, kita memiliki sel aktif (sel A1 ) dan sehubungan dengan sel ini, kami akan memilih rentang data dalam metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub actvcell() Range(activecell.Offset(4, 1), activecell.Offset(9, 3)).Select End Sub

Di sini, activecell adalah A1

Bagian pertama activecell.Offset(4, 1) akan memilih sel 4 baris ke bawah dan 1 kolom kanan dari sel A1 dan bagian kedua activecell.Offset(9, 3) akan memilih sel 9 baris ke bawah dan 3 kolom kanan dari sel A1 .

Akhirnya, semua sel di antara kedua sel ini akan dipilih.

➤ Tekan F5

Hasil :

Kemudian, Anda akan dapat memilih seluruh rentang data.

Metode-8: Menyalin Rentang

Jika Anda ingin menyalin rentang sel, maka Anda dapat mengikuti metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub copyrangeoffset() Range("A1:A6").Offset(4, 1).Copy End Sub

Pada awalnya, Rentang ("A1:A6") akan memilih rentang A1:A6 dan kemudian Offset(4, 1) akan memindahkan 4 baris ke bawah dari sel A1 dan 1 kolom ke sisi kanan. Setelah itu, jumlah sel yang sama dalam rentang A1:A6 akan dipilih dari sini.

Akhirnya, ia akan menyalin nilai-nilai dalam kisaran B5:B10 .

➤ Tekan F5

Hasil :

Setelah itu, Anda akan dapat menyalin rentang data di dalam Kolom Nama Siswa .

Metode-9: Menghapus Rentang

Di sini, kita akan menunjukkan cara untuk menghapus rentang data dengan menggunakan VBA kode.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub dltrangeoffset() Range("F11:F17").Offset(-7, -2).Delete End Sub

Pertama, Rentang ("F11:F17") akan memilih rentang F11:F17 dan kemudian Offset(-7, -2) akan memindahkan 7 baris ke atas dari sel F11 dan 2 kolom ke sisi kiri. Setelah itu, jumlah sel yang sama dalam rentang F11:F17 akan dipilih dari sini.

Akhirnya, ini akan menghapus kisaran D4:D10 .

➤ Tekan F5

Hasil :

Dengan cara ini, Anda akan menyalin rentang data dalam Kolom Id Email .

Metode-10: Menggunakan VBA Range Offset untuk Memasukkan Nilai

Di sini, kita memiliki sel kosong (kita telah menghapus nilai dalam sel ini untuk menjelaskan metode ini) di dalam Kolom Nama Siswa dan kita ingin mengisinya dengan nama Joseph Michael Dengan menggunakan VBA kita bisa dengan mudah memasukkan nilai ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub valuerangeoffset() Range("A1").Offset(6, 1).Value = "Joseph Michael" End Sub

Pertama, Rentang ("A1") akan memilih sel A1 dan kemudian Offset(6, 1) akan memindahkan 6 baris ke bawah dari sel A1 dan 1 kolom ke sisi kanan. Setelah itu, sel B7 akan dipilih dan akhirnya, ia akan memasukkan nilai "Joseph Michael" dalam sel ini.

➤ Tekan F5

Hasil :

Dengan cara ini, Anda akan mendapatkan nama Joseph Michael di dalam sel B7 .

Metode-11: Menggunakan VBA Range Offset untuk Mendapatkan Output

Misalkan, Anda ingin menulis Lulus atau Gagal berkorespondensi untuk nama-nama siswa tergantung pada Kolom hasil di mana Lulus atau Gagal telah ditulis dalam tanda kurung. Untuk menemukan substring ini di dalam Kolom hasil dan menuliskannya dalam Kolom Lulus/Gagal ikuti metode ini.

Langkah-01 :

➤Ikuti Langkah-01 dari Metode-1 

 Sub CheckSubstring() Dim cell As Range For Each cell In Range("C5:C10") If InStr(cell.value, "Pass")> 0 Then cell.Offset(0, 1).value = "Passed" Else cell.Offset(0, 1).value = "Failed" End If Next cell End Sub

Di sini, rentang sel C5: C10 dipilih oleh Rentang ("C5:C10") yang merupakan Kolom hasil

InStr(sel. nilai, "Lulus")> 0 adalah kondisi di mana angkanya lebih besar dari nol (ketika sel berisi "Lulus" ) maka baris berikut akan berlanjut dan memberikan output di sel yang berdekatan sebagai Lulus Di sini, sel yang berdekatan akan dipilih oleh sel.Offset(0, 1) yang berarti akan berpindah 1 kolom ke kanan dari cell inputnya.

Jika kondisinya menjadi false berarti sel tidak mengandung "Lulus" maka garis di bawah Lain-lain akan mengeksekusi dan memberikan nilai output di sel yang berdekatan sebagai Gagal .

Perulangan ini akan berlanjut untuk setiap sel.

➤ Tekan F5

Hasil :

Kemudian, Anda akan mendapatkan output Lulus atau Gagal di Lulus/Gagal kolom.

Bagian Latihan

Untuk melakukan latihan sendiri, kami telah menyediakan Praktek seperti di bawah ini dalam lembar bernama Praktek . Silakan lakukan sendiri.

Kesimpulan

Dalam artikel ini, saya mencoba membahas cara termudah untuk menggunakan VBA Jika Anda memiliki saran atau pertanyaan, jangan ragu untuk membagikannya dengan kami.

Postingan sebelumnya Cara Mengunci Baris di Excel Saat Menggulir (4 Metode Mudah)
Postingan berikutnya Cara Menggunakan Fungsi ROWS di Excel (dengan 7 Contoh 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.