Bu eğitim, VBA'da tüm satırların veya sütunların nasıl seçileceğini ve bunlarla nasıl çalışılacağını gösterecektir.
İlk önce tüm satırların ve sütunların nasıl seçileceğini ele alacağız, ardından satır ve sütunların nasıl değiştirileceğini göstereceğiz.
Tüm Satırları veya Sütunları Seçin
Tek Satır Seç
ile bir satırın tamamını seçebilirsiniz. Satırlar Nesnesi bunun gibi:
1 | Satırlar(5).Seç |
Veya kullanabilirsiniz Tüm satır ile birlikte Menzil veya Hücreler Nesneler:
1 | Range("B5").EntireRow.Select |
veya
1 | Cells(5,1).EntireRow.Select |
Ayrıca Menzil Nesnesi özellikle bir Satıra atıfta bulunmak için:
1 | Aralık("5:5").Seç |
Tek Sütun Seç
Onun yerine Satırlar Nesnesi, kullan Sütunlar Nesne sütunları seçmek için Burada 3 numaralı sütuna başvurabilirsiniz:
1 | Sütunlar(3).Seç |
veya alıntılarla çevrili “C” harfi:
1 | Sütunlar("C").Seçin |
Onun yerine Tüm satır, kullanmak Tüm Sütun ile birlikte Menzil veya Hücreler Nesneler tüm sütunları seçmek için:
1 | Aralık("C5").TümSütun.Seçim |
veya
1 | Cells(5,3).EntireColumn.Select |
Ayrıca Menzil Nesnesi özellikle bir sütuna atıfta bulunmak için:
1 | Aralık("B:B").Seç |
Birden Çok Satır veya Sütun Seçin
Birden çok satır veya sütun seçmek, EntireRow veya EntireColumn kullanırken tamamen aynı şekilde çalışır:
1 | Range("B5:D10").EntireRow.Select |
veya
1 | Range("B5:B10").Tüm Sütun.Seç |
Ancak, Satırlar veya Sütunlar Nesnelerini kullandığınızda, satır numaralarını veya sütun harflerini tırnak içine almanız gerekir:
1 | Satırlar("1:3").Seçin |
veya
1 | Sütunlar("B:C").Seçin |
ActiveCell Satırını veya Sütununu Seçin
ActiveCell Satırını veya Sütununu seçmek için şu kod satırlarından birini kullanabilirsiniz:
1 | ActiveCell.EntireRow.Select |
veya
1 | ActiveCell.EntireColumn.Select |
Diğer Çalışma Sayfalarında Satırları ve Sütunları Seçin
Diğer çalışma sayfalarında Satır veya Sütun seçebilmek için önce çalışma sayfasını seçmelisiniz.
12 | Sayfalar("Sayfa2").SeçinSatırlar(3).Seçin |
Aynısı, diğer çalışma kitaplarındaki satırları veya sütunları seçerken de geçerlidir.
123 | Workbooks("Book6.xlsm").ActivateSayfalar("Sayfa2").SeçinSatırlar(3).Seçin |
Not: etkinleştir istenen çalışma kitabı aksine Sayfa Nesnesi, NS Çalışma Kitabı Nesnesi sahip değil Yöntem Seç.
Satır ve Sütun Seçimi Gerekli mi?
Ancak, (neredeyse?) Satırları veya Sütunları gerçekten seçmek asla gerekli değildir. Onlarla etkileşim kurmak için bir Satır veya Sütun seçmeniz gerekmez. Bunun yerine, Yöntemleri veya Özellikleri doğrudan Satırlara veya Sütunlara uygulayabilirsiniz. Sonraki birkaç bölüm, uygulanabilecek farklı Yöntemleri ve Özellikleri gösterecektir.
Satırlar veya Sütunlara başvurmak için yukarıda listelenen herhangi bir yöntemi kullanabilirsiniz.
Satır ve Sütunların Yöntemleri ve Özellikleri
Tüm Satırları veya Sütunları Sil
Satırları veya sütunları silmek için Yöntemi Sil:
1 | Satırlar("1:4").Sil |
veya:
1 | Sütunlar("A:D").Sil |
Satır veya Sütun Ekle
Kullan Yöntem Ekle satır veya sütun eklemek için:
1 | Satırlar("1:4").Ekle |
veya:
1 | Sütunlar("A:D").Insert |
Tüm Satırları veya Sütunları Kopyala ve Yapıştır
Mevcut Satıra veya Sütuna Yapıştır
Tüm satırları veya sütunları kopyalayıp yapıştırırken, mevcut bir satır/sütun üzerine yapıştırmak mı yoksa verilerinizi yapıştırmak için yeni bir satır/sütun eklemek mi istediğinize karar vermeniz gerekir.
Bu ilk örnekler, mevcut bir satır veya sütunun üzerine kopyalayıp yapıştıracaktır:
1 | Aralık("1:1").Aralığı Kopyala("5:5") |
veya
1 | Aralık("C:C").Aralığı Kopyala("E:E") |
Ekle ve Yapıştır
Bu sonraki örnekler, yeni eklenen bir satıra veya sütuna yapıştırılacaktır.
Bu, 1. satırı kopyalayacak ve mevcut satırları aşağı kaydırarak 5. satıra ekleyecektir:
12 | Aralık("1:1").KopyalaAralık("5:5").Ekle |
Bu, C sütununu kopyalayacak ve mevcut sütunları sağa kaydırarak E sütununa ekleyecektir:
12 | Aralık("C:C").KopyalaAralık("E:E").Ekle |
Satırları ve Sütunları Gizle / Göster
Satırları veya sütunları gizlemek için Gizli Özellikler True'ya. Satırları veya sütunları gizlemek için False'ı kullanın:
12345 | 'Satırları GizleRows("2:3").EntireRow.Hidden = True'Satırları GösterRows("2:3").EntireRow.Hidden = False |
veya
12345 | 'Sütunları GizleColumns("B:C").EntireColumn.Hidden = True'Sütunları GösterColumns("B:C").EntireColumn.Hidden = False |
Satırları ve Sütunları Grupla / Grubu Çöz
Satırları (veya sütunları) Gruplamak istiyorsanız, bunun gibi bir kod kullanın:
12345 | 'Grup SatırlarıSatırlar("3:5").Grup'Grup SütunlarıSütunlar("C:D").Grup |
Gruplamayı kaldırmak için bu kodu kullanın:
12345 | 'Satırların Grubunu ÇözSatırlar("3:5").Grubu çöz'Sütunların Grubunu ÇözSütunlar("C:D").Grubu Çöz |
Bu, tüm "gruplandırılmış" anahat düzeylerini genişletecektir:
1 | ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8 |
ve bu, tüm anahat düzeylerini daraltacaktır:
1 | ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1 |
Satır Yüksekliğini veya Sütun Genişliğini Ayarla
Sütun genişliğini ayarlamak için bu kod satırını kullanın:
1 | Columns("A:E").ColumnWidth = 30 |
Satır yüksekliğini ayarlamak için bu kod satırını kullanın:
1 | Satırlar ("1:1"). Satır Yüksekliği = 30 |
Otomatik Sığdır Satır Yüksekliği / Sütun Genişliği
Bir sütunu otomatik sığdırmak için:
1 | Sütunlar("A:B").Otomatik Sığdır |
Bir satırı otomatik sığdırmak için:
1 | Satırlar("1:2").Otomatik Sığdır |
Diğer Çalışma Sayfalarında veya Çalışma Kitaplarında Satırlar ve Sütunlar
Diğer çalışma sayfalarındaki satırlar ve sütunlarla etkileşim kurmak için aşağıdakileri tanımlamanız gerekir: Sayfa Nesnesi:
1 | Sayfalar("Sayfa2").Satırlar(3).Insert |
Benzer şekilde, diğer çalışma kitaplarındaki satırlar ve sütunlarla etkileşim kurmak için, aynı zamanda Çalışma Kitabı Nesnesi:
1 | Workbooks("book1.xlsm").Sheets("Sheet2").Rows(3).Insert |
Aktif Satır veya Sütun Alın
Etkin satırı veya sütunu almak için Sıra ve Sütun Özellikleri arasında ActiveCell Nesnesi.
1 | MsgBox ActiveCell.Row |
veya
1 | MsgBox ActiveCell.Column |
Bu aynı zamanda ile çalışır Menzil Nesnesi:
1 | MsgBox Aralığı ("B3"). Sütun |