Excel VBA Yeniden Boyutlandırma
Yeniden boyutlandırma, gerektiğinde etkin hücreden hücre aralığını değiştirmek veya yeniden boyutlandırmak için VBA'da bulunan bir özelliktir. Örneğin, B5 hücresinde olduğunuzu varsayın ve bu hücreden 3 satır ve iki sütun seçmek isterseniz, VBA'nın RESIZE özelliğini kullanarak bir aralığın boyutunu değiştirebiliriz.
VBA Yeniden Boyutlandırma Özelliğinin Sözdizimi
VBA RESIZE özelliğinin sözdizimi aşağıdadır.
Aralık (). Yeniden Boyutlandır ((Satır Boyutu), (Sütun Boyutu))Öncelikle, Range nesnesini kullanarak hangi hücreden yeniden boyutlandırmamız gerektiğini sağlamamız gerekir .
Ardından excel VBA Resize özelliğini kullanın ve bu özellikte satır boyutu sınırı ve sütun boyutu sınırı sağlamamız gerekir. Sağlanan satır numaralarına ve sütun numaralarına göre yeniden boyutlandıracaktır.
VBA'da Yeniden Boyutlandırma kullanma örnekleri
Aşağıda, excel VBA'da yeniden boyutlandırma kullanımına ilişkin örnekler verilmiştir.
Örnek 1
A1 hücresinden B14 hücresine ve A1 hücresinden verileriniz olduğunu varsayalım, 3 satır aşağı ve iki sütun sol aralık seçmek istiyorsanız, bunu Excel VBA'daki RESIZE özelliğini kullanarak yapabiliriz.
Bu örnek için kullandığımız veriler aşağıdadır.
İlk olarak, RANGE nesnesini kullanarak ilk hücre referansını veya başlangıç noktasını sağlamamız gerekir. Bu örnekte, başlangıç noktası A1 hücresidir.
Kod:
Alt Resize_Example () Aralık ("A1"). Sub
Bu aralık için RESIZE özelliğini kullanın.
Kod:
Alt Resize_Example () Aralık ("A1"). Yeniden Boyutlandır (End Sub
RESIZE'ın ilk argümanı Satır Boyutu olduğundan, verilerin 3 satırını seçmemiz ve 3'ün sayısal değerini sağlamamız gerekir.
Kod:
Sub Resize_Example () Range ("A1"). Resize (3, End Sub
Bir sonraki bağımsız değişken Sütun Boyutu'dur , bunun için sütunları nasıl seçmeniz gerektiğini girin. 3 sütun gireceğim.
Kod:
Sub Resize_Example () Range ("A1"). Resize (3,3) End Sub
Yeniden boyutlandırma tamamlandığında, bu aralıkla yapmamız gerekenleri sağlamamız gerekir. Başlamak için sadece "Seç" yöntemini seçeceğim.
Kod:
Sub Resize_Example () Range ("A1"). Resize (3, 3). End Sub seçin
Kodu çalıştırın ve kaç satır ve kaç sütun seçeceğini görün.
Yukarıda A1 hücresinden görebileceğiniz gibi, üç satır aşağı ve üç sağ sütun seçmiştir.
Örnek 2
Şimdi aşağıdaki VBA koduna bir göz atın.
Yukarıdaki kodda Satır Boyutu, verdiğimiz boş hücreler, ve için Sütun Boyutu, verdiğimiz 3.
Kod:
Sub Resize_Example () Range ("A1"). Resize (0, 3). End Sub seçin
Kodu çalıştırın ve kaç satır ve kaç sütun seçeceğini görün.
Gördüğünüz gibi, sadece etkin hücre satır, yani 1 seçmek etti st satır ve üç sütun. İçin Bunun nedeni, Satır Boyutu, verdiğimiz boş hücreleri, ve için sütun büyüklüğü, biz 3 tedarik var ve buna bağlı olarak, veri aralığı seçmiştir.
Şimdi aşağıdaki koda bakın.
Kod:
Sub Resize_Example () Range ("A1"). Resize (3). End Sub seçin
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
Şimdi, ilk hücreden, son kullanılan satırdan son kullanılan sütuna kadar olan aralığı yeniden boyutlandırıyoruz ve kullanılan yöntem seçimdir. Yani artık verilerinizin ne kadar büyük olduğu önemli değil. Son kullanılan satırı ve en son kullanılan sütunu bularak verileri dinamik olarak seçecektir.
Hatırlanacak şeyler
- VBA'daki yeniden boyutlandırma özelliği, aralığın boyutunu etkin hücreden (etkin hücre dahil) değiştirir.
- Sadece VBA'daki aktif hücreden kaç satır ve kaç sütun yeniden boyutlandırılacağını sağlamamız gerekiyor.
- RESIZE özelliği için negatif satır ve sütun numarası kullanamayız.
