การเรียนรู้กล่องข้อความใน Excel:คู่มือที่ครอบคลุม

ชุดข้อมูลตัวอย่างประกอบด้วยการขายอุปกรณ์เสริมต่างๆ ในสถานที่ต่างๆ กล่องข้อความด้านล่างจะแสดงข้อมูลสรุปของชุดข้อมูล ซึ่งแสดงยอดขายสูงสุดและต่ำสุด

กล่องข้อความคืออะไร

กล่องข้อความเป็นวัตถุรูปทรงสี่เหลี่ยมที่สามารถเก็บและแสดงข้อความภายในพื้นที่เฉพาะของเวิร์กชีตได้

วิธีเพิ่มกล่องข้อความใน Excel:4 วิธี

ชุดข้อมูลประกอบด้วยข้อมูลการขายของบริษัท

วิธีที่ 1- การใช้ตัวเลือกกล่องข้อความ

• ไปที่ แทรก และเลือก กล่องข้อความ ในข้อความ .

เคอร์เซอร์จะเปลี่ยน

• คลิกพื้นที่ในแผ่นงานเพื่อแทรกกล่องข้อความแล้วลากลง

• ป้อนข้อความในกล่องข้อความ

การใช้แป้นพิมพ์:

คุณยังสามารถกด Alt ได้อีกด้วย , ยังไม่มี , X . มันจะสร้างกล่องข้อความบนแผ่นงาน

วิธีที่ 2- การเพิ่มกล่องข้อความจากรูปร่าง

• ไปที่ แทรก>> ภาพประกอบ>> รูปร่าง .
• เลือก กล่องข้อความ ในรูปร่างพื้นฐาน .

เคอร์เซอร์จะเปลี่ยน

• คลิกพื้นที่ในแผ่นงานเพื่อแทรกกล่องข้อความแล้วลากลง

• ป้อนข้อความในกล่องข้อความ

วิธีที่ 3 – การแทรกกล่องข้อความจากตัวควบคุม ActiveX ใน Excel

หากต้องการแทรกกล่องข้อความควบคุม ActiveX:

• เปิดใช้งาน นักพัฒนา แท็บบน Ribbon
• ไปที่ นักพัฒนา>> การควบคุม>> แทรก .
• เลือก กล่องข้อความ (ตัวควบคุม ActiveX) ในการควบคุม ActiveX .

เคอร์เซอร์จะเปลี่ยน

• คลิกพื้นที่ในแผ่นงานเพื่อแทรกกล่องข้อความแล้วลากลง

• วัตถุอยู่ในโหมดการออกแบบ หากต้องการปิด ให้คลิก นักพัฒนา>> การควบคุม>> โหมดการออกแบบ .

• ป้อนข้อความในกล่องข้อความ

หมายเหตุ

ใช้ Shift+Enter เพื่อแทรกตัวแบ่งบรรทัดในกล่องข้อความ ActiveX Control

การเพิ่มกล่องข้อความหลายบรรทัดด้วยแถบเลื่อน

• สร้างกล่องข้อความ ActiveX Control ก่อนโดยใช้วิธีการก่อนหน้า
• คลิกขวาที่กล่องข้อความและเลือก คุณสมบัติ .

• ใน คุณสมบัติ หน้าต่าง เลือก จริง เป็น หลายบรรทัด
• เลือก 1, 2 หรือ 3 สำหรับ แถบเลื่อน . ที่นี่ 2 เพื่อสร้างแถบเลื่อนแนวตั้ง

• ป้อนข้อความของคุณ แถบเลื่อนจะแสดงในกล่องข้อความ

วิธีที่ 4 – การใช้ VBA เพื่อเพิ่มกล่องข้อความหลายกล่องใน Excel

คลิกที่ภาพเพื่อดูรายละเอียด

• ไปที่ นักพัฒนา>> รหัส>> Visual Basic .

• เลือก แทรก>> โมดูล .

• ใส่รหัสต่อไปนี้ในโมดูล

