Saiz Semula VBA Excel
Ubah saiz adalah harta yang ada di VBA untuk mengubah atau mengubah saiz julat sel dari sel aktif mengikut keperluan. Sebagai contoh, anggap anda berada di sel B5, dan dari sel ini, jika anda ingin memilih 3 baris dan dua lajur, kami dapat mengubah ukuran julat dengan menggunakan sifat RESIZE VBA.
Sintaks Harta Saiz VBA
Berikut adalah sintaks harta VBA RESIZE.
Julat (). Ubah saiz ((Ukuran Baris), (Saiz Lajur))Pertama, kita perlu menyediakan dari sel mana kita perlu mengubah ukurannya dengan menggunakan objek Range .
Kemudian gunakan harta saiz VBA excel , dan dalam harta ini, kita perlu memberikan had ukuran baris dan had ukuran lajur . Berdasarkan nombor baris dan nombor lajur yang disediakan, ia akan mengubah saiznya.
Contoh penggunaan Resize dalam VBA
Berikut adalah contoh penggunaan resize dalam excel VBA.
Contoh # 1
Anggap anda mempunyai data dari sel A1 hingga B14, dan dari sel A1, jika anda ingin memilih 3 baris ke bawah dan dua lajur kiri, kita dapat melakukan ini dengan menggunakan harta RESIZE di Excel VBA.
Berikut adalah data yang kami gunakan untuk contoh ini.
Pertama, kita perlu menyediakan rujukan sel pertama atau titik permulaan dengan menggunakan objek RANGE. Dalam contoh ini, titik permulaan adalah sel A1.
Kod:
Sub Resize_Contoh () Julat ("A1"). Sub Akhir
Untuk julat ini, gunakan harta RESIZE.
Kod:
Sub Resize_Contoh () Julat ("A1"). Ubah saiz (End Sub
Argumen pertama RESIZE adalah Row Size, jadi kita perlu memilih 3 baris data dan memberikan nilai berangka 3.
Kod:
Sub Resize_Contoh () Julat ("A1"). Ubah saiz (3, Sub Akhir
Argumen seterusnya adalah Ukuran Lajur untuk ini, masukkan bagaimana lajur yang perlu anda pilih. Saya akan memasukkan 3 lajur.
Kod:
Sub Resize_Contoh () Julat ("A1"). Ubah saiz (3,3) Sub Akhir
Setelah pengubahan saiz selesai, kita perlu memberikan apa yang perlu kita lakukan dengan julat ini. Saya hanya akan memilih kaedah "Pilih" untuk memulakan.
Kod:
Sub Resize_Contoh () Julat ("A1"). Ubah saiz (3, 3). Pilih Sub Akhir
Jalankan kod dan lihat berapa baris dan berapa lajur yang akan dipilihnya.
Seperti yang anda lihat di atas dari sel A1, ia telah memilih tiga baris ke bawah dan tiga lajur ke kanan.
Contoh # 2
Sekarang perhatikan kod VBA di bawah.
Dalam kod di atas untuk Row Size, kami telah membekalkan sel kosong, dan untuk Column Size, kami telah membekalkan 3.
Kod:
Sub Resize_Contoh () Julat ("A1"). Ubah saiz (0, 3). Pilih Sub Akhir
Jalankan kod dan lihat berapa baris dan berapa lajur yang akan dipilihnya.
Seperti yang anda lihat, ia telah memilih hanya baris sel aktif, iaitu, 1 st baris dan tiga tiang. Ini kerana, untuk Row Size, kami telah menyediakan sel kosong, dan untuk Column Size, kami telah membekalkan 3, dan oleh itu, ia telah memilih julat data.
Sekarang, lihat kod di bawah.
Kod:
Sub Resize_Contoh () Julat ("A1"). Ubah saiz (3). Pilih Sub Akhir
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 kisaran dari baris terakhir yang digunakan hingga lajur terakhir yang digunakan dan pilih adalah kaedah yang digunakan. Jadi sekarang tidak kira seberapa besar data anda. Ia akan memilih data secara dinamik dengan mencari baris terakhir dan lajur terakhir yang digunakan.
Perkara yang Perlu Diingat
- Saiz semula harta di VBA akan mengubah ukuran julat dari sel aktif (termasuk sel aktif juga).
- Kami hanya perlu memberikan berapa baris dan berapa lajur yang akan diubah saiznya dari sel aktif di VBA.
- Kami tidak boleh menggunakan nombor baris & lajur negatif untuk harta RESIZE.
