[[20040709142704]]　『別シートに必要項目だけ抜き取る』（エビ）　ページの最後に飛ぶ

『別シートに必要項目だけ抜き取る』（エビ）

別シートで集計されている合計値を取得して一覧表を作成したいと思っています。

 シート1
 日付　値1　値2　値3
 7/9    1    1    0
        1    1    0
        1    1    2
 合計   3    3    2
 7/10   1    2    0
        0    1    3
        1    0    0 
 合計   3    3    2
　・
　・
　・

 シート2
 入力項目    ボタン
 日付  合計1  合計2  合計3
 7/9	3	3	2
 7/10	3	4	2

 *シート1は随時下にデータを追加していく予定。
 *シート2の入力項目は「テキストボックス」ボタンは「コマンドボタン」です。
　テキストに日付を入れコマンドボタン押下後、その日付より未来の合計値を表にしたい。

別シートのデータを別シートで一覧表示、このような事はできるのでしょうか？
説明が足らない部分があるとは思いますがよろしくお願いします。
Windows98
Excel2000

 Sheet11の「合計」を「7/9合計」「7/10合計」という項目にすれば、
 Sheet2の合計1のセルに =IF(A3="","",VLOOKUP(A3&"合計",Sheet1!$A:$D,2,0))
 合計2のセルには =IF(A3="","",VLOOKUP(A3&"合計",Sheet1!$A:$D,3,0))
 合計3のセルには =IF(A3="","",VLOOKUP(A3&"合計",Sheet1!$A:$D,4,0)) 
 と指定して、それを下にコピーしておけば、A列に日付が入った時点で
 一応合計値を参照できると思うのですが、いかがでしょうか？（スー）

 Sheet1のA列は日付と次の日付の間に必ず合計が入るということで、

 Sheet2のA2に
 =INDIRECT("Sheet1!A"&SMALL(IF((ROW(Sheet1!$A$1:$A$100)>=MATCH($A$1,Sheet1!$A$1:$A$100,0))*(ISNUMBER(Sheet1!$A$1:$A$100)),ROW($A$1:$A$100)),ROW(A1)))
 として、Ctrl+Shift+Enter で確定後フィルダウン

 Sheet2のB2に
 =IF(A2="","",INDIRECT("Sheet1!"&CHAR(COLUMN()+64)&SMALL(IF((Sheet1!$A$1:$A$100="合計")*(ROW($A$1:$A$100)>MATCH($A2,Sheet1!$A$1:$A$100,0)),ROW($A$1:$A$100)),1)))
 として、Ctrl+Shift+Enter で確定後フィルライト+フィルダウン

 Sheet2のA1に日付を入力すれば、その日を含む以降の日付をA列に、その次にくる
 合計行の各列の値を、B,C,D,E....に表示
 エラー処理をしていませんので、条件付書式でフォントを白にでもしてください。
　(jindon)

 フィルターオプションはどうでしょう？
 Sheet1の「合計」を日付に変更すれば、
 Sheet2に
 日付  値1  値2  値3
 >=2004/7/9
 として
 Sheet3の見出しを右クリックコードを表示させて

 Private Sub Worksheet_Activate()

 Cells.Clear

 Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Sheet2").Range("A1:D2"), CopyToRange:=Range("A1"), Unique:=False

 Range("A65536").End(xlUp).Offset(1).Select

 End Sub

 (夏目雅子似）

コメント返信：

[ 一覧(最新更新順) ]

[[20040709142704]] 『別シートに必要項目だけ抜き取る』（エビ） ページの最後に飛ぶ

[[20040709142704]]　『別シートに必要項目だけ抜き取る』（エビ）　ページの最後に飛ぶ