Ubah Ukuran VBA Excel
Ubah ukuran adalah properti yang tersedia di VBA untuk mengubah atau mengubah ukuran rentang sel dari sel aktif sesuai kebutuhan. Misalnya, anggap Anda berada di sel B5, dan dari sel ini, jika Anda ingin memilih 3 baris dan dua kolom, kami dapat mengubah ukuran rentang dengan menggunakan properti RESIZE VBA.
Sintaks dari VBA Ubah Ukuran Properti
Di bawah ini adalah sintaks dari properti VBA RESIZE.
Range (). Ubah ukuran ((Ukuran Baris), (Ukuran Kolom))Pertama, kita perlu menyediakan dari sel mana kita perlu mengubah ukurannya dengan menggunakan objek Range .
Kemudian gunakan properti excel VBA Resize , dan di properti ini, kita perlu menyediakan batas ukuran baris dan batas ukuran kolom . Berdasarkan nomor baris dan nomor kolom yang disediakan, itu akan mengubah ukurannya.
Contoh penggunaan Resize di VBA
Di bawah ini adalah contoh penggunaan resize di excel VBA.
Contoh 1
Asumsikan Anda memiliki data dari sel A1 hingga B14, dan dari sel A1, jika Anda ingin memilih 3 baris ke bawah dan rentang kiri dua kolom, kita dapat melakukannya dengan menggunakan properti RESIZE di Excel VBA.
Di bawah ini adalah data yang kami gunakan untuk contoh ini.
Pertama, kita perlu menyediakan referensi sel pertama atau titik awal dengan menggunakan objek RANGE. Dalam contoh ini, titik awalnya adalah sel A1.
Kode:
Sub Resize_Example () Range ("A1"). Akhiri Sub
Untuk rentang ini, gunakan properti RESIZE.
Kode:
Sub Resize_Example () Range ("A1"). Ubah ukuran (End Sub
Argumen pertama RESIZE adalah Row Size, jadi kita perlu memilih 3 baris data dan memberikan nilai numerik 3.
Kode:
Sub Resize_Example () Range ("A1"). Ubah ukuran (3, End Sub
Argumen berikutnya adalah Ukuran Kolom untuk ini, masukkan bagaimana kolom yang perlu Anda pilih. Saya akan memasukkan 3 kolom.
Kode:
Sub Resize_Example () Range ("A1"). Ubah Ukuran (3,3) End Sub
Setelah pengubahan ukuran selesai, kita perlu menyediakan apa yang perlu kita lakukan dengan kisaran ini. Saya hanya akan memilih metode "Pilih" untuk memulai.
Kode:
Sub Resize_Example () Range ("A1"). Ubah ukuran (3, 3). Pilih End Sub
Jalankan kode dan lihat berapa banyak baris dan berapa banyak kolom yang akan dipilihnya.
Seperti yang Anda lihat di atas dari sel A1, ini telah memilih tiga baris ke bawah dan tiga kolom ke kanan.
Contoh # 2
Sekarang lihat kode VBA di bawah ini.
Pada kode di atas untuk Ukuran Baris, kami telah menyediakan sel kosong, dan untuk Ukuran Kolom, kami telah menyediakan 3.
Kode:
Sub Resize_Example () Range ("A1"). Ubah ukuran (0, 3). Pilih End Sub
Jalankan kode dan lihat berapa banyak baris dan berapa banyak kolom yang akan dipilihnya.
Seperti yang Anda lihat, telah memilih hanya baris sel aktif, yaitu, 1 st baris dan tiga kolom. Ini karena, untuk Ukuran Baris, kami telah menyediakan sel kosong, dan untuk Ukuran Kolom, kami telah menyediakan 3, dan karenanya, telah memilih rentang data.
Sekarang, lihat kode di bawah ini.
Kode:
Sub Resize_Example () Range ("A1"). Ubah ukuran (3). Pilih End Sub
What this code will do is it will select only three rows, including the active cell row but no extra columns.
Example #3
Use Resize To Select Unknown Ranges. Resize is best utilized when you want to select an unknown range of cells. For example, look at the below image of the data range.
It has data all the ways from Column A to Column P and row-wise we have up until the 700th row.
Assume you know your data will keep changing, and you want to select the data range every now and then by manually changing the row and column number. However, by using VBA RESIZE property, we can do this easily.
Look at the below code.
Code:
Sub Resize_Example1() Dim LR As Long Dim LC As Long Worksheets("Sales Data").Select LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, 1).Resize(LR, LC).Select End Sub
First, I have declared two variables to find the last used row (LR) and the last used column (LC).
Dim LR As Long Dim LC As Long
Since our data is in the worksheet named “Sales Data,” we are choosing this worksheet by using the below code.
Worksheets(“Sales Data”).Select
Now below code will find the last used row and last used column.
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column
Sekarang dari sel pertama, kami mengubah ukuran rentang dari baris yang terakhir digunakan ke kolom yang terakhir digunakan dan pilih metode yang digunakan. Jadi sekarang tidak masalah seberapa besar data Anda. Ini akan secara dinamis memilih data dengan menemukan baris yang terakhir digunakan dan kolom yang terakhir digunakan.
Hal-hal untuk diingat
- Properti Ubah ukuran di VBA akan mengubah ukuran rentang dari sel aktif (termasuk sel aktif juga).
- Kami hanya perlu memberikan berapa banyak baris dan berapa banyak kolom yang akan diubah ukurannya dari sel aktif di VBA.
- Kami tidak dapat menggunakan baris & kolom negatif nomor untuk properti RESIZE.
