錦子老師

白興文：錦子老師您好，我想寫一個VBA程式，條件為：A到F欄，同一列中有兩個以上儲存格內容為0時。儲存格填滿黃色。

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

Œ 按ALT+F11開啟VBA視窗。

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

Ž 輸入下列程序。

Sub TEST3553()

x = Range("A1").End(xlToRight).Column

RowNo = Range("A1").End(xlDown).Row

For y = 1 To RowNo

  If ((Application.Sum(Range(Cells(y, 1), Cells(y, x)))) <= (x - 2)) Then

    Range(Cells(y, 1), Cells(y, x)).Interior.Color = RGB(255, 255, 0)

  End If

Next y

End Sub

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

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

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

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

更多相關文章：請點我