Excel'de doldurma rengi uygularken ızgara çizgilerini nasıl koruyabiliriz?
Hepimizin bildiği gibi, hücrelere arka plan rengi uygulandığında ızgara çizgileri bu işlemle birlikte gizlenir. Peki, aşağıdaki ekran görüntüsünde gösterildiği gibi Excel’de hücrelere arka plan rengi eklerken ızgara çizgilerini nasıl koruyabiliriz?
VBA kodu ile Doldurma Rengi yaparken ızgara çizgilerini koruyun
VBA kodu ile Doldurma Rengi yaparken ızgara çizgilerini koruyun
Normalde bu sorunu çözmek için doğrudan bir yol bulunmaz; ancak size bir VBA kodu önerebilirim. Lütfen aşağıdaki adımları uygulayın:
1. Microsoft Visual Basic for Applications penceresini açmak için aşağıdaki tuşlara basılı tutun: ALT + F11. Microsoft Visual Basic for Applications penceresi.
2. Sol taraftaki Project-VBAProject bölmesinde, genişletilmiş VBAProject altındaki ThisWorkbook öğesine çift tıklayın ve ardından aşağıdaki VBA kodunu boş bir modüle kopyalayıp yapıştırın:
VBA kodu: Doldurma Rengi yaparken ızgara çizgilerini koruyun
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3. Ardından kod penceresini Kaydet ve Kapat; artık bir hücre aralığına renk doldurduğunuzda ızgara çizgileri otomatik olarak görünecektir.
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