Note: The other languages of the website are Google-translated. Back to English

Bir çalışma sayfasındaki tüm koşullu biçimlendirme kuralları nasıl yazdırılır?

Tüm koşullu biçimlendirme kurallarını bir çalışma sayfasındaki tıklayarak görüntülemek kolaydır. Anasayfa > Koşullu biçimlendirme > Kuralları Yönet Excel'de, ancak bu çalışma sayfasındaki tüm koşul biçimlendirme kurallarının nasıl yazdırılacağını biliyor musunuz? Bu makale, bu sorunu çözmek için bir VBA tanıtacaktır.

Bir çalışma sayfasındaki tüm koşullu biçimlendirme kurallarını yazdırın

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

ok mavi sağ balonBir çalışma sayfasındaki tüm koşullu biçimlendirme kurallarını yazdırın

Bir çalışma sayfasındaki tüm koşullu biçimlendirme kurallarını VBA ile yazdırmak için lütfen aşağıdaki adımları izleyin.

1. Koşullu biçimlendirme kurallarını yazdıracağınız belirtilen çalışma sayfasını açın ve düğmesine basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için anahtarları birlikte kullanın.

2. tıklayın Ekle > modülve ardından yeni modül penceresine VBA kodunun altına yapıştırın.

VBA: Etkin çalışma sayfasındaki tüm koşullu biçimlendirme kurallarını listeleyin

Sub M_snb()
Dim xRg As Range, xCell As Range
Dim xFormat As Object
Dim xFmStr, xFmAddress As String
Dim xDic As New Dictionary
Dim xSpArr, xOperatorArr
On Error Resume Next
Set xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If xRg Is Nothing Then Exit Sub
xDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"
If xSpArr.Count = 0 Then
xSpArr = Split("Cell Value|Expression|Color Scale|DataBar|Top 10|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
xOperatorArr = Split("xlBetween|xlNotBetween|xlEqual|xlNotEqual|xlGreater|xlLess|xlGreaterEqual|xlLessEqual", "|")
End If
For Each xCell In xRg
Set xFormat = xCell.FormatConditions(1)
xFmAddress = xFormat.AppliesTo.Address
If Not xDic.Exists(xFmAddress) Then
xDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrue
If Not IsEmpty(xFormat.Operator) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)
End If
If Not IsEmpty(xFormat.Formula1) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|'" & xFormat.Formula1
End If
End If
Next
If ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing Then
Sheets.Add.Name = "FmCondictionList"
End If
Sheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)
Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub

3. tıklayın Tools > Referanslar.

4. Referanslar - VBAProject iletişim kutusunda, lütfen Microsoft Komut Dosyası Çalışma Zamanı seçeneğini tıklayın ve OK buton. Ekran görüntüsüne bakın:

5. Şimdi modül penceresine dönüyorsunuz, lütfen F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

Şimdi "FmKoşulluListe"Etkin çalışma sayfasından önce oluşturulur ve eklenir. Ve bu çalışma sayfasında listelenen tüm koşullu biçimlendirme kurallarını alacaksınız.

6. tıklayın fileto > Print > Print koşullu biçimlendirme kurallarının listesini yazdırmak için.


ok mavi sağ balonİlgili yazılar:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (8)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu çalışmıyor. Sekmeyi oluşturur ancak koşullu biçimlendirme bilgilerini doldurmaz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Benim için bir sekme oluşturdu ve bilgileri doldurdu, ancak birçok koşullu biçimlendirme dahil edilmedi. Çalıştırdığımda 112 koşullu biçimlendirme kuralı ayarlamıştım ancak sekmede yalnızca 8 kayıt görüntüleniyordu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Benim için aynı - 7 koşullu biçimlendirme kuralından yalnızca 14'sini görüntüledi. Bunun için herhangi bir çözüm var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika çalışıyor, ancak tüm sekmeleri içeren bir döngü elde etmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
En iyi mauvais, bir pas de boucle dökmek için couvrir les cas ou un range aurait plusieurs format koşullları.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ne yazık ki çalışmıyor (excel 2013).
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi çalışıyor!
Daha önceki yorumlarla ilgili sadece iki not:
* Microsoft Scripting Library eklenmelidir, aksi takdirde 'Dim xDic As New Dictionary' yorumlanamaz
* Aynı Aralıkta tanımlanmış 1'den fazla kuralınız varsa, yalnızca ilki listelenir (kod kabuğu, 1'den xCell.FormatConditions.Count'a bir döngü ile genişletilir)

Çok teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
@Eagle tarafından yapılan yorumla ilgili olarak, kodu 'xCell.FormatConditions.Count' değerine dönecek şekilde değiştirdim ve daha fazla biçim koşulu aldım, ancak hepsini değil.
Bu değişikliğin, aynı hücre için farklı aralıklardaki biçimleri eklediği, ancak aynı hücre için farklı biçimlere sahip aynı aralıkları eklemediği görülüyor.
Bu ekstra biçimleri çıkaracak koda henüz aşina değilim.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır