0

Excelでフォントサイズの条件付き書式を設定しようとしていますが、書式メニューからは実行できないため、VBAで実行する必要があります。

B6から行数までの範囲があり、その隣のセルを見て、空白かどうかを確認したいと思います(列C)。その場合は、セルを太字と11ポイントにフォーマットします。空白でない場合は、通常の9ポイントである必要があります。

その分の私のコードは、最後の行を太字にして11ptにし、列Cが空であっても、残りの列は通常の9ptになります。

何が問題になっていますか?ところで、私はExcel2003を使用しています

Dim c As Range, rng
Dim LASTROW As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row

Set rng = Range("B6:B" & LASTROW)
For Each c In rng
    If Len(c.Offset(1, 0)) = 0 Then
        c.Font.Bold = True
        c.Font.Size = 11
    Else
        c.Font.Bold = False
        c.Font.Size = 9
    End If
Next c
4

3 に答える 3

3

オフセットパラメータは逆方向です。現在のセルの下のセルをチェックしています。

于 2012-05-29T15:39:07.403 に答える
2

方法は次のとおりです

トリックは、左上のセル用にコード化された単一のルールを使用することであることに注意してください

于 2012-05-29T15:45:30.057 に答える
0

これにはマクロは必要ありません。条件付き書式の数式を使用して実行できます。

列Cのセルの値が「赤」のときに、列Bの隣接するセルを赤で強調表示するとします。

=IF(C6="Red",TRUE,FALSE)

次に、通常どおりフィルハンドルを入力します。

ルールエディタ(2007):

ここに画像の説明を入力してください

于 2012-05-29T15:40:56.590 に答える