300 ตัวอย่าง

ช่วงไดนามิก

Dynamic Range

ด้านล่างเราจะดูโปรแกรมใน Excel VBA ที่ระบายสีค่าสูงสุดของa ช่วงไดนามิก .





สถานการณ์:

ทุกครั้งที่เราเพิ่มตัวเลขและคลิกปุ่มคำสั่ง เราต้องการให้ Excel VBA กำหนดสีค่าสูงสุดของตัวเลขเหล่านี้





ช่วงไดนามิกใน Excel VBA

สถานที่ ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:



1. ขั้นแรก เราประกาศตัวแปรหนึ่งตัวและออบเจ็กต์ Range สองรายการ ตัวแปรประเภท Double ที่เราเรียกว่าค่าสูงสุด เราเรียกวัตถุช่วง rng และเซลล์

ไม่มีขีดสุดเนื่องจาก สองเท่า, rngเนื่องจากช่วงเซลล์เนื่องจากพิสัย

2. เราเพิ่มบรรทัดที่เปลี่ยนสีพื้นหลังของเซลล์ทั้งหมดเป็น 'ไม่เติม'

Cells.Interior.ColorIndex = 0

3. เราเริ่มต้น rng ด้วยตัวเลข เราใช้ ภูมิภาคปัจจุบัน ทรัพย์สินเพื่อการนี้ CurrentRegion มีประโยชน์เมื่อเราไม่ทราบขอบเขตที่แน่นอนของช่วงล่วงหน้า

ชุดrng = Range('A1').CurrentRegion

4. เราเริ่มต้นสูงสุดด้วยค่าสูงสุดของตัวเลข เราใช้ฟังก์ชันแผ่นงาน Max เพื่อค้นหาค่าสูงสุด

สูงสุด = WorksheetFunction.Max(rng)

5. สุดท้าย เราระบายสีค่าสูงสุด เราใช้ For Each Next Loop

สำหรับ แต่ละเซลล์ในrng
ถ้าcell.Value = สูงสุดแล้วcell.Interior.ColorIndex = 22
ต่อไปเซลล์

หมายเหตุ: แทนที่จะใช้ ColorIndex หมายเลข 22 (สีแดง) คุณสามารถใช้หมายเลข ColorIndex ใดก็ได้

6. เพิ่มหมายเลข

excel countif น้อยกว่าหรือเท่ากับ

ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน:

ผลช่วงไดนามิก

3/14 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับวัตถุช่วง >
ไปที่บทถัดไป: ตัวแปร



^