ไปยังเนื้อหาหลัก

จะแสดงกล่องข้อความได้อย่างไรหากค่าของเซลล์เท่ากับ“ X” ใน Excel

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

ป๊อปอัพกล่องข้อความถ้าค่าของเซลล์เท่ากับ“ X” พร้อมรหัส VBA
ป๊อปอัพกล่องข้อความได้อย่างง่ายดายหากค่าของเซลล์เท่ากับ“ X” ด้วย Kutools for Excel


ป๊อปอัพกล่องข้อความถ้าค่าของเซลล์เท่ากับ“ X” พร้อมรหัส VBA

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

1. ในแผ่นงานคุณต้องตรวจสอบค่าในช่วงที่ระบุคลิกขวาที่ชื่อแท็บในแถบแท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:

กล่องข้อความ doc ถ้าค่าเซลล์ 1

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

รหัส VBA: กล่องข้อความป๊อปอัปหากค่าของเซลล์เท่ากับ“ X”

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

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

จากนี้ไปเมื่อค่าของเซลล์เปลี่ยนแปลงในช่วง A1: C7 และมีค่าของเซลล์เท่ากับ "50" คุณจะได้รับกล่องข้อความตามภาพด้านล่างที่แสดง

นอกจากนี้คุณสามารถเลือกช่วงที่จะแสดงกล่องข้อความหากมีค่าเซลล์อยู่

กล่องข้อความ doc ถ้าค่าเซลล์ 1

หมายเหตุ / รายละเอียดเพิ่มเติม:

1. หากค่าเซลล์ไม่ตรงตามเกณฑ์กล่องข้อความจะไม่ปรากฏขึ้น
2. ในโค้ดด้านบนคุณสามารถเปลี่ยนการอ้างอิงเซลล์และค่าตามความต้องการของคุณ
3. สามารถแสดงการอ้างอิงเซลล์ที่ตรงกันได้เฉพาะเมื่อมีผลลัพธ์หลายรายการ

ป๊อปอัพกล่องข้อความถ้าค่าของเซลล์เท่ากับ“ X” ด้วย Kutools for Excel

พื้นที่ เลือกเซลล์เฉพาะ ประโยชน์ของ Kutools สำหรับ Excel ยังสามารถช่วยคุณแก้ปัญหานี้ได้ กรุณาดำเนินการดังนี้

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกช่วงที่คุณต้องการค้นหาว่าค่าของเซลล์มีอยู่หรือไม่จากนั้นคลิก Kutools > เลือก > เลือกเซลล์เฉพาะ

2 ใน เลือกเซลล์เฉพาะ กล่องโต้ตอบเลือกไฟล์ เซลล์ ตัวเลือกใน ประเภทการเลือก จากนั้นเลือก เท่ากับ ในครั้งแรก ประเภทเฉพาะ รายการแบบเลื่อนลงและพิมพ์ค่าเซลล์ในกล่องข้อความถัดไปจากนั้นคลิกที่ไฟล์ OK ปุ่ม

กล่องข้อความ doc ถ้าค่าเซลล์ 1

หากค่าของเซลล์มีอยู่ในช่วงที่ระบุคุณจะได้รับกล่องข้อความต่อไปนี้คลิก OK เซลล์จะถูกเลือก

กล่องข้อความ doc ถ้าค่าเซลล์ 1

มิฉะนั้นคุณจะได้รับกล่องข้อความตามภาพด้านล่างที่แสดง

กล่องข้อความ doc ถ้าค่าเซลล์ 1

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


ป๊อปอัพกล่องข้อความได้อย่างง่ายดายหากค่าของเซลล์เท่ากับ“ X” ด้วย Kutools for Excel


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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

Dim xCell As Range, Rg As Range

On Error Resume Next

Set Rg = Application.Intersect(Target, Range("A1:C7"))

If Not Rg Is Nothing Then

For Each xCell In Rg

If xCell.Value = "50" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO, Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations