Bu eğitimde şunlar gösterilecektir 8 kullanım örnekleri VBA seçmek için Kullanılmış Aralık excel'de bir sütunda. Genel olarak KullanılmışAralık özelliği, bir çalışma sayfasının üzerinde veri bulunan kısmını temsil eder. Örnekleri net bir şekilde göstermek için KullanılmışAralık tüm örnekler için belirli bir veri kümesindeki özellik.

Alıştırma Çalışma Kitabını İndirin

Alıştırma çalışma kitabını buradan indirebiliriz.

8 Sütunda UsedRange Seçmek için Kolay VBA Örnekleri

Aşağıdaki resimde, tüm örnekler için kullanacağımız veri kümesini görebiliriz. Veri kümesi şu isimleri içerir Satış Elemanları , onların Konum , Bölge, ve ' Toplam Tutar Bu veri kümesinde, kullanılan aralık başlığı da içerecek şekilde dikkate alınacaktır. Dolayısıyla, aşağıdaki veri kümesinde kullanılan aralık ( B2:E15 ).

1. Excel'de VBA ile Sütunda KullanılanAralığı Seçme

İlk ve en önemlisi, veri kümemizdeki tüm sütunları seçeceğiz. Bunu yapmak için VBA seçin KullanılmışAralık Bu yöntemi gerçekleştirmek için gerekli adımları görelim.

ADIMLAR:

• Başlamak için, sağ tıklayın adlı etkin sayfada Select_Columns '.
• Buna ek olarak, ' Kodu Görüntüle '.

• Ardından, yukarıdaki eylem boş bir VBA Bu kod penceresini ayrıca şu tuşa basarak da alabiliriz Alt + F11 .
• Ardından, bu kod penceresine aşağıdaki kodu yazın:

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

• Bundan sonra, aşağıdaki Koşmak veya F5 tuşuna basarak kodu çalıştırın.

• Son olarak, aşağıdaki görüntüdeki gibi bir sonuç elde ederiz. Veri kümemizdeki sütunlarda kullanılan aralığın şimdi seçildiğini görebiliriz.

2. Sütundaki UsedRange'in Tamamını Kopyalamak için VBA Kullanın

İkinci örnekte şunları kullanacağız VBA sütunlarında kullanılan aralığın tamamını veri kümemizden kopyalamak için kullanılır. Genellikle veri kümemizden belirli bir bölgeyi kopyalamak için bu yöntemi kullanırız. Bu yöntemi gerçekleştirmek için aşağıdaki adımları izlememiz gerekir.

ADIMLAR:

• İlk olarak, etkin çalışma sayfası sekmesine gidin ' Anlaşıldı '.
• Sıradaki, sağ tıklayın sekmesine tıklayın ve ' Kodu Görüntüle '.

• Boş bir sayfa açacak VBA Bu pencereyi elde etmenin bir başka yolu da Alt + F11 klavyeden.
• Ardından, aşağıdaki kodu bu kod penceresine ekleyin:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Şimdi, kodu çalıştırmak için Koşmak veya F5 Anahtar.

• Son olarak, sonucu aşağıdaki gibi görebiliriz. Ayrıca, kullanılan aralığın etrafında bir sınır çizgisi görebiliriz. Bu, kodun verileri bu sınırın içine kopyaladığını gösterir.

Daha Fazla Oku: Excel VBA: Dinamik Aralığı Başka Bir Çalışma Kitabına Kopyalama

3. VBA Kullanarak UsedRange'deki Sütun Sayısını Sayma

Üçüncü örnekte, excel kullanarak veri kümemizdeki sütun sayısını sayacağız VBA seçin Kullanılmış Aralık Bu örnek, veri kümemizdeki kullanılan aralık içindeki toplam sütun sayısını bir mesaj kutusunda döndürecektir. Bu yöntemi çalıştırmak için aşağıdaki adımları izleyin.

ADIMLAR:

• İlk olarak, ' Count_Columns '.
• İkinci olarak, sağ tıklayın aktif sayfa adının üzerine tıklayın ve ' Kodu Görüntüle '.

