Cara memilih rentang menggunakan Visual Basic untuk Aplikasi (contoh pemula)

Contoh cara memilih sel secara manual

Untuk memilih semua data dalam kolom secara manual, pilih sel pertama, lalu tekan CTRL+SHIFT+PANAH BAWAH.

Demikian pula, untuk memilih baris dan semua kolom yang dilampirkan pada baris secara manual, tekan CTRL+SHIFT+PANAH BAWAH+PANAH KANAN. Namun, semua data harus bersebelahan (antara lain, tidak boleh memiliki baris atau kolom kosong). Anda juga dapat memilih area data saat ini (data yang bersebelahan, tanpa baris atau kolom kosong) dengan melakukan hal berikut:

1. Pada menu Edit, klik Masuk Ke.

2. Dalam kotak dialog Masuk Ke, klik Khusus.

3. Dalam kotak dialog Pergi Ke Spesial, klik Kawasan saat ini, lalu klik
   OK.

Anda juga dapat memilih rentang ini menggunakan opsi Visual Basic untuk Kode aplikasi.

Catatan Jika Anda mencoba merekam prosedur ini dengan menggunakan perekam makro, Anda tidak menerima hasil yang sama.

Contoh cara menggunakan kode Visual Basic untuk memilih sel dalam rentang

Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik secara tersurat maupun tersirat. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang sedang ditunjukkan dan dengan alat yang digunakan untuk membuat dan melakukan debug prosedur. Teknisi dukungan Microsoft bisa membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh-contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruktif untuk memenuhi persyaratan tertentu Anda. Contoh kode Visual Basic berikut ini menunjukkan cara memilih rentang yang berbeda-beda.

Jika Anda mengetahui sel awal (dalam contoh ini, sel awal adalah sel C1), dan Anda ingin memilih sampai ke sel terakhir (di kolom yang sama) yang memiliki data namun tidak mengetahui alamat, gunakan kode berikut:

   Sub SelectRangeDown()
      Range("c1", Range("c1").End(xlDown)).Select
   End Sub

Catatan Makro SelectRangeDown mengasumsikan data Anda bersebelahan. Jika tidak, jika terdapat sel kosong di kolom data yang Anda pilih, makro ini mungkin tidak memilih semua sel Anda dalam kolom.

Jika data dimulai di sel C1, tetapi tidak bersebelahan di kolom itu, gunakan makro berikut ini di Microsoft Office Excel 2003 dan di versi Excel:

   Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c65536").End(xlUp)).Select
   End Sub

Karena Microsoft Office Excel 2007 mendukung 1.048.576 baris, gunakan makro berikut ini di Excel 2007:

 Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c1048576").End(xlUp)).Select
   End Sub

Jika ingin memilih dari sel aktif ke bawah dan semua kolom di sebelah kanan (dengan asumsi data yang bersebelahan di semua baris dan kolom), gunakan kode berikut:

   Sub myrangearea()
      Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select
   End Sub

Jika Anda mengetahui sel awal (dalam kode contoh ini, sel awal adalah D1), dan Anda ingin memilih ke bawah kolom dan ke kanan, gunakan kode berikut:

   Sub RangeFromStart()
      Range("d1", Range("d1").End(xlDown).End(xlToRight)).Select
   End Sub

Untuk memilih semua data di kawasan saat ini, gunakan kode berikut:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Contoh yang disertakan dalam artikel ini memperlihatkan cara memilih rentang yang berbeda-beda pada lembar kerja aktif dari buku kerja Anda saat ini.

Untuk informasi tambahan tentang cara memilih rentang dengan Visual Basic for Applications (dan untuk contoh yang lebih lanjut), klik nomor artikel berikut ini untuk melihat artikel dalam Pangkalan Pengetahuan Microsoft:

291308 Cara memilih sel/rentang menggunakan prosedur Visual Basic di Excel