Excel VBA - - กล่องข้อความเมื่อเซลล์มีคุณสมบัติตรงตามเกณฑ์

  • ปัญหา
  • สารละลาย
  • บันทึก

ปัญหา

สวัสดีนี่อาจจะง่ายมากสำหรับใครบางคน แต่ฉันมีวันฝันร้ายทั้งหมดที่ฉันต้องการคือสูตร VBA ซึ่งจะนำกล่องข้อความขึ้นมาเมื่อเซลล์แสดงเกณฑ์เฉพาะ

ใครช่วยได้บ้าง

สารละลาย

รหัสนี้จะถือว่าสิ่งที่คุณกำลังมองหาอยู่ในคอลัมน์ A

 Find_Criteria ส่วนย่อย () Dim i Dim rr = ช่วง ("A65536") End (xlUp) .Row i = 1 สำหรับ i = i ถึง r หาก Range ("A" & i) = "เกณฑ์" จากนั้น MsgBox "พบ" & "" & Range ("A" & i). สิ้นสุดที่อยู่หากถัดไป i สิ้นสุดการย่อยหากคุณกำลังมองหาเกณฑ์ที่แน่นอนในช่วงของเซลล์ให้ลองทำดังนี้ ส่วนตัว Sub Find_Criteria () Dim ฉันเป็น Vari Dim Dim FindRange เป็นชุดช่วง FindRange = ช่วง ("A1: K50") สำหรับแต่ละ i ใน FindRange ถ้า i = "เกณฑ์" จากนั้น MsgBox "พบ" & "& i.Address สิ้นสุดหาก ฉันจบย่อย 

บันทึก

ขอบคุณ Helper สำหรับเคล็ดลับนี้ในฟอรัม

บทความก่อนหน้านี้ บทความถัดไป

เคล็ดลับยอดนิยม