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