エクセルの小計のみに色をつけたい。

質問

おしえてください。エクセルで小計した行全体に（小計は５０計くらいあります）網掛けや色を自動的につける方法はありますか？
よろしくお願いします。

回答No.2

imogasi · ベストアンサー

こういう事項の質問は、余り出なかったように思うが、挑戦してみました。
条件付き書式を使います。
ーー
データー集計を使って集計した、という前提です。
例　データ　A1:B15　下記は集計後の状態
B列
コード 計数
a 1
a 1
a 2
a 合計 4　＊
b 3
b 4
b 合計 7　＊
c 1
c 2
c 3
c 合計 6　＊
d 4
d 合計 4　＊
総計 21　＊
＊の行は＝SUBTOTAL(9,・・)であって、「集計」操作で自動的に式が入り小計・合計されています
ーー
ユーザー函数を定義します。（セルに式の有り無しは関数では取得できないので）
ツールーマクローVBEで出る画面で、挿入ー標準モジュール
その標準モジュール画面に下記をコピペ。
ーー
Function siki(a)
If a.HasFormula Then
f = a.Formula
If Mid(f, 1, 9) = "=SUBTOTAL" Then
siki = 1
Else
siki = 2
End If
Else
siki = 0
End If
End Function
ーーー
B1:B15を範囲指定し
書式ー条件付き書式ー数式が
=siki(B1)=1
セルのパターン色を、淡い色に設定
OK
ーー
結果
B列の合計・総計の行のセルに色が付きました。
ーー
条件付書式の式がにおいて、ユーザー定義関数が使えることが、実証できました。
なお、そのセルに数式の設定の有り無しは、関数では取得できませんので注意。

お礼

ありがとうございました。

回答No.3

mu2011

安直ですが、行内のどれかの列に「小計」又はそれに対応する文字列が設定されているとすれば、条件付き書式設定で可能ですが如何でしょうか。
（１）計算表範囲セルを選択→書式→条件付き書式
（２）「数式が」を選択、=$B1="小計"（仮にＢ列に文字列"小計"が設定されているとします）
（３）書式→パターンタブで色、網掛けパターンを選択→ＯＫ

回答No.1

shikisaito

アウトラインを使えばいいかもしれません。

1. [データ]-[グループとアウトラインの設定]-[アウトラインの自動作成]。
2. アウトライン記号の[1]を選択する。
3. 必要な行を選択する。
4. [編集]-[ジャンプ]-[セル選択]で、[可視セル]を選択して、[OK]。
　（または[Alt]+[;]）
5. 書式を設定する。
6. アウトライン記号の最も大きい数を選択する。

# 「自動的」ではないですね。