Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19721 / 76732 ←次へ | 前へ→

【62438】Re:アウトライン化
発言  SS  - 09/7/22(水) 15:32 -

引用なし
パスワード
   ▼初心者です。 さん:

こんにちは、普段アウトラインを使わないので
興味を持ち首を突っ込んでみました。
考えられているイメージはこんな感じですか?

   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文を利用して
> 値を取得できない場合は表示しないとしているものが邪魔をして計算がで
> きません。
> 
> 提供後のセルの内容を数値で変更する場合があるので
> 計算式を表示させるやり方を教えて貰うと助かります。
>
> 長くなりましたが、宜しく御願いします。 
>
>
76 hits

【62424】アウトライン化 初心者です。 09/7/21(火) 17:44 質問
【62430】Re:アウトライン化 りん 09/7/21(火) 23:13 発言
【62431】Re:アウトライン化 初心者です。 09/7/22(水) 10:03 質問
【62434】Re:アウトライン化 つるりん 09/7/22(水) 12:19 発言
【62438】Re:アウトライン化 SS 09/7/22(水) 15:32 発言
【62505】Re:アウトライン化 初心者です。 09/7/27(月) 11:13 質問
【62511】Re:アウトライン化 SS 09/7/27(月) 18:44 発言

19721 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free