ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น หาค่าสูงสุดอันดับสอง .
สถานการณ์:
excel vlookup # n / a
1. ขั้นแรก เราประกาศออบเจ็กต์ Range สองรายการและตัวแปรประเภท Double สองตัว เราเรียกวัตถุช่วง rng และเซลล์ ตัวแปรคู่หนึ่งตัวที่เราเรียกว่า maximumValue และตัวแปรคู่หนึ่งตัวที่เราเรียกว่า secondHighestValue
ไม่มีrngเนื่องจากช่วงเซลล์เนื่องจากพิสัยไม่มีค่าสูงสุดเนื่องจาก สองเท่า, SecondHighestValueเนื่องจาก สองเท่า
2. เราเริ่มต้นวัตถุ Range rng ด้วยช่วงที่เลือกและตัวแปร Double สองตัวที่มีค่า 0
ชุดrng = การเลือก
ค่าสูงสุด = 0
SecondHighestValue = 0
3. อันดับแรก เราต้องการหาค่าสูงสุด เราต้องการตรวจสอบแต่ละเซลล์ในช่วงที่เลือกแบบสุ่ม (ช่วงนี้สามารถมีขนาดใดก็ได้) ใน Excel VBA คุณสามารถใช้ลูป For Each Next สำหรับสิ่งนี้ได้ เพิ่มบรรทัดรหัสต่อไปนี้:
'ค้นหามูลค่าสูงสุดสำหรับ แต่ละเซลล์ในrng
ต่อไปเซลล์
หมายเหตุ: rng และเซลล์ถูกสุ่มเลือกที่นี่ คุณสามารถใช้ชื่อใดก็ได้ อย่าลืมอ้างอิงชื่อเหล่านี้ในส่วนที่เหลือของรหัสของคุณ เส้นสีเขียวคือความคิดเห็นและถูกเพิ่มที่นี่เพื่อให้ข้อมูลเกี่ยวกับโค้ดชิ้นนี้เท่านั้น
4. เราตรวจสอบแต่ละเซลล์ในช่วงนี้ หากสูงกว่าค่าสูงสุด เราจะเขียนค่าไปยังตัวแปร maximumValue เพิ่มบรรทัดรหัสต่อไปนี้ในลูป
ถ้าcell.Value > ค่าสูงสุดแล้วค่าสูงสุด = cell.Valueหมายเหตุ: ค่าแรกจะสูงกว่าค่าสูงสุดเสมอเนื่องจากค่าเริ่มต้นของค่าสูงสุดคือ 0
5. ประการที่สอง เราต้องการหาค่าสูงสุดอันดับสอง เราเพิ่มอีกวง For Each Next
วิธีสร้าง scatter plot ใน excel'ค้นหามูลค่าสูงสุดเป็นอันดับสอง
สำหรับ แต่ละเซลล์ในrng
ต่อไปเซลล์
6. เราตรวจสอบแต่ละเซลล์ในช่วงที่เลือกอีกครั้ง หากสูงกว่า secondHighestValue และต่ำกว่า maximumValue เราจะเขียนค่าไปยังตัวแปร secondHighestValue เพิ่มบรรทัดรหัสต่อไปนี้ในลูป
ถ้าcell.Value > วินาทีสูงสุดValueและเซลล์.ค่า7. สุดท้าย เราแสดงค่าสูงสุดเป็นอันดับสองโดยใช้ MsgBox
MsgBox 'ค่าสูงสุดอันดับสองคือ ' & ค่าสูงสุดอันดับสอง8. วางมาโครของคุณในปุ่มคำสั่ง เลือกตัวเลข และคลิกที่ปุ่มคำสั่ง
ผลลัพธ์:
ไปที่บทถัดไป: ห่วง