จะแสดงช่วงหรือค่าเซลล์ที่เลือกในกล่องข้อความใน Excel ได้อย่างไร

ในบางกรณีคุณอาจต้องเตือนตัวเองถึงขอบเขตช่วงที่คุณเลือกหรือแสดงค่าทั้งหมดของช่วงที่ระบุ ในบทความนี้คุณจะได้รับวิธีการป๊อปอัพกล่องข้อความเพื่อแสดงการอ้างอิงเซลล์ที่เลือกหรือค่าเซลล์โดยละเอียดใน Excel

ป๊อปอัพกล่องข้อความเพื่อแสดงช่วงของเซลล์ด้วยรหัส VBA
ป๊อปอัพกล่องข้อความเพื่อแสดงค่าของช่วงที่ระบุด้วยรหัส VBA

ป๊อปอัพกล่องข้อความเพื่อแสดงช่วงของเซลล์ด้วยรหัส VBA

รหัส VBA ต่อไปนี้ช่วยให้คุณแสดงขอบเขตช่วงที่คุณเลือกในกล่องข้อความที่โผล่ขึ้นมา กรุณาดำเนินการดังนี้

1. หลังจากเลือกช่วงเซลล์ในเวิร์กชีตแล้ว ให้กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: กล่องข้อความเพื่อแสดงช่วงของเซลล์

Sub Test()
    On Error Resume Next
    MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นกล่องข้อความจะปรากฏขึ้นพร้อมกับขอบเขตช่วงของเซลล์ที่เลือกซึ่งแสดงอยู่ภายใน

ป๊อปอัพกล่องข้อความเพื่อแสดงค่าของช่วงที่ระบุด้วยรหัส VBA

สมมติว่าคุณต้องการกล่องข้อความเพื่อแสดงค่าเซลล์ทั้งหมดในช่วง A1:D13 ดังที่แสดงในภาพหน้าจอด้านล่าง โปรดรันโค้ด VBA ด้านล่าง

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: กล่องข้อความเพื่อแสดงค่าเซลล์ที่เลือกใน Excel

Sub message()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xStr As String
    Dim xRow As Long
    Dim xCol As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For xRow = 1 To xRg.Rows.Count
        For xCol = 1 To xRg.Columns.Count
            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
        Next
        xStr = xStr & vbCrLf
    Next
    MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub

3 กด F5 คีย์เพื่อเรียกใช้รหัสในป๊อปอัป Kutools สำหรับ Excel โปรดเลือกช่วงที่คุณต้องการแสดงค่าของเซลล์ในกล่องข้อความจากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นคุณจะได้รับกล่องข้อความตามภาพด้านล่างที่แสดงและค่าเซลล์ทั้งหมดของช่วงที่ระบุจะแสดงในกล่องข้อความ

บทความที่เกี่ยวข้อง:

• วิธีสร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากเวลาที่กำหนดใน Excel
• จะปรากฏกล่องข้อความเมื่อคลิกที่เซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?
• วิธีคัดลอกข้อความจากกล่องข้อความใน Excel
• จะปรากฏกล่องข้อความเมื่อเปิดใช้งาน / เปิดแผ่นงานที่ระบุใน Excel ได้อย่างไร?
• จะแสดงกล่องข้อความได้อย่างไรหากค่าของเซลล์เปลี่ยนแปลงภายในช่วงใน Excel