วิธีรักษาเส้นตารางในขณะที่เติมสีใน Excel
อย่างที่เราทราบกันดีว่าเมื่อเราเติมสีพื้นหลังลงในเซลล์เส้นตารางจะถูกครอบคลุมเช่นกันในกรณีนี้เราจะเก็บเส้นตารางในขณะที่เติมสีพื้นหลังในเซลล์ Excel ได้อย่างไรเพื่อให้ได้ภาพหน้าจอต่อไปนี้
รักษาเส้นตารางในขณะที่เติมสีด้วยรหัส VBA
รักษาเส้นตารางในขณะที่เติมสีด้วยรหัส VBA
โดยปกติไม่มีวิธีโดยตรงสำหรับเราในการแก้ปัญหานี้ แต่ที่นี่ฉันสามารถแนะนำรหัส VBA ให้คุณได้ กรุณาดำเนินการดังต่อไปนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิก สมุดงานนี้ ภายใต้การขยาย โครงการ VBAจากนั้นคัดลอกและวางโค้ด 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, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!