วิธีทำตัวหนาเฉพาะบรรทัดแรกหรือคำแรกในเซลล์ใน Excel
ในแผ่นงาน Excel อาจมีเซลล์จำนวนมากที่มีหลายบรรทัดซึ่งถูกย่อหน้าด้วยปุ่ม Alt + Enter ในบางกรณีคุณอาจต้องทำตัวหนาเฉพาะบรรทัดแรกในเซลล์เหล่านี้ หรือเฉพาะคำแรกตัวหนาเพื่อให้โดดเด่นในเซลล์ บทความนี้แสดงวิธีการสองวิธีเพื่อให้คุณบรรลุรายละเอียด
เป็นตัวหนาเฉพาะบรรทัดแรกในเซลล์ด้วยรหัส VBA เป็นตัวหนาเฉพาะคำแรกในเซลล์ด้วยรหัส VBA
เป็นตัวหนาเฉพาะบรรทัดแรกในเซลล์ด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณเป็นตัวหนาเฉพาะบรรทัดแรกในเซลล์ที่เลือกได้อย่างรวดเร็ว กรุณาดำเนินการดังนี้
1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: เป็นตัวหนาเฉพาะบรรทัดแรกในเซลล์
Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
With xCell
.Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
End With
Next
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นก Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกช่วงที่มีบรรทัดแรกที่คุณต้องทำให้เป็นตัวหนาจากนั้นคลิกที่ OK ปุ่ม
จากนั้นคุณจะเห็นบรรทัดแรกทั้งหมดของเซลล์ที่เลือกเป็นตัวหนาทันทีตามภาพด้านล่างที่แสดง
เป็นตัวหนาเฉพาะคำแรกในเซลล์ด้วยรหัส VBA
ตามที่แสดงภาพหน้าจอด้านล่างบางครั้งคุณต้องทำตัวหนาเฉพาะคำแรกในช่วง A2: A4 ใน Excel คุณสามารถบรรลุได้ดังต่อไปนี้ทีละขั้นตอน
1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: เป็นตัวหนาเฉพาะคำแรกในเซลล์
Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
If xCell.Value <> "" Then
xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
End If
Next
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel กล่องโต้ตอบเลือกช่วงที่คุณต้องการทำให้คำแรกเป็นตัวหนาจากนั้นกดปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:
จากนั้นคุณจะเห็นคำแรกของเซลล์ที่เลือกทั้งหมดเป็นตัวหนาทันทีตามภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!