|
|
| Excel VBA Macro ・ セル制御 ・ FAQ |
|
アウトライン機能で作成された集計の行を塗りつぶすには？
|
|
|
|
Question 77.4 |
Excel VBA Borad （掲示板）より |
 |
 |
|
|
以下のような場合にする
方法を教えてください
右図は、[データ]メニュー → [集計]で操作したものですが、
「集計」行 (4と7行目) 全体に色をつけたいです。
データ行の最下段はいつも変動します。
|
|
Answer |
2006.2.3 Yoshioh Nagai |
|
|
こんな感じでしょうか。
ただし、7行目にある "集計" はExcel2003の場合です。
Excel2002では "合計"、Excel2000と97では "計" に変えてください。
Sub 集計行のセルを塗りつぶす()
Worksheets("Sheet1").Activate
右端列 = Cells(1, Columns.Count).End(xlToLeft).Column
下端行 = Range("A" & Rows.Count).End(xlUp).Row
色 = 8 '塗りつぶし色のインデックス番号
For 行 = 2 To 下端行
If Right(Range("A" & 行).Value, 2) = "集計" Then
Range(Cells(行, 1), Cells(行, 右端列)).Interior.ColorIndex = 色
End If
Next
End Sub
|
|
|
|
| |
|
|
