|
▼初心者です。 さん:
こんにちは、普段アウトラインを使わないので
興味を持ち首を突っ込んでみました。
考えられているイメージはこんな感じですか?
A B
2 AAA 100
3 AAA 200
4 AAA 100
5 AAA 200
6 AAA 1,000
7 AAA 50
8 AAA計 1,650
9 BBB 50
10 BBB 100
11 BBB 200
12 BBB計 350
13 総合計 2,000
Sub Macro1()
'
Dim Row1 As Double, Row2 As Double, Row3 As Double
Dim Row4 As Double, Row5 As Double
Selection.ClearOutline
'番号検索はもっと良い方法があると思います。
Row1 = Range("A:A").Find("AAA").Row
Row2 = Range("A:A").Find("AAA計").Row - 1
Row3 = Range("A:A").Find("BBB").Row
Row5 = Range("A:A").Find("BBB計").Row
Row4 = Row5 - 1
Range(Cells(Row1, 1), Cells(Row5, 1)).Rows.Group
Range(Cells(Row1, 1), Cells(Row2, 1)).Rows.Group
Range(Cells(Row3, 1), Cells(Row4, 1)).Rows.Group
End Sub
>説明不足ですいません。
>
> 集計機能を利用すると処理したい結果が実現できなかったので
> 集計機能と同じようなことを個別にKEYを設定して処理しま
> した。
>
> 提供ファイルはアウトライン付きの計の行のみ表示させて、必用な
> 場合アウトラインのボタンにより個別明細を見れるようにしたいの
> です。
>
> 理由は、6000行ぐらい明細があり、計の明細だけでも3000行程度
> あるので、見やすくしたいためです。
>
> もし、アウトラインの設定が難しい場合は、VLOOKUPで取得した項
> 目の横の5項目のSUMのやり方を教えて下さい。
> 単純にSUMしても、VLOOKUPの定義でIF文を利用して
> 値を取得できない場合は表示しないとしているものが邪魔をして計算がで
> きません。
>
> 提供後のセルの内容を数値で変更する場合があるので
> 計算式を表示させるやり方を教えて貰うと助かります。
>
> 長くなりましたが、宜しく御願いします。
>
>
|
|