300 ตัวอย่าง

ค้นหามูลค่าสูงสุดเป็นอันดับสอง

Find Second Highest Value

ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น หาค่าสูงสุดอันดับสอง .





สถานการณ์:

excel vlookup # n / a

ค้นหาค่าสูงสุดอันดับสองใน Excel VBA





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และเซลล์.ค่าแล้วSecondHighestValue = เซลล์.Value

7. สุดท้าย เราแสดงค่าสูงสุดเป็นอันดับสองโดยใช้ MsgBox

MsgBox 'ค่าสูงสุดอันดับสองคือ ' & ค่าสูงสุดอันดับสอง

8. วางมาโครของคุณในปุ่มคำสั่ง เลือกตัวเลข และคลิกที่ปุ่มคำสั่ง

ผลลัพธ์:

ค้นหาผลลัพธ์ที่มีมูลค่าสูงสุดเป็นอันดับสอง

7/9 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับคำสั่ง if then >
ไปที่บทถัดไป: ห่วง



^