/ / วนผ่านคอลัมน์ทั้งหมดใน Excel VBA

วนรอบทั้งคอลัมน์ใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่ ลูปผ่านคอลัมน์แรกทั้งหมด และสีค่าทั้งหมดที่ต่ำกว่าค่าที่กำหนด

วนรอบทั้งคอลัมน์ใน Excel VBA

วนรอบทั้งคอลัมน์ใน Excel VBA

วางปุ่มคำสั่งในแผ่นงานของคุณและเพิ่มบรรทัดรหัสต่อไปนี้:

1. ก่อนอื่นให้ประกาศตัวแปร i ที่ชื่อว่า long เราใช้ตัวแปรประเภท Long ที่นี่เนื่องจากตัวแปร Long มีขนาดใหญ่กว่าตัวแปร Integer

Dim i As Long

2. จากนั้นเพิ่มบรรทัดโค้ดซึ่งจะเปลี่ยนสีตัวอักษรของเซลล์ทั้งหมดในคอลัมน์ A เป็นสีดำ

Columns(1).Font.Color = vbBlack

3. เพิ่มลูป

For i = 1 To Rows.Count

Next i

บันทึก: เวิร์กชีทสามารถมีได้สูงสุด 65,536 แถวใน Excel 2003 และ 1,048,576 แถวใน Excel 2007 หรือสูงกว่า ไม่ว่าคุณกำลังใช้เวอร์ชันใดอยู่ก็ตามโค้ดแถวดังกล่าวจะวนรอบแถวทั้งหมด (ไฟล์ Excel ที่สามารถดาวน์โหลดได้อยู่ในรูปแบบ Excel 97-2003)

4. จากนั้นเราจะกำหนดค่าสีทั้งหมดที่ต่ำกว่าค่าที่ป้อนลงในเซลล์ D2 เซลล์ที่ว่างเปล่าจะถูกละเลย เพิ่มบรรทัดรหัสต่อไปนี้ลงในลูป

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน (อาจใช้เวลาสักครู่):

วนรอบทั้งผลลัพท์

วนรอบทั้งผลลัพท์

อ่านเพิ่มเติมได้ที่: