MS โครงการเปลี่ยนสีข้อความในแถวตามฟิลด์สถานะ

ฉันกำลังมองหาที่จะเปลี่ยนสีของข้อความสำหรับทั้งแถวตามสิ่งที่ระบุในฟิลด์ "สถานะ"

ฉันค้นหาฟอรัมอื่นและพบวิธีแก้ไขปัญหาที่ใกล้เคียงแล้ว แต่ไม่มีสิ่งใดที่ทำในสิ่งที่ฉันกำลังมองหา ฉันตระหนักถึงคุณสมบัติไฮไลท์และการจัดรูปแบบตามเงื่อนไข แต่ฉันไม่สามารถให้พวกเขาทำสิ่งที่ฉันต้องการได้ ฉันเขียนรหัส VB ​​เพื่อทำสิ่งนี้อย่างแน่นอนประมาณ 5 ปีที่แล้ว แต่ฉันเป็นสามเณรใช้เวลาประมาณ 5 วันในการเขียนรหัสพื้นฐานมากแล้วฉันก็หลงทางเมื่อฉันออกจากงานล่าสุด :-(

ดังนั้นฉันต้องการ VBA ที่จะทำสิ่งต่อไปนี้:

• ถ้า Status = "Late" ให้สีข้อความในแถวเป็น "RED"
• ถ้า Status = "On Schedule" ให้สีข้อความในแถวเป็น "GREEN"
• หาก Status = "Future Task" ให้สีข้อความในแถวเป็น "BLACK"
• ถ้า Status = "Complete" ให้สีข้อความในแถวเป็น "GREY"

ฉันชอบที่จะได้รับขั้นสูงและมีสิ่งต่อไปนี้: ถ้าสถานะ = "ตามกำหนดเวลา" และ% เสร็จสมบูรณ์คือ <85% และ "วันที่เสร็จสิ้น" คือ <5 วันในอนาคตจากนั้นให้สีข้อความในแถว "ส้ม "

Sub CompletePercentSub ()

Dim t As Task Dim i As Integer

ซ้ำผ่านไฟล์โครงการ ms ทั้งหมด

i = 1 สำหรับแต่ละ t ใน ActiveProject.Tasks

SelectRow Row:=i, RowRelative:=False

If Not t Is Nothing Then

    Select Case t.Status
        Case 0 'Complete
            Font32Ex CellColor:=&H98FB98 'LIGHT GREEN
        Case 1 'On Schedule
            Font32Ex CellColor:=&HE0FFFF 'TAN
        Case 2 'Late
            Font32Ex CellColor:=&HC0FF& 'LIGHT RED
        Case 2 'Future Task
            Font32Ex CellColor:=&HFFFFFF 'WHITE
    End Select
End If

i = i + 1

ถัดไป

ส่วนท้าย