• Yukarıdaki komut boş bir VBA Etkin çalışma sayfası için kod penceresi. Kod penceresini şu tuşa basarak da alabiliriz Alt + F11 klavyeden.
• Üçüncü olarak, boş kod penceresine aşağıdaki kodu girin:

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• Ardından, aşağıdaki Koşmak veya F5 tuşuna basarak kodu çalıştırın.

• Son olarak, sonucu bir mesaj kutusunda alıyoruz. Kullanılan aralıktaki sütun sayısı 4 .

Daha Fazla Oku: Excel'de Verilerle Aralıktaki Satırları Saymak için VBA Nasıl Kullanılır (5 Makro)

4. Kullanılan Aralıktaki Son Sütun Sayısını Saymak için Excel VBA

Önceki yöntemde, kullanılan aralıktaki son sütunun numarasını çıkarmıştık. Ancak bu örnekte, kullanılan aralıktaki son sütunun numarasını tüm çalışma sayfasında VBA seçin KullanılmışAralık Bu eylemi gerçekleştirmek için izlememiz gereken adımları görelim.

ADIMLAR:

• Başlamak için, sağ tıklayın adlı etkin sayfada Son Sütun '.
• Ardından, ' Kodu Görüntüle '.

• Yani, yukarıdaki komut boş bir VBA Bu kod penceresini açmanın alternatif bir yolu da Alt + F11 .
• Bundan sonra, aşağıdaki kodu bu kod penceresine ekleyin:

 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub 

• Şimdi, üzerine tıklayın Koşmak veya F5 tuşuna basarak kodu çalıştırın.

• Sonunda, sonucumuzu bir mesaj kutusunda alırız. Kullanılan aralıktaki son sütun 5'inci çalışma sayfasının sütunu.

Benzer Okumalar

• Excel'de Bir Aralıktaki Her Satır için VBA Nasıl Kullanılır
• Excel'de Etkin Hücreden Aralık Seçmek için VBA Kullanın (3 Yöntem)
• Excel Makrosu: Dinamik Aralık ile Birden Çok Sütunu Sıralama (4 Yöntem)

5. VBA ile UsedRange'den Son Sütunun Son Hücresini Seçin

Beşinci örnekte, aşağıdakileri kullanacağız VBA seçin Kullanılmış Aralık özelliğini kullanarak bir excel sayfasındaki son sütunun son hücresini seçebilirsiniz. Bu örneği göstermek için, önceki veri kümemizle devam edeceğiz. Şimdi, bu yöntemi yapmak için adımlara bir göz atın.

ADIMLAR:

• İlk olarak, ' Last_Cell '.
• Sıradaki, sağ tıklayın seçeneğini seçin. Kodu Görüntüle '.

• Sonra, bir boşluk alıyoruz VBA kod penceresine basabiliriz. Alt + F11 bu kod penceresini açmak için.
• Bundan sonra, bu kod penceresine aşağıdaki kodu yazın:

 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub 

• Şimdi, kodu çalıştırmak için Koşmak veya F5 .

• Son olarak, sonucu aşağıdaki görüntüde görebiliriz. Son sütunun seçilen son hücresi hücredir E15 .

6. Excel VBA ile Seçili UsedRange'in Hücre Aralığını Bulma

Bu örnekte, aşağıdakileri uygulayacağız VBA bir excel çalışma sayfasında seçilen kullanılmış aralığın hücre aralığını bulmak için kullanacağız. VBA kodu, kullanılan aralıktaki tüm sütunlar için hücre aralığının yanı sıra kullanılan aralıktaki sütunun adresini de döndürür. Bu işlemi gerçekleştirmek için aşağıdaki adımları izleyin.

ADIMLAR:

• Başlangıçta, sağ tıklayın adlı etkin sayfa sekmesinde Hücre Aralığını Bul '.
• İkinci olarak, ' Kodu Görüntüle '.

