Як зберегти лінії сітки під час заповнення кольором у Excel?
Як ми всі знаємо, коли ми заповнюємо фоновий колір комірок, лінії сітки також покриваються, в цьому випадку, як ми можемо зберегти лінії сітки, заповнюючи фоновий колір у клітинках Excel, щоб отримати наступний знімок екрана.
Зберегти лінії сітки, заповнюючи колір кодом VBA
Зберегти лінії сітки, заповнюючи колір кодом VBA
Зазвичай ми не можемо прямо вирішити цю роботу, але тут я можу ввести код VBA для вас. Будь ласка, виконайте наступне:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. У лівій Проект-VBAProject на панелі, двічі клацніть ThisWorkbook під розширений VBAProject, потім скопіюйте та вставте наступний код VBA в порожній модуль:
Код VBA: зберегти лінії сітки під час заповнення кольором
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. А потім збережіть і закрийте вікно коду, тепер, коли ви заповните колір для діапазону комірок, сітки відображатимуться автоматично.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!