การจัดรูปแบบตามเงื่อนไขใน MS Project


0

ฉันต้องใช้การจัดรูปแบบตามเงื่อนไขเพื่อเปลี่ยนสีของแบบอักษรเป็นสีขาวในฟิลด์ 'ต้นทุน' หากตัวเลขอยู่ระหว่าง 0-500 ฉันต้องการจัดรูปแบบฟิลด์ "ต้นทุน" เท่านั้นไม่ใช่ทั้งแถว

ฉันจะขอบคุณถ้าคนที่มีพรสวรรค์สามารถช่วยฉันได้

คำตอบ:


1

ไม่สามารถทำได้โดยกำเนิด แต่สามารถทำได้ด้วยรหัส VBA บางอย่าง ฉันได้คัดลอกตัวอย่างที่ฉันเตรียมไว้ก่อนหน้านี้ซึ่งใช้การจัดรูปแบบกับคอลัมน์ flag1 ตามค่าของมัน การปรับแต่งเล็กน้อยควรทำให้สิ่งที่คุณต้องการได้รับ คุณจะต้องเรียกใช้รหัสเพื่อรีเฟรชซึ่งจะไม่คำนวณใหม่หลังจากแก้ไขแต่ละครั้ง

ฉันหวังว่าจะช่วยแอนดรู

    Sub ApplyFormattingToFlag1()
' ===================================================================================
' ===== This section applies the formatting to the current view                 =====
' ===================================================================================
Dim t As task
Dim pj As Project
Dim boo_AnyYes
Dim app As Application
Set app = MSProject.Application
Set pj = activeProject
boo_AnyYes = False
    For Each t In pj.Tasks

        If t.Flag1 = True Then
            boo_AnyYes = True
        End If

    Next t


    With app
        .ScreenUpdating = False ' Attempt to stop the screen refreshing

        .FilterApply "&All Tasks"
        .OutlineHideSubTasks
        .OutlineShowAllTasks

        .SelectTaskColumn Column:="flag1"

        If boo_AnyYes Then
            .FontEx CellColor:=1, Pattern:=1
        Else
            .FontEx CellColor:=16, Pattern:=0
        End If

    End With
End Sub
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.