2016-09-01 3 views
0

セルが空の場合、赤色で塗りつぶす必要があります(colorindex = 3) 範囲はC6:O735です。EXCEL VBA列内のすべての空白セルを検索するC:Oと赤色に着色する

このコードを試しましたが、機能しませんでした。

Additionaly
Sub Empty_Cells() 
    Dim myRange As Range 
    Set myRange = Sheet1.Range("C6:O735") 

    'color only blank cells 
    myRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3 
End Sub 

は、例えばセルK89が空であると言う、私は赤い色とあまりにも同じ行のA89とその空のセルを埋めたいです。

目的は、A列に移動して赤色のセルをフィルタリングするときに、空のセルを含むすべての列を表示することです。

ご協力いただければ幸いです。

+3

条件付き書式は、この点でもあなたを助けることができます。 – newguy

答えて

1

しかし、あなたはVBAでそれをしたいならば、あなたはこれを試すことができます。

Sub Lege_Cellen() 
    Dim myRange As Range,cel As Range 
    Set myRange = Sheet1.Range("C6:O735") 

    For each cel in myRange 
     if Trim(cel.value) = "" then cel.Interior.ColorIndex = 3 
    Next cel 
End Sub