お世話になります。
エクセルで原価管理をしています。
一つのシートに
日付 コード番号 支払先 品名 金額 消費税
3/31 405 A社 ○× 200,00 10,000
3/31 308 B社 △◎ 300,00 15,000
このような感じでデータを打ち込んでいます。
今やってる方法は、データを打ち込んだ後に、データの並び替えで
コード番号、日付の順で並び替えて、コード番号ごとに別のシートに
貼り付けて支出台帳を作成して集計しています。
このような場合、データを打ち込むシートに入力したら、別シートに
コード番号毎の行だけを返せる方法をご教示願います。
No.2ベストアンサー
- 回答日時:
今仮に、元データが入力されているシートがSheet1で、日付と入力されているセルがSheet1のA1セルであるものとします。
まず、別シートを新たに作成し、そのシートのシート名を
405
や
308
といったコード番号と同じ名称として下さい。
次に、別シートの
A1セルに コード番号
A3セルに 日付
B3セルに 支払先
C3セルに 品名
D3セルに 金額
E3セルに 消費税
と入力して下さい。
次に、別シートのB2セルに次の数式を入力して下さい。
=MID(CELL("filenane",B1),FIND("]",CELL("filenane",B1))+1,99)
これで、B1セルにシート名(即ちコード番号と同じ文字列)が自動的に表示されます。(或いは、B1セルに、単にコード番号をキーボード入力するだけでも構いません)
次に、別シートのA4セルに次の数式を入力して下さい。
=IF(OR(ROWS($3:3)>COUNTIF(Sheet1!$B:$B,$B$1),COUNTIF(Sheet1!$1:$1,A$3)=0),"",INDEX(OFFSET(Sheet1!$A:$A,,MATCH(A$3,Sheet1!$1:$1,0)-1),SUMPRODUCT(ROW(Sheet1!$B$1:INDEX(Sheet1!$B:$B,MATCH(9^9,Sheet1!$A:$A)))*(Sheet1!$B$1:INDEX(Sheet1!$B:$B,MATCH(9^9,Sheet1!$A:$A))&""=$B$1&"")*(COUNTIF(OFFSET(Sheet1!$B$1,,,ROW(Sheet1!$B$1:INDEX(Sheet1!$B:$B,MATCH(9^9,Sheet1!$A:$A)))-ROW(Sheet1!$B$1)+1),$B$1)=ROWS($3:3)))))
次に、別シートのA4セルをコピーして、別シートのB4~E4の範囲に貼り付けて下さい。
次に、別シートのA4セルの書式設定を[日付]として下さい。
次に、別シートのA4~E4の範囲をコピーして、同じ列の5行目以下に貼り付けて下さい。
最後に、Sheet1の元データーを、データの並び替えで日付順に並べ替えて下さい。
これで、コード番号毎に抽出した内容が表示されます。
尚、別のコード番号の抽出結果を表示させるシートを作成する場合には、1枚目の別シートを複製したシートを作成し、そのシートのシート名を、新しいコード番号と同じ名前に書き換えるだけでOKです。
詳細な回答ありがとうございます。
「これで、B1セルにシート名(即ちコード番号と同じ文字列)が自動的に表示されます。」
やり方が悪いのか、この部分だけがうまくいきませんでした。
それ以外はうまくいきました。
どのように勉強したらあんな数式が作れるようになるのでしょうか。
感動しました。
ありがとうございました。
No.1
- 回答日時:
Excelのバージョン等がわかりませんが、
Excelのデータベース機能を使えばできるように思われます。
やり方をずばり解説されているサイトを見つけました。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …
各コード番号の分だけ作っておけば、各シート側では 右クリック→データの更新だけで、
行を持ってくることができるはずです。
参考URL:http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
このインバウンドで思う所は・...
-
やりがいを感じてもいいのか
-
学生バイトの人って、自分の働...
-
役職が複数ある場合の紹介の仕...
-
気付きました。
-
ハーバードビジネススクール卒...
-
75
-
2025年から定年が65歳に義務付...
-
トヨタグループの不正が相次い...
-
自分の中では仕事ができる人=...
-
今でも日本の東北地方などから...
-
日本はG7を辞退すべきでは? 20...
-
私に向いている仕事を教えてく...
-
40代半ばから月収100万稼ぐには...
-
仕事で使う体力はどうすれば、...
-
今、解雇を迫られています、、
-
企業で電話対応されている方に質問
-
仕分けの仕方がわかる方、教え...
-
退職時の菓子折り郵送について
-
湘南地域で1番大きい会社、年収...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
今、解雇を迫られています、、
-
電動ヘリコプターをなぜ執拗に...
-
会社への診断書の提出について
-
役職が複数ある場合の紹介の仕...
-
自分は今内定の会社入ったら社...
-
日本に来る外国人から入国税と...
-
仕事
-
歴史は繰り返す? こんなニュー...
-
40代半ば男です。 腰を据えて同...
-
職場で自分と同じ苗字の女性に...
-
今、色々な物の「出張買取」と...
-
仕事
-
株式の暴落する日は、強風の日...
-
企業で電話対応されている方に質問
-
仕事で使う体力はどうすれば、...
-
会社の弔事対応業務の流れについて
-
買わなきゃ損だの、今だけ!だ...
-
50歳で新しい部署に
-
地元の零細物流会社で働き始め...
-
日本はG7を辞退すべきでは? 20...
おすすめ情報