Sub InsertMultipleTextBoxes()
 Dim ws As Worksheet
 Dim textBox As Shape
 Dim i As Integer
 Dim numTextBoxes As Integer
 Dim textArray() As String
 ' Set the worksheet where you want to insert the text boxes
 Set ws = ThisWorkbook.Sheets("4.1 VBA Multiple Box") ' Replace "4.1 VBA Multiple Box" with your actual sheet name
 ' Set the number of text boxes you want to insert
 numTextBoxes = 3 ' Change this to the desired number
 
 ' Array of different texts for each text box
 textArray = Split("Sioux City has the highest television sales,Stony Brook has the highest mobile sales,Green Bay has the highest monitor sales", ",")
 ' Loop to insert multiple text boxes
 For i = 1 To numTextBoxes
 ' Insert a text box
 Set textBox = ws.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
 Left:=50 + (i - 1) * 200, Top:=230, Width:=150, Height:=50)
 
 ' Set the text inside the text box
 textBox.TextFrame.Characters.Text = textArray(i - 1)
 textBox.TextEffect.FontSize = 12
 textBox.Line.ForeColor.RGB = RGB(0, 0, 255)
 Next i
End Sub

คลิกที่ภาพเพื่อดูรายละเอียด

• กด F5 เพื่อเรียกใช้โค้ด

คลิกที่ภาพเพื่อดูรายละเอียด

หมายเหตุ

ใช้โค้ดเดียวกันโดยไม่มีการวนซ้ำเพื่อสร้างกล่องข้อความเดียว:

Sub InsertTextBox()
 Dim ws As Worksheet
 Dim textBox As Shape
 
 Set ws = ThisWorkbook.Sheets("4. VBA") ' Replace "4. VBA" with your actual sheet name
 
 Set textBox = ws.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
 Left:=60, Top:=230, Width:=250, Height:=80)
 
 textBox.TextFrame.Characters.Text = "Total Sales by Store:" & vbNewLine & "Green Bay has the highest total sales with $50,960, followed by Sioux City with $41,614." & vbNewLine & "Rock Island has the lowest total sales at $14,628."
 textBox.Line.ForeColor.RGB = RGB(0, 0, 255)
End Sub

วิธีจัดรูปแบบกล่องข้อความใน Excel

1. การเปลี่ยนรูปร่างและจุดแก้ไข

• คลิกกล่องข้อความและไปที่รูปแบบรูปร่าง .
• เลือก รูปแบบรูปร่าง>> แทรกรูปร่าง>> แก้ไขรูปร่าง>> เปลี่ยนรูปร่าง .

คลิกที่ภาพเพื่อดูรายละเอียด

กล่องข้อความที่เลือกจะเปลี่ยนไป

เปลี่ยนจุดแก้ไข:

• คลิกที่ขอบของกล่องข้อความ เคอร์เซอร์ของเมาส์จะแสดงเครื่องหมายบวกปลายแหลม

• เลือก รูปแบบรูปร่าง>> แทรกรูปร่าง>> แก้ไขรูปร่าง>> แก้ไขจุด .

คลิกที่ภาพเพื่อดูรายละเอียด

• คลิกและลากจุดขอบเพื่อย้ายขอบและเปลี่ยนรูปร่างด้วยตนเอง

2. การเปลี่ยนสไตล์รูปร่าง

• เลือกกล่องข้อความและไปที่ รูปแบบรูปร่าง แท็บ
• เลือกสไตล์ใน สไตล์รูปร่าง .

คลิกที่ภาพเพื่อดูรายละเอียด

• เข้าถึง สไตล์ด่วน โดยคลิกลูกศรลง

คลิกที่ภาพเพื่อดูรายละเอียด

• คลิกสไตล์

คลิกที่ภาพเพื่อดูรายละเอียด

• กล่องข้อความจะเปลี่ยนไป ที่นี่ เอฟเฟกต์ละเอียดอ่อน- สีดำ, สีเข้ม-1 ถูกเลือก

3. การเปลี่ยนสีเติมของกล่องข้อความ

• คลิกกล่องข้อความและเลือก รูปแบบรูปร่าง>> สไตล์รูปร่าง>> เติมรูปร่าง .
• เลือกสี

คลิกที่ภาพเพื่อดูรายละเอียด

คุณยังสามารถเปลี่ยนสีเติมได้โดยเลือก เติม  ใน แบบอักษร ใน หน้าแรก แท็บ

4. การลบเส้นขอบ

คลิกกล่องข้อความและเลือก รูปแบบรูปร่าง>> สไตล์รูปร่าง>> เค้าร่างรูปร่าง>> ไม่มีเค้าร่าง .

คลิกที่ภาพเพื่อดูรายละเอียด

เส้นขอบจะถูกลบออก

5. การเปลี่ยนขนาดตัวอักษร สไตล์ และสี

• ไปที่ หน้าแรก>> แบบอักษร>> สีแบบอักษร .

หมายเหตุ

เลือกข้อความภายในกล่องข้อความหากคุณต้องการเปลี่ยนสี

