錦子老師

季宏康：錦子老師您好，我想寫一個VBA程式，以下為條件：

1.A1到C1為變數，第2列至第11列顏色中數字相符的儲存格填入黃色。

2.A2到C2為變數，第2列至第11列顏色中數字相符的儲存格填入綠色。

3.A3儲存格手動輸入日期，自動對應到E1:G1欄儲存格日期，改變符合日期欄位第2列至第11列顏色。

錦子老師：這個問題，我的做法如下：

Œ 按ALT+F11開啟VBA視窗。

 點取「插入 > 模組」指令，插入一個空白模組表。

Ž 輸入下列程序。

Sub TEST3548()

Dim u As Integer

u = 0

For x = 5 To 7

    If (Cells(3, 1) = Cells(1, x)) Then

       u = x

     End If

Next x

If u > 0 Then

  For i = 2 To 11

    For k = 1 To Range("A1").End(xlToRight).Column

      If (Cells(i, u) = Cells(1, k)) Then

        Cells(i, u).Interior.ColorIndex = 6

      ElseIf (Cells(i, u) = Cells(2, k)) Then

        Cells(i, u).Interior.ColorIndex = 4

      End If

    Next k

  Next i

End If

End Sub

 按F5鍵或點取一般工具列「執行SUB或USERFORM」圖示，執行本巨集。

 按CTRL+F4鍵關閉VBA視窗，工作表結果如下圖：

希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我