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

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Özet

Microsoft Excel, listenin sonuna yazdığınız yeni verileri, önceki satırlarla eşleşecek şekilde otomatik olarak biçimlendirir. Ayrıca, listeyi programlı olarak biçimlendirebilirsiniz. Bu makalede, seçimdeki diğer satırları gölgelendirebilirsiniz.

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 ve önceki sürümlerinde kullanılabilen desenleri görmek için, Biçim menüsünden Hücreler 'i tıklatın ve sonra da desenler sekmesini tıklatın.

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

  1. Giriş sekmesinde, hücreler grubunda Biçim 'i tıklatın. Ardından Hücreleri Biçimlendir'e tıklayın.
  2. Hücreleri Biçimlendir Iletişim kutusunda Dolgu sekmesini tıklatın.

Desen açılan listesinde kullanılabilir desenler görüntülenir. Aşağıdaki makroda, sabit adı, xlGray16 tarafından kullanılan desen, ilk satırdaki sağdan beşinci bir addır.

Aşağıdaki makro geçerli seçimin her iki satırındaki desenini 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ıktaki satırlarda çalışır. Makroyu çalıştırdıktan sonra yeni bir veri satırı eklerseniz, makroyu tüm yeni veri satırlarıyla birlikte çalıştırmanız gerekir.

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

Koşullu biçimlendirme kullanarak diğer satırlarıbiçimlendirme hakkında daha fazla bilgi için bkz.

Otomatik biçimlendirme menü komutunu kullanarak da listeyi biçimlendirebilirsiniz. Excel 2003 ve Microsoft Excel 2002 ' de, otomatik biçimlendirme menüsü komutu Biçim menüsündedir. Excel 2007 'de, hızlı erişim araç çubuğu 'na otomatik biçimlendirme 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ştirme'ye tıklayın.
  3. Seçme komutlarınınaltındaki tüm komutları tıklatarak seçin.
  4. Otomatik biçimlendirme'ye tıklayın, Ekle'ye tıklayın ve sonra da Tamam 'atıklayın.