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 สำหรับเคล็ดลับนี้ในฟอรัม