小計をワークシートに適用するマクロを作成しました。これで問題ありませんが、小計行を横切る境界線を追加できませんでした。条件付き書式を使用して、小計関数を含むセル行を強調表示できました。
VBAの小計行ごとに境界線を追加して背景行に色を付けることは可能ですか?
.Find メソッドを使用して、小計した関数を探します。たとえば、COUNT を使用した場合は、「count」という単語を探します。SUM を使用した場合は、「total」という単語を探します。次に、.offset メソッドを使用して、実際の合計に対するセルの数を指定し、borders プロパティを使用して境界線を追加します。例、
With Worksheet.Range(c.address).Offset(0,2).Borders(xlEdgeTop)
.Weight=xlMedium
.Color=RGB(255,0,0)
もちろん。ボーダーにはBorder プロパティを使用します。
例:
With Rows(1).Borders(xlEdgeTop) 'Applies border settings to first row
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
背景色については、次のようにColorIndex プロパティを使用するのが最も簡単だと思います。
Rows(1).Interior.ColorIndex = 3 'Red background on first row