Excel'de Aktif Hücreden Aralık Seçmek için VBA Nasıl Kullanılır (3 Yöntem)

Hugh West

20-08-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Size göstereceğiz 3 yöntemleri Excel VBA için aralık seçin gelen aktif hücre Bunu göstermek için, aşağıdaki özelliklere sahip bir veri kümesi seçtik 3 sütun : " İlk İsim ", " Soyadı ", ve " E-posta ". Bir tane seçeceğiz hücre ve kullanarak Excel VBA aralığını şuradan seçeceğiz hücre .

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

Etkin Hücre.xlsm'den Aralık Seç

Excel'de VBA Kullanarak Etkin Hücreden Aralık Seçmenin 3 Yolu

1. Aktif Hücreden Boş Olmayan Son Hücreye Kadar Aralık Seçmek için VBA Kullanma

İlk yöntem için, aşağıdaki yöntemi kullanacağız Aralık.Son mülk.

Burada, kodumuzu bir Modül . Yukarı getirmek için Modül pencere, şunları yapın-

Adımlar:

  • İlk olarak Geliştirici sekmesi>>> seçin Visual Basic .

Bu Visual Basic penceresi görünecektir.

  • Son olarak Ekleme >>> seçin Modül .

Bu, aşağıdakileri getirecektir Modül Pencere.

1.1. End(xlUp) Özelliğini Kullanma

Bu bölümde, aşağıdaki öğeleri seçeceğiz aralık yukarı doğru sonuncusuna kadar boş olmayan hücre bizim aktif hücre .

Adımlar:

  • İlk olarak, aşağıdaki Modül Pencere.
  • İkinci olarak, tip aşağıdaki kodu girin. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Arıyoruz Alt Prosedür Yukarı . O zaman biz de aralık . İlk değer bizim aktif hücre Son değer ActiveCell.End(xlUp) . Son olarak, biz de aralık ile Menzil . Seçiniz yöntem.

  • Üçüncüsü, Kaydet ve pencereyi kapatın.
  • Bundan sonra, şunları seçin hücre C6 . Bu hücre bizim aktif hücre .

Şimdi, biz yukarı getireceğiz Makro pencere. Bunu yapmak için-

  • Bu kitaptan Geliştirici sekmesi>>> seçin Makrolar .

Bundan sonra Makro iletişim kutusu görünecek.

  • Ardından, " Yukarı " adlı kitabından Makro adı: ".
  • Son olarak Koşmak .

Bunu görebiliyoruz. seçilmiş ve hücre aralığı C4:C6 .

Daha fazlasını okuyun: Excel VBA: Dinamik Aralığı Başka Bir Çalışma Kitabına Kopyalama

1.2. End(xlDown) Özelliğinin Dahil Edilmesi

Bu bölümde, aşağıdaki öğeleri seçeceğiz aralık aşağı doğru bizim aktif hücre .

Adımlar:

  • İlk olarak, aşağıdaki Modül Pencere.
  • İkinci olarak, tip aşağıdaki kodu girin. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Arıyoruz Alt Prosedür Aşağı . O zaman biz de aralık . İlk değer bizim aktif hücre Son değer ActiveCell.End(xlDown) . Son olarak, biz de aralık ile Menzil . Seçiniz yöntem.

  • Üçüncüsü, Kaydet ve pencereyi kapatın.
  • Bundan sonra, şunları seçin hücre C6 Bu bizim aktif hücre .

  • Daha sonra Makro iletişim kutusu .
  • Seçiniz " Aşağı ".
  • Son olarak Koşmak .

Böylece, biz seçilmiş a aralık bizim aktif hücre kullanarak Excel VBA .

Daha fazlasını okuyun: Boş Hücreye Kadar Aralıkta Döngü Oluşturmak için Excel VBA (4 Örnek)

Benzer Makaleler

  • Excel VBA: Aralıktaki Sütunlar Arasında Döngü (5 Örnek)
  • Excel'de Bir Aralıktaki Her Satır için VBA Nasıl Kullanılır
  • Excel Makrosu: Dinamik Aralık ile Birden Çok Sütunu Sıralama (4 Yöntem)
  • 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)

1.3. End(xlToLeft) Özelliğinin Uygulanması

Bu bölümde, aşağıdaki öğeleri seçeceğiz aralık için Sol bizim aktif hücre .

