VBA Kullanarak Aralığı Yeniden Boyutlandırma
Bu eğitim, cihazın nasıl kullanılacağını gösterecektir. Özelliği Yeniden Boyutlandır arasında Menzil Nesnesi Orijinal Range nesnesinden yeniden boyutlandırılmış yeni bir aralık döndürmek için değiştirmek için.
Sözdizimi
Yeniden Boyutlandır özelliğinin sözdizimi şöyledir:
| 1 | Range("A1").Resize (RowSize, ColumnSize) |
Burada Range(“A1”) başlangıç aralığınızdır.
RowSize ve ColumnSize sıfırdan büyük olmalıdır. Her giriş isteğe bağlıdır (örneğin, yalnızca sütun sayısını değiştirmek için RowSize'ı atlayabilirsiniz veya tam tersi).
Satır ve Sütun Sayısını Yeniden Boyutlandır
Aşağıdaki örnek, satır sayısını 10'a ve sütun sayısını 5'e çıkararak, bir A1 hücreli aralığı A1:D10 aralığına genişletir.
| 1 | Aralık("A1").Yeniden Boyutlandır(10, 5).Seç |
Veya daha yaygın olarak, yeniden boyutlandırılan aralığı bir değişkene atarsınız:
| 12 | Aralığı istenen boyuta yeniden boyutlandırın ve bir değişkene atayınset newRng = ActiveSheet.Range("A1").Resize(10, 5) |
Yalnızca Satır Sayısını Yeniden Boyutlandır
Aşağıdaki örnek yalnızca satır sayısını değiştirir:
| 12 | ' Yalnızca Satır Boyutunu değiştirin, Yeni Aralık $A$1:$A$10 olacaktırnewRng = rng.Resize(10) olarak ayarla |
Yalnızca Sütun Sayısını Yeniden Boyutlandır
Aşağıdaki örnek yalnızca sütun sayısını değiştirir:
| 12 | ' Yalnızca Sütun Boyutunu değiştirin, yeni Aralık $A$1:$E$1 olacaktırnewRng = rng.Resize(, 5) ayarla |
Üstbilgiyi Hariç Tutmak için Tablo Aralığını Yeniden Boyutlandır
Aktif sayfada başlık satırı olan bir tablonuz varsa, kod önce tüm tabloyu seçecek, ardından Range.Offset yöntemini kullanarak başlığı hariç tutmak için bir satır aşağı inecektir. Ardından, boyutu bir satır azaltmak için Range.Resize özelliğini kullanır.
| 1234567891011 | Alt SelectTableData()' **ÖNEMLİ**' Makroyu çalıştırmadan önce tablonun herhangi bir hücresine tıklayınOfset'i kullanarak bir satır aşağı gidin ve ardından aralık boyutunu bir satır azaltınSet tbl = ActiveCell.CurrentRegion.Offset(1, 0).Resize(tbl.Rows.Count - 1, _tbl.Columns.Count)' Başlık satırı hariç veriler seçilditbl.Adres.SeçAlt Bitiş |
Aralığa 2-B Dizi Yaz
Diğer bir yaygın kullanım, bir sayfaya 2 boyutlu bir dizi yazmaktır. Yazılacak aralığın, normalde önceden bilinmeyen dizinin boyutuyla eşleşmesi gerektiğinden, çıktı aralığını ayarlamak için Resize yöntemi kullanılır.
Aşağıdaki örnek, aktif sayfadaki A1:E10 aralığındaki verileri bir diziye okuyacak ve diziyi A1 hücresinden başlayarak 'Çıktı' sayfasına yazacaktır:
| 123456 | Alt WriteArray()' Verileri bir diziye okuveri = Aralık("A1:E10").Değer' Çıkış aralığını yeniden boyutlandırın ve diziyi yazınWorksheets("Output").Range("A1").Resize(UBound(veri, 1), UBound(veri, 2)).Value = dataAlt Bitiş |
Yazan: Vinamra Chandra
