Excel'de doğrulama daireleriyle birlikte çalışma sayfası nasıl yazdırılır?
Bazı durumlarda, geçersiz verileri dikkat çekici hale getirmek için bunları daire içine alabiliriz. Ancak çalışma sayfasını bu doğrulama daireleriyle birlikte yazdırmak istediğinizde, daireler yazdırılmaz. Excel’de hiç böyle bir sorunla karşılaştınız mı? Bugün size bu sorunu çözebilecek bazı hızlı püf noktalarını göstereceğim.
Doğrulama dairelerini resim olarak yapıştırarak çalışma sayfasını yazdırma
VBA kodu kullanarak doğrulama daireleriyle çalışma sayfasını yazdırma
Doğrulama dairelerini resim olarak yapıştırarak çalışma sayfasını yazdırma
Excel'de doğrulama dairelerini doğrudan yazdıramazsınız; ancak Veri Aralığı'nı doğrulama daireleriyle birlikte kopyalayıp resim olarak yapıştırabilir ve ardından yazdırabilirsiniz.
1. Yazdırmak istediğiniz veri aralığını seçin.
2. Klavyeden kopyalamak için Ctrl + C tuşlarına basın, ardından bir Yeni çalışma sayfası'na gidin, bir hücreye tıklayın, sağ tıklayın ve şunu seçin: Özel Yapıştır > Resim. Ekran görüntüsüne bakın:
3. Böylece seçiminiz resim olarak yapıştırılır ve artık "Yeni çalışma sayfası"nı yazdırırken daireler sorunsuzca basılır.
VBA kodu kullanarak doğrulama daireleriyle çalışma sayfasını yazdırma
Veri Aralığı’nı resim olarak yapıştırmak istemiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.
1. Veri doğrulamasını ayarladıktan sonra, Excel’de Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresi'ne yapıştırın.
VBA kodu: Geçersiz verilere kırmızı daireler ekleme
Sub AddValidationCirclesForPrinting()
'Update 20140724
Dim Rng As Range
Dim WorkRng As Range
Dim xCount As Integer
Dim xShape As Shape
On Error Resume Next
Set WorkRng = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If WorkRng Is Nothing Then
Exit Sub
End If
xCount = 0
For Each Rng In WorkRng
If Not Rng.Validation.Value Then
Set xShape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height + 4)
xShape.Fill.Visible = msoFalse
xShape.Line.ForeColor.SchemeColor = 10
xShape.Line.Weight = 1.25
xCount = xCount + 1
xShape.Name = "InvalidData_" & xCount
End If
Next
Exit Sub
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; böylece geçersiz veriler kırmızı, oval şeklinde daireler içine alınır. Ekran görüntüsüne bakın:
4. Bu kırmızı daireleri içeren çalışma sayfasını yazdırmaya gittiğinizde, daireler de çıktıya dahil edilir.
Not:
Bu VBA koduyla oluşturulan daireler, Excel’in Doğrulama Dairelerini Temizle özelliğiyle kaldırılamaz. Daireleri silmek istiyorsanız lütfen aşağıdaki kodu uygulayın.
VBA kodu: Çalışma sayfasındaki doğrulama dairelerini kaldırma
Sub RemoveValidationCircles()
'Update 20140724
Dim xShape As Shape
For Each xShape In Application.ActiveSheet.Shapes
If xShape.Name Like "InvalidData_*" Then
xShape.Delete
End If
Next
End Sub
İlgili makale:
Excel'de geçersiz veriler nasıl daire içine alınır?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar