Bu makalede, aşağıdakileri nasıl yapacağınızı öğreneceksiniz Ayar Aralığı içindeki hücreler, satırlar ve sütunlar için VBA Excel.

Çalışma Kitabını İndirin

Ücretsiz alıştırma Excel çalışma kitabını buradan indirebilirsiniz.

VBA.xlsm'de Aralık Ayarlama

VBA Aralık Nesnesi

Bu Menzil içinde nesne VBA Excel çalışma sayfası içinde tek bir hücre, birden çok hücre, satır, sütun içerebilir.

Hiyerarşisi Menzil nesnesi aşağıdaki gibidir.

Uygulama> Çalışma Kitabı> Çalışma Sayfası> Aralık

Bu şekilde beyan etmelisiniz Menzil içinde nesne VBA .

7 VBA Excel'de Aralık Ayarlama Örnekleri

Bu bölümde, tek bir hücrede, birden çok hücrede, tek satırda, birden çok satırda, tek sütunda, birden çok sütunda Aralık Ayarlama ve VBA Excel.

1. VBA'da Tek Bir Hücrede Aralık Ayarlama

Burada nasıl yapacağımızı göreceğiz Ayar Aralığı bir tek hücre ile VBA .

Adımlar:

• Basın Alt + F11 sekmesine gidin veya klavyenizde Geliştirici -> Visual Basic açmak için Visual Basic Düzenleyicisi .

• Açılır kod penceresinde, menü çubuğundan Insert -> Modül .

• Aşağıdaki kodu kopyalayın ve kod penceresine yapıştırın.

 Sub RangeOneCell() Range("B2").Value = "Merhaba Dünya" End Sub 

İşte,

B2 = değeri ayarlamak istediğimiz hücre. İhtiyacınız olan herhangi bir hücre referans numarasını ayarlayabilirsiniz.

Kodunuz artık çalışmaya hazır.

• Basın F5 klavyenizde veya menü çubuğundan Run -> Run Sub/UserForm üzerine de tıklayabilirsiniz. küçük Oynat simgesi makroyu çalıştırmak için alt menü çubuğunda.

Hücre B2 şimdi " Merhaba Dünya ".

Daha fazlasını okuyun: Excel'de Aralıktaki Her Hücre için VBA

2. VBA'da Birden Çok Hücrede Aralık Ayarlama

Burada nasıl yapacağımızı göreceğiz Ayar Aralığı içinde çoklu hücreler ile VBA .

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub RangeCells() Range("A1:D5").Value = "Merhaba!" End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ve tüm hücreler A1 için D5 Şimdi tut " Merhaba! "

3. VBA'da Tek Bir Satırda Aralık Ayarlama

Burada nasıl yapacağımızı göreceğiz Ayar Aralığı bir tek sıra ile VBA .

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(3).Value = "Hello!" End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ve sadece 3'üncü satırındaki tüm satırlardan A1 için D5 Şimdi tut " Merhaba! "

• Satırlar(3).Değer erişim sağlayan kodda 3'üncü belirli aralığın satırı A1:D5 .

4. VBA'da Birden Çok Satırda Aralık Ayarlama

Burada nasıl yapacağımızı göreceğiz Ayar Aralığı içinde çoklu satırlar ile VBA .

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(1).Value = "Merhaba!" iRow.Rows(3).Value = "Merhaba!" iRow.Rows(5).Value = "Merhaba!" End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ve 1. , 3'üncü ve 5'inci tüm satırlardan satırları A1 için D5 Şimdi tut " Merhaba! "

Benzer okumalar:

• Hücre Değerine Göre Aralık Seçme VBA (7 Yol)
• Excel'de VBA'nın Aralık Nesnesini Kullanın (5 Özellik)
• VBA Aralık Ofseti Nasıl Kullanılır (11 Yol)
• Excel'de Değişken Satır Numaralı VBA Aralığı (4 Örnek)

5. VBA'da Tek Sütunda Aralık Ayarlama

Burada nasıl yapacağımızı göreceğiz Ayar Aralığı bir tek sütun ile VBA .

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Hello!" End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ve sadece 2'nci sütunundaki tüm sütunlardan A1 için D5 Şimdi tut " Merhaba! "

• iCol.Columns(2).Value erişim sağlayan kodda 2'nci belirli aralığın sütunu A1:D5 .

6. VBA'da Birden Çok Sütunda Aralık Ayarlama

Burada nasıl yapacağımızı göreceğiz Ayar Aralığı içinde çoklu sütunlar ile VBA .

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Merhaba!" iCol.Columns(4).Value = "Merhaba!" End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ve 2'nci ve Dördüncü sütunlarından A1 için D5 Şimdi tut " Merhaba! "

7. VBA'da Komut Düğmesi aracılığıyla Aralık Ayarlama

Burada şunları nasıl yapacağımızı öğreneceğiz Ayar Aralığı kullanarak Komut Düğmesi içinde VBA .

Adımlar:

• Gitmek Geliştirici -> Ekle -> Komut Düğmesi .
  • Şunlara sahip olduğunuzdan emin olun Tasarım Modu açık.

• Sürükle etrafında Komut Düğmesi sayfanın içinde.

• Çift tıklama düğmesine bastığınızda sizi otomatik olarak oluşturulan kod penceresine götürecektir. VBA Alt prosedür kodu .

• Sub'ın içine kodunuzu yazın ve Kaydet.

• İlgili çalışma sayfasına geri dönün ve Komut Düğmesi . Kodunuza dayalı sonuç çalışma sayfasında görünecektir.

VBA Set Range'in Avantajları

• Uygulaması çok kolaydır.
• İçindeki argümanlar Menzil nesnesi sabit değildir. Dolayısıyla, argümanın değerlerini ihtiyaçlarımıza göre değiştirebiliriz.
• Argüman olarak 1'den fazla değer aktarılabilir.

Hatırlanması Gerekenler

• HÜCRELER mülkler VBA ayarlamak için de kullanılabilir. Menzil içinde VBA .
• Nesne değişkenleri, nesnenin referansı olarak SET

Sonuç

Bu makale size Excel'de Aralık Ayarlamanın nasıl yapıldığını gösterdi VBA makrosu. Umarım bu makale sizin için çok faydalı olmuştur. Konuyla ilgili her türlü soruyu sormaktan çekinmeyin.