[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『太郎さんだったら¥2350とセルに自動で入力』(ありんこ)
教えてください
BOOK1 番号 乗 車 日 名前 経路 金 額 通行料 合計金額 2987 2003/10/6 太郎 中央〜長沼 \2,350 \2,350 3030 2003/9/30 花子 新宿〜雑色 \9,040 \700 \9,740 3032 2003/10/1 太郎 有楽町〜仲六郷 \5,450 \700 \6,150 3035 2003/10/7 桃子 東京〜雑色 \6,010 \700 \6,710
BOOK2 NO 太郎 花子 桃子 1 ¥2,350 \3,200 8,320 \14,760 2 ¥6,150 \2,340 3,460 \17,490 3 \3,840 4 5
上記のような2つのブックがあったとします。
BOOK2の方に、太郎さんだったら¥2.350 とセルに自動で入力されるように
するにはどうしたらいいのでしょうか??
上記で行くと、太郎さんは10/6,10/1の2回乗車したことになりますが
それをBOOK2のセルの1、2のところにそれぞれ自動で入力するようには
できるでしょうか??
VBAだと簡単なのですが、数式は苦手なので難しい・・・ こんな式を書いてみたけど、空白行が空いてしまって詰められなかったです。 =IF([Book1]Sheet1!C2=$B$1,[Book1]Sheet1!E2,"")
(INA)
このような形式は家計簿や会計処理でよく見かけそうですね。
VBA 参考まで、、ほんとに参考までなんですが。。
1)同番号でまとめる 2)同日付でまとめる 3)ありんこさんがご希望の、名前で処理する
一つの処理コードで 後は応用でしょうかね。
この中の一つでも もし、よろしかったら INAさんの VBA をお願いしたいんですが? (jun53)
私は花子さん桃子さんの表と説明のイメージが合致していないと思うのですが。
(kazu)
確かに単純足し算で 計算が???ですね 深〜〜い 意味があるのでしょうか?? 不 思 議 (jun53)
私は右端の横の合計欄が気になります。 別人で経路も違って日付も違う交通費を足す事にどんな意味が?? (怜子)
jun53さん。こんにちは。 VBA 作ろうかと思って考えていたのですが、 このような処理ってピボットテーブルで出来ないのでしょうか? 一般機能をあまり使ったことが無いので詳しくないのですが、 なんとなく出来そうに思ったので・・・ (INA)
これはケン氏の得意科目につき、本当は、ケン氏にとっておかねばならないところですが、ケンちゃんだったらこうする だろうなぁと考えているうちに、載せてしまって、ゴメンナサイ。エラー処理はしていません。お使いの折は、条件付 書式による空白化等で、エラーを消して下さい。
{=INDEX([Book1]Sheet1!E1:E5,SMALL(IF([Book1]Sheet1!C1:C5="太郎",ROW([Book1]Sheet1!C1:C5),""),ROW()-1))}
なお、質問者の記載どおりやっていますが、本当は、費用発生日付順にならなければならないだろうと思いますけど… (通りすがりの者)
通りすがりの者さん、気遣い有難うございます。(ケン)
BOOK1
東京交通
名前 所属 金額
1 太郎 経営 ¥1,000 2 花子 経理 ¥2,000 3 太郎 経営 ¥1,000 4 桃子 経理 ¥1,500 神奈川交通 名前 所属 金額 1 太郎 経営 ¥5,000 2 花子 経理 ¥2,000
BOOK2
東京交通シ−ト 神奈川交通シ−ト 太郎 花子 桃子 太郎 花子 1 1,000 2,000 1,500 1 ¥5,000 ¥2,000 2 1,000 合計 2,000 2,000 1,500 合計 ¥5,000 ¥2,000
各部署シ−ト
1、経営 7,000 2、経理 5,500 合計 12,500 合計シ−ト 太郎 花子 桃子 1 1,000 2,000 1,500 2 1,000 2,000 3 5,000 合計 7,000 4,000 1,500 総計 12,500
上記のようにBOOK1のデ−タを元にして
BOOK2の各シ−トにデ−タが自動で入るようにしたいということです。
すみません上手く説明がちゃんとできなくて・・・・
毎月定例で行う作業のため、処理を簡素化したいというのが目的です。
BOOK1のデ−タをいちいちBOOK2の各該当セルにコピ−貼付をするのが
大変手間だと思い、なにか良い方法があればと思って質問しました。
考えている内に衝突してしまいましたのでシート名は直して下さい。Book2の合計シート のA1に =IF(COUNTIF([Book1.xls]Sheet1!$C$2:$C$20,B$1)<ROW(A1),"",INDIRECT(ADDRESS(SMALL(IF([Book1.xls]Sheet1!$C$2:$C$20=B$1,ROW($C$2:$C$20)),ROW(A1)),5,,,"[Book1.xls]Sheet1"))) でCtrl+Shift+Enterで良いと思いますが何分最初とシートレイアウト等が変わってし まいましたので、参照等が違っていたら、すいません。(ケン)
ありんこさんは、解決の目処がついたようで良かったですね。
INAさんのピボットテーブル攻撃に 通りすがりの者さん、ケンさんの配列式攻撃
ここは、見なかった事にして逃げるしか無いみたいです。。 (jun53)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.