วิธีการแสดงกล่องข้อความถ้าเซลล์มากกว่าหรือน้อยกว่าค่าเฉพาะใน Excel?
ถ้าเซลล์มากกว่าหรือน้อยกว่าเซลล์อื่นฉันต้องเปิดกล่องข้อความเพื่อแจ้งเตือนใน 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
 |
 |
 |
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
- บางครั้งคุณต้องเตือนตัวเองถึงการเปลี่ยนแปลงภายในช่วงในแผ่นงานบางแผ่น ดังนั้นกล่องข้อความป๊อปอัปจะช่วยคุณได้หากค่าของเซลล์มีการเปลี่ยนแปลงในช่วงหนึ่ง คุณสามารถบรรลุได้ด้วยวิธี VBA ในบทความนี้
- ป๊อปอัพกล่องข้อความเมื่อคลิกที่เซลล์บางเซลล์ใน 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 ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