• มีตัวเลือกการแก้ไขอื่นๆ ใน แบบอักษร

• เข้าถึง รูปแบบอักษรศิลป์ ที่แตกต่างกัน ในรูปแบบรูปร่าง .

คลิกที่ภาพเพื่อดูรายละเอียด

6. การเปลี่ยนระยะห่างระหว่างบรรทัดภายในกล่องข้อความ

• เลือกข้อความทั้งหมด
• คลิกขวาที่ข้อความและเลือก ย่อหน้า .

• ในย่อหน้า เลือก ระยะห่าง
• เลือกตัวเลือกระยะห่างบรรทัดอื่น
• คลิก ตกลง .

ที่นี่ 6 คะแนน ถูกเลือก

7. การหมุนกล่องข้อความ

• เลือกกล่องข้อความแล้วคุณจะเห็นไอคอนหมุนตามเข็มนาฬิกาที่ด้านบนของช่อง
• คลิกแล้วเลื่อนเคอร์เซอร์ของเมาส์เพื่อหมุนกล่องข้อความ

สังเกต GIF

8. การปรับขนาดกล่องข้อความให้พอดีกับข้อความ

การปรับขนาดกล่องข้อความให้พอดีโดยอัตโนมัติ:

• เลือกกล่องข้อความโดยคลิกที่ขอบ
• กด Ctrl+1 เพื่อเปิด จัดรูปแบบรูปร่าง ตัวเลือก
• เลือก ตัวเลือกข้อความ>> กล่องข้อความ
• ใน กล่องข้อความ ให้เลือก ปรับขนาดรูปร่างให้พอดีกับข้อความ .

คลิกที่ภาพเพื่อดูรายละเอียด

ความสูงและความกว้างจะถูกปรับให้ตรงกับข้อความ

คลิกที่ภาพเพื่อดูรายละเอียด

ปรับขนาดให้พอดีและพัน:

• เลือก ตัดข้อความเป็นรูปร่าง .
• ความสูงจะถูกปรับและความกว้างจะยังคงอยู่

คลิกที่ภาพเพื่อดูรายละเอียด

นี่คือผลลัพธ์

ปรับขนาดให้พอดีโดยใช้ VBA:

• เปิดตัวแก้ไข VBA และแทรกโค้ดต่อไปนี้ในโมดูล

Sub FitTextBoxToText()
 Dim ws As Worksheet
 Dim textBox As Shape
 
 ' Set the worksheet
 Set ws = ThisWorkbook.Sheets("8. Resize to Fit Text")
 ' Replace "YourSheetName" with your actual sheet name
 
 ' Set the name of the text box
 Dim textBoxName As String
 textBoxName = "TextBox 1"
 ' Replace with the actual name of your text box
 
 ' Check if the text box exists
 On Error Resume Next
 Set textBox = ws.Shapes(textBoxName)
 On Error GoTo 0
 
 If Not textBox Is Nothing Then
 ' Fit the text box to its content
 textBox.TextFrame.AutoSize = True
 Else
 MsgBox "Text box not found!"
 End If
End Sub

คลิกที่ภาพเพื่อดูรายละเอียด

• กด F5 เพื่อรันโค้ด มันจะปรับขนาดกล่องข้อความ

คลิกที่ภาพเพื่อดูรายละเอียด

9. การจัดแนวกล่องข้อความใน Excel

การจัดแนวกล่องข้อความในแนวนอน:

• เลือกกล่องข้อความทั้งหมดโดยกด Ctrl ค้างไว้ และคลิกซ้าย

• เลือก รูปแบบรูปร่าง>> จัดแนววัตถุ>> จัดตำแหน่งด้านบน .

คลิกที่ภาพเพื่อดูรายละเอียด

กล่องจะจัดวางในแนวนอน

การจัดแนวกล่องข้อความในแนวตั้ง:

• เลือกกล่องข้อความทั้งหมด
• เลือก รูปแบบรูปร่าง>> จัดแนววัตถุ>> จัดชิดซ้าย .

คลิกที่ภาพเพื่อดูรายละเอียด

วิธีนี้จะจัดตำแหน่งกล่องข้อความในแนวตั้ง

คลิกที่ภาพเพื่อดูรายละเอียด

10. การเปลี่ยนความโปร่งใสของกล่องข้อความ

หากต้องการเปลี่ยนความโปร่งใสของกล่องข้อความ:

