วิธีคัดลอกเฉพาะเส้นขอบของช่วงที่เลือกใน Excel
ในขณะที่ใช้ Microsoft Excel คุณสามารถคัดลอกเฉพาะค่าของเซลล์การจัดรูปแบบเซลล์สูตรเซลล์และอื่น ๆ จากช่วงที่มีฟังก์ชัน Paste Special ได้อย่างง่ายดาย แต่คุณเคยพยายามคัดลอกเฉพาะสไตล์เส้นขอบจากช่วงใน Excel หรือไม่? บทความนี้จะแสดงวิธีการคัดลอกเฉพาะขอบของช่วงที่เลือกไปยังช่วงใหม่ใน Excel
คัดลอกเฉพาะเส้นขอบของช่วงที่เลือกด้วยรหัส VBA
คัดลอกเฉพาะเส้นขอบของช่วงที่เลือกด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยคุณได้เฉพาะคัดลอกลักษณะเส้นขอบของเซลล์ที่เลือกจากนั้นใช้สไตล์เส้นขอบนี้กับช่วงใหม่ใน Excel กรุณาดำเนินการดังนี้
1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: คัดลอกเฉพาะเส้นขอบของช่วงที่เลือกใน Excel
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในครั้งแรกที่โผล่ขึ้นมา Kutools สำหรับ Excel โปรดเลือกช่วงที่มีเส้นขอบที่คุณต้องการคัดลอกจากนั้นคลิกที่ไฟล์ OK ปุ่ม
4. ในวินาทีที่ Kutools สำหรับ Excel โปรดเลือกเซลล์ที่จะใช้เส้นขอบที่คัดลอกแล้วคลิก OK ปุ่ม. ดูภาพหน้าจอ:
จากนั้นคุณจะเห็นเฉพาะรูปแบบเส้นขอบของช่วงที่เลือกเท่านั้นที่ถูกคัดลอกและนำไปใช้กับช่วงใหม่ดังภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
- วิธีคัดลอกและวางค่าโดยข้ามรายการที่ซ้ำกันใน Excel
- วิธีคัดลอกข้อมูลเซลล์ด้วยความสูงของแถวและความกว้างของคอลัมน์ใน Excel
- วิธีคัดลอกเซลล์เป็นค่าข้อความไม่ใช่สูตรใน Excel
- วิธีคัดลอกข้อมูลไปยังแถวว่างถัดไปของแผ่นงานอื่นใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
