ด้านล่างเราจะดูโปรแกรมใน Excel VBA ที่ระบายสีค่าสูงสุดของa ช่วงไดนามิก .
สถานการณ์:
ทุกครั้งที่เราเพิ่มตัวเลขและคลิกปุ่มคำสั่ง เราต้องการให้ Excel VBA กำหนดสีค่าสูงสุดของตัวเลขเหล่านี้
สถานที่ ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:
1. ขั้นแรก เราประกาศตัวแปรหนึ่งตัวและออบเจ็กต์ Range สองรายการ ตัวแปรประเภท Double ที่เราเรียกว่าค่าสูงสุด เราเรียกวัตถุช่วง rng และเซลล์
ไม่มีขีดสุดเนื่องจาก สองเท่า, rngเนื่องจากช่วงเซลล์เนื่องจากพิสัย2. เราเพิ่มบรรทัดที่เปลี่ยนสีพื้นหลังของเซลล์ทั้งหมดเป็น 'ไม่เติม'
Cells.Interior.ColorIndex = 03. เราเริ่มต้น rng ด้วยตัวเลข เราใช้ ภูมิภาคปัจจุบัน ทรัพย์สินเพื่อการนี้ CurrentRegion มีประโยชน์เมื่อเราไม่ทราบขอบเขตที่แน่นอนของช่วงล่วงหน้า
ชุดrng = Range('A1').CurrentRegion4. เราเริ่มต้นสูงสุดด้วยค่าสูงสุดของตัวเลข เราใช้ฟังก์ชันแผ่นงาน Max เพื่อค้นหาค่าสูงสุด
สูงสุด = WorksheetFunction.Max(rng)5. สุดท้าย เราระบายสีค่าสูงสุด เราใช้ For Each Next Loop
สำหรับ แต่ละเซลล์ในrngถ้าcell.Value = สูงสุดแล้วcell.Interior.ColorIndex = 22
ต่อไปเซลล์
หมายเหตุ: แทนที่จะใช้ ColorIndex หมายเลข 22 (สีแดง) คุณสามารถใช้หมายเลข ColorIndex ใดก็ได้
6. เพิ่มหมายเลข
excel countif น้อยกว่าหรือเท่ากับ
ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน:
ไปที่บทถัดไป: ตัวแปร