Adımlar:

  • İlk olarak, aşağıdaki Modül Pencere.
  • İkinci olarak, tip aşağıdaki kodu girin. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Arıyoruz Alt Prosedür Sola doğru . O zaman biz de aralık . İlk değer bizim aktif hücre Son değer ActiveCell.End(xlToLeft) . Son olarak, biz de aralık ile Menzil . Seçiniz yöntem.

  • Üçüncüsü, Kaydet ve pencereyi kapatın.
  • Bundan sonra, şunları seçin hücre D7 Bu bizim aktif hücre .

  • Daha sonra Makro iletişim kutusu .
  • Seçiniz " Sola doğru ".
  • Son olarak Koşmak .

Böylece, biz seçilmiş a aralık bizim aktif hücre kullanarak Excel VBA .

1.4. End(xlToRight) Özelliğinin Uygulanması

Bu bölümde, aşağıdaki öğeleri seçeceğiz aralık için doğru bizim aktif hücre .

Adımlar:

  • İlk olarak, aşağıdaki Modül Pencere.
  • İkinci olarak, tip aşağıdaki kodu girin. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Arıyoruz Alt Prosedür ToRight . O zaman biz de aralık . İlk değer bizim aktif hücre Son değer ActiveCell.End(xlToRight) . Son olarak, biz de aralık ile Menzil . Seçiniz yöntem.

  • Üçüncüsü, Kaydet ve pencereyi kapatın.
  • Bundan sonra, şunları seçin hücre C8 Bu bizim aktif hücre .

  • Daha sonra Makro iletişim kutusu .
  • Seçiniz " ToRight ".
  • Son olarak Koşmak .

Böylece, biz seçilmiş a aralık bizim aktif hücre kullanarak Excel VBA .

2. Excel'de VBA Kullanarak Etkin Hücreden Aralık Seçmek için VBA Range.Offset Özelliğini Kullanma

İkinci yöntem için, aşağıdaki VBA Aralık.Ofset özelliğini seçmek için aralık bizim aktif hücre .

Adımlar:

  • İlk olarak, tip aşağıdaki kodu Modül Pencere. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Biz kendi Alt Prosedür UsingOffset . O zaman biz de aralık . İlk değer bizim aktif hücre Son değer ActiveCell.Ofset (1,2) . ile Ofset özelliği Taşınıyoruz. 1 sıra aşağı ve 2 sütun doğru . Son olarak, biz de aralık ile Menzil . Seçiniz yöntem.

  • İkinci olarak, Kaydet ve pencereyi kapatın.
  • Bundan sonra, şunları seçin hücre B8 Bu bizim aktif hücre .

  • Daha sonra Makro iletişim kutusu .
  • Seçiniz " UsingOffset ".
  • Son olarak Koşmak .

Sonuç olarak, biz seçilmiş a aralık bir şey yok. aktif hücre Dahası, son adım böyle görünmelidir.

Daha fazlasını okuyun: Excel VBA: Değerleri Olan Hücre Aralıklarını Alma (7 Örnek)

3. CurrentRegion Özelliğini Kullanarak Excel'de VBA Kullanarak Etkin Hücreden Aralık Seçme

Son yöntem için, aşağıdaki Range.CurrentRegion mülk.

Adımlar:

  • İlk olarak, tip aşağıdaki kodu Modül Pencere. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Arıyoruz Alt Prosedür cBölge . O zaman biz de aralık . ile GüncelBölge özelliğini seçtiğimizde aralık kadar boş hücre . Son olarak, biz de aralık ile Menzil . Seçiniz yöntem.

  • İkinci olarak, Kaydet ve geri dön Excel levha.
  • Bundan sonra, şunları seçin hücre C10 Bu bizim aktif hücre .

  • Daha sonra Makro iletişim kutusu .
  • Seçiniz " cBölge ".
  • Son olarak Koşmak .

Böylece, biz seçilmiş ve aralık kadar boş hücre .

Uygulama Bölümü

Her yöntem için uygulama veri setleri sağladık. Excel Dosya.

Sonuç

Size gösterdik 3 yöntemleri Excel VBA aralık seçin gelen aktif hücre Adımları anlamakta herhangi bir sorunla karşılaşırsanız, aşağıya yorum yapmaktan çekinmeyin. Okuduğunuz için teşekkürler, mükemmel olmaya devam edin!

Önceki yazı Tarihi Metne Dönüştürme YYYYMMDD (3 Hızlı Yol)
Sonraki Gönderi Excel'de VBA DIR Fonksiyonu Nasıl Kullanılır (7 Pratik Örnek)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.