Excel'de seçili aralıktaki diğer satırlara hücre gölgelendirme biçimi uygulamak için makro kullanma

• Şunlara uygulanır:

  Microsoft Excel

Özet

Microsoft Excel, listenin sonuna yazdığınız yeni verileri otomatik olarak önceki satırlarla eşleşecek şekilde biçimlendirir. Listeyi program aracılığıyla da biçimlendirebilirsiniz. Bu makale, bir seçimdeki diğer satırları gölgelendirmek için örnek bir Microsoft Visual Basic for Applications yordamı içerir.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Microsoft Office Excel 2003'te ve önceki sürümlerde kullanılabilen desenleri görmek için Biçim menüsünde Hücreler'e tıklayın ve ardından Desenler sekmesine tıklayın.

Microsoft Office Excel 2007'de kullanılabilen desenleri görmek için şu adımları izleyin:

1. Giriş sekmesinde, Hücreler grubunda Biçim'e tıklayın. Ardından Hücreleri Biçimlendir'e tıklayın..
2. Hücreleri Biçimlendir iletişim kutusunda Doldur sekmesine tıklayın.

Desen açılan listesinde kullanılabilir desenler görüntülenir. Aşağıdaki makroda kullanılan ve sabit adı xlGray16 olan desen, ilk satırın sağındaki beşinci düzendir.

Aşağıdaki makro, geçerli seçimin diğer tüm satırlarındaki deseni xlGray16 olarak ayarlar.

Örnek Visual Basic Yordamı

Sub ShadeEveryOtherRow()
    Dim Counter As Integer

   'For every row in the current selection...
    For Counter = 1 To Selection.Rows.Count
        'If the row is an odd number (within the selection)...
        If Counter Mod 2 = 1 Then
            'Set the pattern to xlGray16.
            Selection.Rows(Counter).Interior.Pattern = xlGray16
        End If
    Next

End Sub

Not

Bu makro yalnızca seçili aralığın satırlarında çalışır. Makroyu çalıştırdıktan sonra yeni veri satırları eklerseniz, tüm yeni veri satırları seçiliyken makroyu yeniden çalıştırmanız gerekir.

Bu işlem, koşullu biçimlendirme kullanılarak el ile de yapılabilir.

Koşullu biçimlendirme kullanarak diğer tüm satırları biçimlendirme hakkında daha fazla bilgi için bkz. Çalışma sayfasındaki alternatif satırlara gölgelendirme uygulama.

Listeyi Otomatik Biçim menü komutunu kullanarak da biçimlendirebilirsiniz . Excel 2003'te ve Microsoft Excel 2002'de Otomatik Biçim menüsü komutu Biçim menüsündedir. Excel 2007'de, Hızlı Erişim Araç Çubuğu'na Otomatik Biçim menü komutunu eklemeniz gerekir. Bunu yapmak için şu adımları uygulayın:

1. Microsoft Office Düğmesi'ne ve ardından Excel Seçenekleri'ne tıklayın.
2. Tasarım özelleştirmesi'ne tıklayın.
3. Komutları seçin altında Tüm Komutlar'ı seçmek için tıklayın.
4. Otomatik Biçim'e, Ekle'ye ve ardından Tamam'a tıklayın.