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

สำรวจสิ่งใหม่ รุ่นฟรี ของ Kutools for Outlook วันนี้!

วิธีการแสดงกล่องข้อความถ้าเซลล์มากกว่าหรือน้อยกว่าค่าเฉพาะใน Excel?

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-08-16

ถ้าเซลล์มากกว่าหรือน้อยกว่าเซลล์อื่นฉันต้องเปิดกล่องข้อความเพื่อแจ้งเตือนใน Excel วิธีแก้ปัญหานี้ใน Excel บทความนี้ผมจะพูดถึงรหัสสำหรับจัดการกับมัน

เปิดกล่องข้อความหากค่าของเซลล์ในคอลัมน์มากกว่าหรือน้อยกว่าเซลล์อื่น

ป๊อปอัพกล่องข้อความหากค่าของเซลล์ในเซลล์มากกว่าหรือน้อยกว่าเซลล์อื่น

เปิดกล่องข้อความหากค่าของเซลล์ในคอลัมน์มากกว่าหรือน้อยกว่าเซลล์อื่น

สมมติว่าฉันมีหมายเลขเฉพาะ 100 ในเซลล์ A1 ตอนนี้เมื่อตัวเลขที่ป้อนในคอลัมน์ D มากกว่า 100 ในเซลล์ A1 กล่องข้อความควรจะโผล่ขึ้นมาเพื่อเตือนผู้ใช้

ที่นี่รหัส VBA ด้านล่างสามารถช่วยให้คุณเสร็จสิ้นได้โปรดทำตามขั้นตอนต่อไปนี้:

1. ไปที่แผ่นงานที่คุณต้องการใช้

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

หมายเหตุ: ในโค้ดด้านบน Sheet1 คือแผ่นงานของคุณที่คุณต้องการใช้ A1 คือค่าเซลล์ที่คุณต้องการเปรียบเทียบ D: D คือคอลัมน์ที่คุณต้องการเปรียบเทียบกับเซลล์ A1

คลิกดูโค้ดจากเมนูคลิกขวา ลูกศรขวา วางโค้ด vba ลงในโมดูล

3. จากนั้นบันทึกและปิดหน้าต่างรหัสจากนี้ไปกล่องข้อความจะปรากฏขึ้นหากคุณป้อนตัวเลขในคอลัมน์ D ซึ่งมากกว่า 100 ดูภาพหน้าจอ:

กล่องข้อความป๊อปอัปหากเซลล์มีค่ามากกว่าหรือน้อยกว่าค่าที่ระบุ

ป๊อปอัพกล่องข้อความหากค่าของเซลล์ในเซลล์มากกว่าหรือน้อยกว่าเซลล์อื่น

หากคุณต้องการให้กล่องข้อความปรากฏขึ้นเมื่อค่าของเซลล์มากกว่าหรือน้อยกว่าเซลล์อื่นโปรดใช้รหัสด้านล่าง:

1. ไปที่แผ่นงานที่คุณต้องการใช้

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

หมายเหตุ: ในโค้ดด้านบน A1 และ D1 คือสองเซลล์ที่คุณต้องการเปรียบเทียบ

3. จากนั้นบันทึกและปิดหน้าต่างรหัสเมื่อป้อนค่าที่น้อยกว่าค่าในเซลล์ A1 กล่องข้อความจะปรากฏขึ้นตามภาพด้านล่างที่แสดง:

กล่องข้อความปรากฏขึ้นหากเซลล์มีค่ามากกว่าหรือน้อยกว่าค่าของเซลล์อื่น

บทความในกล่องข้อความป๊อปอัพญาติเพิ่มเติม:

  • สร้างกล่องข้อความป๊อปอัพเมื่อเปิดไฟล์ Excel
  • ในบางกรณีคุณอาจต้องการให้กล่องข้อความป๊อปอัปเตือนคุณเสมอว่าคุณต้องทำอะไรก่อนเมื่อคุณเปิดสมุดงานเฉพาะซึ่งจะช่วยให้คุณจำได้ว่าทำสิ่งที่สำคัญที่สุดในงานประจำวันของคุณ และบทความนี้ฉันจะพูดถึงวิธีการสร้างกล่องข้อความป๊อปอัปเมื่อเปิดไฟล์ Excel
  • สร้างกล่องข้อความใช่ไม่ใช่ก่อนเรียกใช้แมโครใน Excel
  • ใน Excel คุณสามารถเรียกใช้แมโครได้โดยตรงโดยกดแป้น F5 หรือคลิกปุ่มเรียกใช้ในหน้าต่าง Microsoft Visual Basic for Applications แต่บางครั้งคุณอาจต้องการสร้างกล่องข้อความที่จะถามผู้ใช้ว่าต้องการเรียกใช้แมโครหรือไม่ ถ้าใช่ให้รันโค้ดต่อไปถ้าไม่ใช่ให้หยุดรันโค้ด บทความนี้ผมจะพูดถึงวิธีการสร้างกล่องข้อความใช่ไม่ใช่ก่อนที่จะเรียกใช้แมโครใน Excel
  • สร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากเวลาที่กำหนด
  • คุณอาจใช้สคริปต์ VBA บ่อยๆเพื่อแก้ปัญหาขณะใช้สมุดงาน Excel และจะมีกล่องข้อความโผล่ขึ้นมาระหว่างที่สคริปต์ทำงาน ในบางกรณีคุณต้องการให้กล่องข้อความที่ระบุบางกล่องปิดโดยอัตโนมัติหลังจากผ่านไประยะหนึ่งแทนที่จะปิดด้วยตนเอง ในบทความนี้เราจะแสดงวิธีการสร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากผ่านไประยะหนึ่งใน Excel

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

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

  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
kte แท็บ 201905
  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab