Note: The other languages of the website are Google-translated. Back to English
English English

วิธีการแสดงกล่องข้อความเพื่อแสดงช่วงของเซลล์หรือค่าของเซลล์ใน 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 mesage()
    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 ปุ่ม. ดูภาพหน้าจอ:

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


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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (2)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้มีประโยชน์มาก! มีวิธีจัดรูปแบบคอลัมน์ในการแสดงค่าช่วงใน VBA หรือไม่? ฉันเห็นในตัวอย่างของคุณเช่นกันว่าไม่ใช่ทุกคอลัมน์ที่แสดงข้อมูลเดียวกัน คอลัมน์ชื่อยาวและดันคอลัมน์วันที่ของคุณไปทางขวา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉัน puedes ayudar?. ความจำเป็น hacer la selección que se hace con este cuadro, pero al seleccionarlo quiero copiarlo y pegarlo en otra hoja.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