| |
▼初心者です。 さん：
こんにちは、普段アウトラインを使わないので
興味を持ち首を突っ込んでみました。
考えられているイメージはこんな感じですか？
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
>説明不足ですいません。
>
> 集計機能を利用すると処理したい結果が実現できなかったので
> 集計機能と同じようなことを個別にＫＥＹを設定して処理しま
> した。
>
> 提供ファイルはアウトライン付きの計の行のみ表示させて、必用な
> 場合アウトラインのボタンにより個別明細を見れるようにしたいの
> です。
>
> 理由は、６０００行ぐらい明細があり、計の明細だけでも３０００行程度
> あるので、見やすくしたいためです。
>
> もし、アウトラインの設定が難しい場合は、ＶＬＯＯＫＵＰで取得した項
> 目の横の５項目のＳＵＭのやり方を教えて下さい。
> 単純にＳＵＭしても、ＶＬＯＯＫＵＰの定義でＩＦ文を利用して
> 値を取得できない場合は表示しないとしているものが邪魔をして計算がで
> きません。
>
> 提供後のセルの内容を数値で変更する場合があるので
> 計算式を表示させるやり方を教えて貰うと助かります。
>
> 長くなりましたが、宜しく御願いします。
>
>
|
|
SS
- 09/7/22(水) 15:32 -
