วิธีเพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลงในคอลัมน์ Excel
มีรายการข้อมูลที่มีค่าซ้ำและเพื่อการจำแนกค่าที่ดีขึ้นฉันเพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลงในรายการดังภาพด้านล่างที่แสดง ในบทความนี้ฉันจะพูดถึงวิธีเพิ่มเส้นขอบด้านล่างอย่างรวดเร็วเมื่อค่าเปลี่ยนแปลงในคอลัมน์ Excel
เพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลงด้วย VBA
เพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลงด้วย VBA
เห็นได้ชัดว่าไม่มีฟังก์ชันในตัวใน Excel ที่สามารถช่วยคุณเพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลง แต่มีรหัส VBA ที่ฉันสามารถแนะนำได้
1 กด Alt + F11 ปุ่มเพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในสคริปต์เปล่า โมดูลe.
VBA: เพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลง
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3 กด F5 กุญแจสำคัญในการรันโค้ด จากนั้นจึงเพิ่มเส้นขอบด้านล่างเมื่อค่าเปลี่ยนแปลงในส่วนที่เลือก A2: A
Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!