使用VAB根據單元格值有條件地格式化行

Question

我正在一張工作表上處理每個人都在做的任務，並對它們進行錯誤處理，並且我很難對行進行格式化，因為word 2003只允許您執行三種格式，而我今天已經用完了！ 我想這樣格式化行；

如果單元格C ##中的數字為1，則行調整為紅色，如果其2變為橙色，如果為3則變為黃色，如果其4變為淺綠色，如果其5變為深綠色。

同樣，如果單元格F ##為“是”，則索具的顏色為灰色，並且文字被划掉。

最后，如果單元格D ##中的日期已過期，則整個行的寫入都會變為粗體。

我知道可以在excel 2010上輕松完成此操作，但我們尚未進行升級。

可以幫忙嗎？

謝謝。

Answer 1

這是您可以詳細闡述的快速入門；

輸入ALT + F11; VBA編輯器將出現，在左側面板中找到您的工作表（如果沒有該面板，請按CTRL + R），雙擊您的工作表，其模塊將顯示在右側面板中

復制並粘貼以下代碼：

Sub update_color_codes()


    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    numrow = Selection.Rows.Count

    For r = 1 To numrow

    c = Cells(r, 3).Value

    Select Case c

           Case 1
           pickedcolor = RGB(0, 255, 0)
           Case 2
           pickedcolor = RGB(0, 125, 0)
           Case 3
           pickedcolor = RGB(255, 255, 0)
           Case 4
           pickedcolor = RGB(125, 125, 0)
           Case 5
           pickedcolor = RGB(255, 0, 0)


    End Select 'c


    With Range(Cells(r, 1), Cells(r, 6)).Interior
        .Pattern = xlSolid
        .Color = pickedcolor
    End With



    Next 'r = 1 To numrow



End Sub

若要運行此宏，請鍵入ALT + F8，在列表中選擇它，然后單擊“運行”。

為了簡化此過程，請創建一個類似以下的鍵盤快捷鍵：鍵入ALT + F8，在列表中將其選中，然后單擊“選項”，輸入您的快捷鍵（我建議您使用不會干擾默認快捷鍵的控件，例如CTRL + SHIFT + U）

假設您的列表從A1開始並有6列，根據需要進行更正； 宏的開頭是行數；

使用RGB值直到滿意為止，並探索VBA以調整此代碼以控制字體粗細等。

希望有幫助