0

次のコードがあります。

Case "END-BOX"
    EndBox = ActiveCell.Row
    Selection.Offset(-1, 2).Select
    Selection.ClearContents
    Rows(2).Insert Shift:=xlDown
    TotalCols = ActiveSheet.UsedRange.Columns.Count
    Col = 4

    Cells(EndBox, Col).Select

    For i = EndBox To 1 Step -1
        If Cells(i, Col).Value <> "" Then
            n = n + 1
        Else
            Cells(i, Col).Value = n
            Cells(i, Col).Interior.ColorIndex = 4
            n = 0
        End If
    Next

    Range(EndBox).Select
    Selection.Offset(1, -2).Select

これにより、新しいボックス行だけでなく、エンド ボックス行にも緑色のセルが表示されます。new-box の行だけに色を付けたいです。これを行うようにコードを変更する方法はありますか?

これが私のワークブックです。

4

2 に答える 2

0

次の行を削除します。

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

これは、セルの色を設定している行です。

列 B に「new-box」がある行のみに色を付けるには、その行を次のように変更します。

If Cells(i, Col).Offset(0, -2).Value = "new-box" Then Cells(i, Col).Interior.ColorIndex = 4

注: これにより、以前に適用された色の書式設定が取り消されることはありません。

于 2013-02-20T15:17:12.487 に答える