Excel'de renk doldururken ızgara çizgileri nasıl korunur?
Hepimizin bildiği gibi, hücrelere arka plan rengini doldurduğumuzda, kılavuz çizgileri de ele alınacaktır, bu durumda, gösterilen aşağıdaki ekran görüntüsünü elde etmek için Excel hücrelerinde arka plan rengini doldururken kılavuz çizgilerini nasıl koruyabiliriz.
Renkleri VBA koduyla doldururken kılavuz çizgilerini koruyun
Renkleri VBA koduyla doldururken kılavuz çizgilerini koruyun
Normalde bu işi çözmemizin doğrudan bir yolu yoktur, ancak burada sizin için bir VBA kodu sunabilirim. Lütfen aşağıdaki işlemleri yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Solda Proje-VBAProject bölme, çift tıklama Bu Çalışma Kitabı genişletilmiş altında VBAProjesi, ardından aşağıdaki VBA kodunu boş Modüle kopyalayıp yapıştırın:
VBA kodu: rengi doldururken kılavuz ç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. Ve sonra kod penceresini kaydedip kapatın, şimdi, bir dizi hücre için bir renk doldurduğunuzda, kılavuz çizgileri otomatik olarak gösterilecektir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!