Excel VBA ile Değişken Satır ve Sütunlu Aralık Nasıl Kullanılır

Hugh West

16-10-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Hücreleri seçerek biçimlendirmek ve aynı zamanda büyük verilerle çalışmak istediğinizde zaman alıcıdır. VBA Bunu kolayca yapmak için programlayabiliriz. Bu eğitimde, size nasıl kullanılacağını göstereceğiz değişken satır ve değişken sütun ile bir aralıkta Excel VBA .

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

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

VBA.xlsm ile Değişken Satır ve Sütun

5 Excel VBA ile Değişken Satır ve Sütunlu Aralık Kullanmanın Uygun Yolları

Bir sonraki bölümde şunları göstereceğiz 5 yaratmanın yolları değişken satırlar ve sütunlar Ek olarak, bunları biçimlendirmek veya herhangi bir özelleştirme uygulamak için nasıl kullanacağınızı göstereceğiz. değişken aralık Görevi kullanmak için örnek bir veri seti aşağıdaki resimde gösterilmiştir.

1. Excel VBA ile Değişken Satır Uygulayarak Belirli Bir Aralığı Biçimlendirme

Diyelim ki, bir değişken aralık için başvurarak değişken satır numarası . aralığı seçeceğiz B5:C10 ve uygulamak yazı tipi rengi ( Bordo Bunu yapmak için aşağıdaki basit adımları izleyin.

♠ Adım 1: Bir VBA Modülü Oluşturun

  • Her şeyden önce, basın Alt + F11 başlatmak için VBA Makro .
  • Tıklayın üzerinde Ekle.
  • Ardından, şunları seçin Modül .

♠ Adım 2: Bir VBA Kodu Yazın

  • Aşağıdakileri yazın VBA kodları. 
 Sub Variable_row_Select() 'satır numarası için bir değişken bildir Dim Row_Number As Integer 'Bir Giriş kutusu girin, satır numarası için 10 yazın Row_Number = InputBox("Satır numarasını yazın") 'Veri içeren ilk 5 satırı seçmek için 'row_num' değişkenini ekleyin Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

♠ Adım 3: Programı Çalıştırın

  • İlk olarak, Kaydet programını seçin ve F5 koşmak için.
  • Bu nedenle Giriş kutusu görünecektir, ve yazın 10 olarak sıra numarası .

  • Son olarak, tuşuna basın Girin görmek için aralık ile ( Sıra 5 , Sütun 2 ) ile ( Değişken Satır 10 , Sütun 3 ) olacak seçilmiş .

♠ Adım 4: Aralığa Yazı Tipi Rengi Uygulayın

  • Eklemek için yazı tipi rengi seçilen aralık , aşağıdakileri yapıştırın VBA kodları . 
 Sub Variable_row_Font() 'satır numarası için bir değişken bildir Dim Row_Number As Integer 'Bir Giriş kutusu girin, satır numarası için 10 yazın Row_Number = InputBox("Satır numarasını yazın") 'Veri içeren ilk 6 satırı seçmek için 'row_num' değişkenini ekleyin Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Yazı tipine bordo renk girin With Selection .Font.Color = RGB(128, 0, 0)End With End Sub

♠ Adım 5: Bir Satır Numarası Yazın

  • Tip a sıra numarası ( 10 ) içinde Giriş kutusu .
  • Tıklayın TAMAM. .

  • Bu nedenle seçilen aralık olacak renkli aşağıdaki resimde gösterildiği gibi.

Daha fazlasını okuyun: Excel'de Bir Aralık Değişkenini Seçime Ayarlamak için VBA Nasıl Kullanılır (5 Yöntem)

2. Excel VBA ile Değişken Satır Uygulayarak Dinamik Aralığı Özelleştirme

Kullandığınız aralık o kadar büyükse satır numarasını ayırt edemezsiniz, şu komutu kullanmanız gerekebilir son kullanılan satır senin gibi değişken satır Bunu yapmak için, aşağıda özetlenen adımları izleyin.

♠ Adım 1: Bir VBA Kodu Girin

  • Seçiniz yeni bir Modül bir şey yok. Ekleme
  • Yeni Modül , yaz aşağıdaki VBA programı . 
 Sub Variable_Dynamic_Row() 'satır numarası için bir değişken bildir Dim Last_Used_Row As Integer 'Değişkeni kullanılan aralığa tanımlayın Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Değişkeni aralıktaki geçerli son satırı seçmek için uygulayın Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

♠ Adım 2: Seçimi Alın

  • Programı çalıştırdıktan sonra aralık olacak seçilmiş kadar son kullanılan Sıra.

♠ Adım 3: Yazı Tipi Rengi Uygulama

  • için işaretle ve seçilen aralık veya Düzenle , macun aşağıdaki VBA kodları . 
 Sub Variable_Dynamic_Row() 'satır numarası için bir değişken bildir Dim Last_Used_Row As Integer 'Kullanılan aralığa değişken tanımla Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Değişkeni aralıktaki geçerli son satırı seçmek için uygula Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Adım 4: Nihai Sonuç

  • Sonunda, Kaydet program ve koşmak tuşuna basarak F5 .
  • Sonuç olarak, menziliniz ile son kullanılan satır renk ile biçimlendirilmiştir.

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

Benzer Okumalar

  • Excel'de Bir Aralıktaki Her Satır için VBA Nasıl Kullanılır
  • Excel'de Bir Aralıktaki Satırlar ve Sütunlar Arasında Döngü Oluşturmak için VBA (5 Örnek)
  • Boş Hücreye Kadar Aralıkta Döngü Oluşturmak için Excel VBA (4 Örnek)
  • Excel VBA'da Aralığı Diziye Dönüştürme (3 Yol)
  • Excel'de Aktif Hücreden Aralık Seçmek için VBA Nasıl Kullanılır (3 Yöntem)

3. Excel VBA ile Değişken Sütun Uygulayarak Belirli Bir Aralığı Biçimlendirme

Benzer şekilde değişken satırlar başvurabilirsiniz değişken sütunlar ile Excel VBA . B5 ( Sıra 5 , Sütun 2 ) hücresi ilk hücre içinde menzil, ve Sıra 8 bu son sıra aralıkta; son sütun bu değişken sütun uygulamak için aşağıdaki prosedürleri izleyin değişken sütun .

♠ Adım 1: Bir VBA kodu yazın

  • Yeni bir Modül , yaz aşağıdaki VBA kodu . 
 Sub Variable_Column_Font() 'satır numarası için bir değişken bildir Dim Column_num As Integer 'Bir Giriş kutusu girin, Sütun numarası için 5 yazın Column_num = InputBox("Sütun numarasını yazın") 'Veri içeren ilk 5 Sütunu seçmek için 'Column_num' değişkenini ekleyin Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Yazı tipine bordo renk girin With Selection .Font.Color =RGB(128, 0, 0) End With End Sub

♠ Adım 2: Programı Çalıştırın

  • için koşmak tuşuna basarak programı F5 sonra tasarruf .
  • Bu nedenle, aşağıdaki sonuçları aşağıdaki gibi göreceksiniz seçi̇lmi̇ş hücreler aralıktır B5:E8 .

4. Excel VBA ile Değişken Sütun Uygulayarak Dinamik Aralığı Özelleştirme

Bir öncekine ek olarak, aşağıdakileri özelleştirebilirsiniz değişken sütun dinamik olarak gerçekleştirmek için. artış içinde veri sütun bu olacak ekle için seçim Bunu yapmak için aşağıdaki basit talimatları izleyin.

♠ Adım 1: VBA Kodunu Yapıştırın

  • Yapıştır aşağıdaki VBA kodları yeni bir Modül . 
 Sub Variable_Dynamic_Column() 'sütun numarası için bir değişken tanımlayın Dim lastColumn As Integer 'Değişkeni kullanılan aralığa tanımlayın lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'Değişkeni aralıktaki son sütunu seçmek için uygulayın Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'Seçilen hücrelerin yazı tipini Bordo ile renklendirin With Selection .Font.Color = RGB(128, 0,0) End With End Sub

♠ Adım 2: Programı çalıştırın

  • İlk olarak, Kaydet programını seçin ve F5 koşmak için.
  • Sonuç olarak, aralık seçilir ve şu değere kadar biçimlendirilir son kullanılan sütun çalışma sayfasında.

Daha fazlasını okuyun: Excel Makrosu: Dinamik Aralık ile Birden Çok Sütunu Sıralama (4 Yöntem)

5. Excel VBA ile Hem Değişken Satıra Hem de Değişken Sütuna Sahip Bir Aralık Oluşturun

Önemli olan, her ikisini de kullanabilirsiniz değişken satırlar ve değişken sütunlar Aralık seçimimizdeki ilk hücre B5 ( Sıra 5, Sütun 2 ) ve son aralık seçimimize göre değişecektir. Görevi gerçekleştirmek için aşağıdaki özetlenen adımları izleyin.

♠ Adım 1: Bir VBA Kodu Yazın

  • İlk olarak, yaratmak yeni bir Modül .
  • O halde, yaz aşağıdaki VBA kodları . 
 Sub Variable_Column_Row() 'satır numarası için bir değişken bildirin Dim Row_Number As Integer 'sütun numarası için bir değişken bildirin Dim Column_num As Integer 'Değişkenleri tanımlayın - satır numarası için 8 ve sütun için 4 yazın Row_Number = InputBox("Satır numarasını yazın") Column_num = InputBox("Sütun numarasını yazın") 'Aralıktaki satırları ve sütunları seçmek için değişkeni uygulayın Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Adım 2: Satır Numarasını Ekleyin

  • Tip herhangi bir sıra numarası .

♠ Adım 3: Sütun Numarasını Ekleyin

  • Tip herhangi bir sütun numarası .

♠ Adım 4: Nihai Sonuçları Alın

  • Sonuç olarak, seçtiğiniz gibi ( Sıra , Sütun ) = ( 8,5 ), aşağıdaki resimde gösterildiği gibi nihai sonucu elde edeceksiniz.

Sonuç

Son olarak, umarım artık değişken satır ve sütunlarla aralığı nasıl kullanacağınızı anlamışsınızdır Excel VBA Tüm bu stratejiler, verileriniz eğitilirken ve uygulanırken gerçekleştirilmelidir. Uygulama kitabını inceleyin ve öğrendiklerinizi uygulayın. Cömert desteğiniz sayesinde bu gibi programları sunmaya devam ediyoruz.

Herhangi bir sorunuz varsa, lütfen bizimle iletişime geçmekten çekinmeyin. Lütfen düşüncelerinizi aşağıdaki yorumlar bölümünde paylaşın.

Bu Exceldemy personelimiz en kısa sürede size geri dönüş yapacaktır.

Bizimle kalın ve öğrenmeye devam edin.

Önceki yazı Excel'i Boru Sınırlayıcı ile Metin Dosyasına Dönüştürme (2 Yol)
Sonraki Gönderi Excel'de Çoklu Filtreler Nasıl Uygulanır (6 Uygun Yöntem)

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.