วิธีการต่อข้อความของหลายเซลล์ลงในกล่องข้อความใน Excel
อาจเป็นเรื่องง่ายสำหรับคุณในการต่อข้อความของเซลล์หลาย ๆ เซลล์ให้เป็นเซลล์ใหม่ด้วยสูตร แต่คุณรู้วิธีเชื่อมต่อค่าเซลล์หลายค่าลงในกล่องข้อความ (ActiveX Control) หรือไม่? จริงๆแล้ววิธีการในบทความนี้สามารถช่วยให้คุณบรรลุได้
เชื่อมต่อข้อความของหลายเซลล์ลงในกล่องข้อความด้วยรหัส VBA
เชื่อมต่อข้อความของหลายเซลล์ลงในกล่องข้อความด้วยรหัส VBA
วิธีการด้านล่างนี้สามารถช่วยคุณในการเชื่อมต่อข้อความของเซลล์หลายเซลล์ลงในกล่องข้อความใน Excel
1. ในแผ่นงานที่คุณต้องการเชื่อมต่อหลายเซลล์ให้แทรกกล่องข้อความโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ActiveX Control). ดูภาพหน้าจอ:
2 จากนั้นคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control) เพื่อแทรกปุ่มคำสั่งลงในแผ่นงาน
3. คลิกขวาที่ปุ่มคำสั่งแทรกจากนั้นเลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:
4 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดแทนที่รหัสเดิมด้วยรหัส VBA ด้านล่าง
รหัส VBA: เชื่อมต่อข้อความของเซลล์หลายเซลล์ลงในกล่องข้อความ
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End Subหมายเหตุ: CommandButton1 คือชื่อของปุ่มคำสั่งที่แทรก โปรดเปลี่ยนตามความต้องการของคุณ
5. ปิดโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.
6. เลือกเซลล์ที่คุณต้องการต่อข้อความลงในกล่องข้อความจากนั้นคลิกปุ่มคำสั่ง จากนั้นเนื้อหาของเซลล์ที่เลือกทั้งหมดจะเชื่อมต่อกันในกล่องข้อความทันทีตามภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
- วิธีการเลือกข้อความของกล่องข้อความโดยอัตโนมัติเมื่อถูกเลือกใน Excel
- วิธีเติมข้อความอัตโนมัติในกล่องข้อความเมื่อพิมพ์ใน Excel
- วิธีล้างเนื้อหาของกล่องข้อความเมื่อคลิกใน Excel
- วิธีปิดใช้งานการแก้ไขในกล่องข้อความเพื่อป้องกันไม่ให้ผู้ใช้ป้อนข้อมูลใน Excel
- Hเป็นหนี้ในการจัดรูปแบบกล่องข้อความเป็นเปอร์เซ็นต์ใน Excel หรือไม่
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