• Boş bir sayfa açacak VBA Bu kod penceresini açmak için başka bir yöntem de Alt + F11 .
• Üçüncü olarak, bu kod penceresine aşağıdaki kodu girin:

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• Ardından, kodu çalıştırmak için Koşmak veya F5 Anahtar.

• Sonunda, aşağıdaki resimdeki gibi bir mesaj kutusu sonucu gösterir.

Benzer Okumalar

• Excel'de Bir Aralıktaki Satırlar ve Sütunlar Arasında Döngü Oluşturmak için VBA (5 Örnek)
• Excel VBA'da Aralığı Diziye Dönüştürme (3 Yol)

7. Boş Hücreleri Saymak için VBA UsedRange Özelliğini Ekleme

Bu örnekte, aşağıdakileri kullanacağız VBA seçin KullanılmışAralık özelliğini kullanarak bir excel sayfasındaki boş hücreleri sayabiliriz. Bazen veri kümemizin kullanılan aralığında boş hücreler olabilir. KullanılmışAralık Bu örneği gerçekleştirmek için gerekli adımları görelim.

ADIMLAR:

• Birincisi, sağ tıklayın adlı etkin sayfa sekmesinde Empty_Cells '.
• Ardından, ' Kodu Görüntüle '.

• Yukarıdaki eylem boş bir VBA Bu kod penceresini açmanın alternatif bir yolu da Alt + F11 .
• Ardından, bu kod penceresine aşağıdaki kodu ekleyin:

 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Kullanılan 4 sütundaki toplam kullanılan hücre sayısı " & d & _ " ve bunlardan " & _ j & " hücre(ler) boş." End Sub 

• Bundan sonra, üzerine tıklayın Koşmak veya F5 tuşuna basarak kodu çalıştırın.

• Son olarak, sonucu mesaj kutusunda alacağız. Mesaj kutusu, kullanılan aralığımızdaki toplam hücre ve boş hücre sayısını gösterecektir.

8. Excel'de Sütundaki İlk Boş Hücreyi Bulmak için VBA UsedRange

Son örnekte, excel'i kullanacağız VBA seçmek için Kullanılmış Aralık excel çalışma sayfamızdaki ilk boş hücreyi bulmak için sütundaki özellik. Bu yöntem, belirli bir sütunun ilk boş hücresini bulacaktır. Boş hücre her zaman veri kümesinin kullanılan aralığının dışında olacaktır. Bu nedenle, kullanılan aralıkta herhangi bir hücre boşsa veya boşsa, bu yöntemde dikkate alınmayacaktır. Şimdi, bu yöntemi gerçekleştirmek için aşağıdaki adımları izleyin.

ADIMLAR:

• Başlamak için, sağ tıklayın adlı etkin sayfa sekmesinde First_Empty '.
• Buna ek olarak, ' Kodu Görüntüle '.

• Boş bir sayfa açacak VBA kod penceresine de basabiliriz. Alt + F11 bu kod penceresini açmak için.
• Ayrıca, boşluğa aşağıdaki kodu yazın VBA kod penceresi:

 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub 

• Ardından, kodu çalıştırmak için Koşmak veya F5 Anahtar.

• Son olarak, yukarıdaki kod ' FirstEmptyCell ' hücre içinde E16 . sütununun ilk boş hücresidir. E veri kümesinin kullanılan aralığından sonra.

Daha Fazla Oku: Boş Hücreye Kadar Aralıkta Döngü Yapmak için Excel VBA (4 Örnek)

Sonuç

Özetle, bu eğitimde şunlar gösterilmektedir 8 kullanmak için örnekler VBA seçin KullanılmışAralık Becerilerinizi test etmek için, bu makalede kullanılan alıştırma çalışma sayfasını indirin. Herhangi bir sorunuz varsa lütfen aşağıdaki kutuya yorum yapmaktan çekinmeyin. Ekibimiz mesajınıza mümkün olan en kısa sürede yanıt vermeye çalışacaktır. Daha yenilikçi haberler için takipte kalın Microsoft Excel gelecekte çözümler.