• เลือกกล่องข้อความโดยคลิกที่ขอบ
• กด Ctrl+1 เพื่อเปิด จัดรูปแบบรูปร่าง หน้าต่าง.
• เลือก ตัวเลือกรูปร่าง>> เติมและเส้น>> เติม .
• เปลี่ยน ความโปร่งใส ระดับ สี .

คลิกที่ภาพเพื่อดูรายละเอียด

11. การยึดกล่องข้อความใน Excel

• เลือกกล่องข้อความโดยคลิกที่ขอบ
• กด Ctrl+1 เพื่อเปิด จัดรูปแบบรูปร่าง หน้าต่าง.
• เลือก ตัวเลือกรูปร่าง>> ขนาดและคุณสมบัติ>> คุณสมบัติ .
• กาเครื่องหมาย อย่าขยับและปรับขนาดตามเซลล์ .

คลิกที่ภาพเพื่อดูรายละเอียด

ล็อคกล่องข้อความ:

• ไปที่ หน้าแรก>> เซลล์>> รูปแบบ>> ป้องกันชีต .

คลิกที่ภาพเพื่อดูรายละเอียด

• ยกเลิกการเลือก แก้ไขวัตถุ ในแผ่นป้องกัน และคลิก ตกลง .

กล่องข้อความจะไม่ถูกปรับขนาดโดยการเปลี่ยนขนาดของคอลัมน์หรือแถว

คุณต้องยกเลิกการป้องกันแผ่นงานเพื่อแก้ไขกล่องข้อความอีกครั้ง

วิธีคัดลอกกล่องข้อความใน Excel

• เลือกกล่องข้อความโดยคลิกที่ขอบ

• กด Ctrl+C เพื่อคัดลอกและ Ctrl+V เพื่อวาง

วิธีรับกล่องข้อความที่เชื่อมโยงกับเซลล์ใน Excel

• สร้างกล่องข้อความ
• คลิกตรงกลางช่อง แทนที่จะป้อนข้อความที่นั่น ให้ใช้แถบสูตร
• ป้อน “= ” ตามด้วยเซลล์ที่คุณต้องการอ้างอิง ที่นี่ =$C$16 เพื่อเชื่อมโยงไปยัง C16 .

• กด Enter ค่าจะปรากฏในกล่องข้อความ

• ดับเบิลคลิกที่กล่องข้อความแล้วป้อนข้อความของคุณ

อ่านเพิ่มเติม: รับกล่องข้อความที่เชื่อมโยงกับเซลล์

วิธีสร้างกล่องข้อความไดนามิกใน Excel

.

• เลือกเซลล์ที่จะแทรกตำแหน่งและไปที่ ข้อมูล>> เครื่องมือข้อมูล>> การตรวจสอบข้อมูล .

• ในการตรวจสอบข้อมูล เลือก การตั้งค่า .
• เลือก รายการ ใน อนุญาต และป้อนช่วงใน แหล่งที่มา . ในที่นี้ แหล่งข้อมูลคือ B6:B13 .

คลิกที่ภาพเพื่อดูรายละเอียด

• ลูกศรแบบเลื่อนลงจะปรากฏในเซลล์ เลือกค่า

• ป้อนสูตรต่อไปนี้ใน C17 .

09


Sub floating_text_box()
UserForm1.TextBox1.Text = "Monthly sales of accessories in different branches of XYZ company"
UserForm1.Show vbModeless
End Sub

Private Sub ConditionalTextBox_Change()
If ConditionalTextBox.Value < "0" Then ConditionalTextBox.BackColor = rgbBlack
If ConditionalTextBox.Value < "0" Then ConditionalTextBox.ForeColor = rgbWhite
If ConditionalTextBox.Value > "0" Then ConditionalTextBox.BackColor = rgbWhite
If ConditionalTextBox.Value > "0" Then ConditionalTextBox.ForeColor = rgbBlack
End Sub

Sub ConvertTextBoxToCell()
 Dim Sh_xRg As Range
 Dim Sh_xRow As Long
 Dim Sh_xCol As Long
 Dim Sh_xTxtBox As textBox
 Set Sh_xRg = Application.InputBox("Select a cell):", "Convert Text Box to Cell ", _
 ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
 Sh_xRow = Sh_xRg.Row
 Sh_xCol = Sh_xRg.Column
 For Each Sh_xTxtBox In ActiveSheet.TextBoxes
 Cells(Sh_xRow, Sh_xCol).Value = Sh_xTxtBox.Text
 Sh_xRow = Sh_xRow + 1
 Next
End Sub