كما نعلم جميعًا ، عندما نملأ لون الخلفية بالخلايا ، ستتم تغطية خطوط الشبكة أيضًا ، في هذه الحالة ، كيف يمكننا الاحتفاظ بخطوط الشبكة أثناء ملء لون الخلفية في خلايا Excel للحصول على لقطة الشاشة التالية الموضحة.
احتفظ بخطوط الشبكة أثناء تعبئة اللون برمز VBA
احتفظ بخطوط الشبكة أثناء تعبئة اللون برمز VBA
في العادة ، لا توجد طريقة مباشرة لحل هذه الوظيفة ، ولكن هنا ، يمكنني تقديم رمز VBA لك. الرجاء القيام بما يلي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في اليسار مشروع- VBAProject جزء ، انقر نقرًا مزدوجًا ThisWorkbook تحت الموسعة مشروع VBAP، ثم انسخ والصق رمز فبا التالي في الوحدة النمطية الفارغة:
كود فبا: الحفاظ على خطوط الشبكة أثناء ملء اللون
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. ثم قم بحفظ وإغلاق نافذة التعليمات البرمجية ، الآن ، عندما تقوم بملء لون لمجموعة من الخلايا ، سيتم عرض خطوط الشبكة تلقائيًا.
