Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6674 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43914】オートフィルで抽出したデータを１件だけコピーするには？ 陸遜 06/10/29(日) 18:38 質問[未読]
【43915】Re:オートフィルで抽出したデータを１件だ... かみちゃん 06/10/29(日) 18:50 発言[未読]
【43918】Re:オートフィルで抽出したデータを１件だ... 陸遜 06/10/29(日) 19:15 質問[未読]
【43922】Re:オートフィルで抽出したデータを１件だ... かみちゃん 06/10/29(日) 20:00 発言[未読]
【43923】Re:オートフィルで抽出したデータを１件だ... 陸遜 06/10/29(日) 20:25 質問[未読]
【43924】Re:オートフィルで抽出したデータを１件だ... かみちゃん 06/10/29(日) 20:46 発言[未読]
【43926】Re:オートフィルで抽出したデータを１件だ... 陸遜 06/10/29(日) 21:48 質問[未読]
【43914】オートフィルで抽出したデータを１件だけ...
質問  陸遜  - 06/10/29(日) 18:38 -
引用なし
パスワード
   　現在ボランティアで会計を担当しているのですが、決算報告書を作成する
ためにマクロを組みたいと考えております。そこで、皆様方のご教示をお願い
いたします。
　毎月末に各月ごとの実績を自動で作るプログラムを使用しております。
　そこで、このシートから科目を一件だけ抽出して金額を別シートの報告書の方にコピーするといった作業をしたいと考えております。
　でも、実績がない月には、当然科目も出てこないので、特定の科目がどの行
にくるのかわかりません。そのため、オートフィルタで抽出したものをコピー
する場合には、columunを使ってコピーするしかない状態です。でも、報告書
のほうにコピーする場合は、とても都合が悪いので、できれば取り出したものを
一軒だけコピーすることにしたいのです。
　たとえば、電気料の科目を抽出して、Ｃ列の金額だけ一件をコピーしたいのです。currentregion等を使用してもうまくいきませんでしたが、なにかいい方法
はないでしょうか？

　
シート名：１０月実績

　Ａ列　　　Ｂ列　　Ｃ列　　
　支出科目　債主　　金額　

　電気料　　○○電力　５０００
　会議費　　○△会館　３２００


現在のマクロ
　Selection.AutoFilter Field:=26, Criteria1:="=*電気料*"
　Range("Z:Z").Select
　　Selection.Copy _
　　Destination:=Worksheets("報告書").Range("B2")
【43915】Re:オートフィルで抽出したデータを１件...
発言  かみちゃん E-MAIL  - 06/10/29(日) 18:50 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> なにかいい方法はないでしょうか？

私も会計報告書は、よく作るのですが・・・
実績シートのイメージは提示されているのでわかりますが、
報告書シートのイメージはどのようなものですか？
科目名などがあらかじめ決まっているのであれば、ワークシート関数だけで
できると思います。
また、科目名などが空白であれば、ピボットテーブルが使えるのではないでしょうか？
【43918】Re:オートフィルで抽出したデータを１件...
質問  陸遜  - 06/10/29(日) 19:15 -
引用なし
パスワード
   ▼かみちゃん さん：
お返事ありがとうございます。報告書の書式ですが、以下のようになって
おります。また、実績表とは別のファイルでした。
　Ｂ列に金額を入力していくという書式なのですが、一件別でコピーできない
とすると数式が消えてしまうことと、セルの書式設定が変わってしまうことが
あってなかなかうまくいきません。ピボットテーブルを使ったとしても、
月によっては科目が出たり出なかったりしますので、集計された表をそのまま
コピーできない状態となっております。

Ａ列　　　Ｂ列
光熱水料　10000　
　電気料　　3000
　上水道料　2500
　下水道料　1500
　ガス料　　4000

消耗品費
　事務用品
　業務用品

備品費
　事務用品
　業務用品
【43922】Re:オートフィルで抽出したデータを１件...
発言  かみちゃん  - 06/10/29(日) 20:00 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> Ｂ列に金額を入力していくという書式なのですが、一件別でコピーできない
> とすると数式が消えてしまうことと、セルの書式設定が変わってしまう

数式が消えたり、書式設定が変わったりという意味がまったくわからないのですが
たとえば、

Sheet1（10月実績）
　　　A　　　　 B　　　 C　
1　支出科目　債主　　　金額　
2　電気料　　○○電力　5000
3　会議費　　○△会館　3200
4　電気料　　××電力　2000

Sheet2（報告書）
　　　A　　　　B
1　支出科目　金額　
2　電気料　　7000
3　会議費　　3200
4　備品費　　　 0

というようになっていれば（ここでは別ブックとはまだ考えないでください）
Sheet2のB列には、
=SUMIF(Sheet1!A:A,A2,Sheet1!C:C)
という数式だけで集計できます。

>消耗品費
>　事務用品
>　業務用品
>
>備品費
>　事務用品
>　業務用品

あとは、これらは、どのような集計をしたいのでしょうか？
【43923】Re:オートフィルで抽出したデータを１件...
質問  陸遜  - 06/10/29(日) 20:25 -
引用なし
パスワード
   ▼かみちゃん さん：
たびたび申し訳ありません。先ほどの件ですが、１列ごとコピーペーストしてしまうと、数式が消えてしまうという意味で書かせていただきました。報告書の方には科目の中にさらに内訳があるものもありまして、それら細かいものの合計を算出するために数式が入っています。具体的には以下のような感じです。

消耗品費　 5000
　事務用品 4000
　業務用品 1000

>備品費　　70000
　事務用品 30000
　業務用品 40000

　列を丸ごとコピーすると消耗品費の横にある数式が消えてしまいます。各科目の毎月の実績をある書式に入れて報告するというものです。

　あと、実績表のほうは、あるシステムからダウンロードするようになっており
まして、そのままの表ですと、データが入っているのみです。新たにSUMIF等の
処理をするとなると、大幅な時間がかかってしまうのではないかと考えて、
一件抽出してコピーする方法はないかと思ったのです。
【43924】Re:オートフィルで抽出したデータを１件...
発言  かみちゃん  - 06/10/29(日) 20:46 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 実績表のほうは、あるシステムからダウンロードするようになっており
> まして、そのままの表ですと、データが入っているのみです。新たにSUMIF等の
> 処理をするとなると、大幅な時間がかかってしまうのではないかと考えて、
> 一件抽出してコピーする方法はないかと思ったのです。

システムからダウンロードしたデータに基づいて、所定の様式に集計する方法は
私も仕事で普段からよくしている処理なので、そういうデータが何レコードくら
いあるのかわかりませんが、SUMIFだと処理に時間がかかることは考えられます。

> 具体的には以下のような感じです。

申し訳ないですが、よくわかりません。
もう一度
実績表と報告書の関係をシートイメージで説明していただけませんか？
特に科目の中にさらに内訳があるものは、どういうデータになっていて、
どのように集計したいのかをきちんと説明していただけませんか？
　　 A　　 B　　 C
1
2
3
【43926】Re:オートフィルで抽出したデータを１件...
質問  陸遜  - 06/10/29(日) 21:48 -
引用なし
パスワード
   ▼かみちゃん さん：
たびたびすみません。元のデータと報告書の様式をもう少し詳しく書かせて
いただきます。最初は元データのＢ列をオートフィルタで抽出してコピーすれば
それで足りると考えていたのですが、書式が合致しないことと、支払い実績の
ないデータはＡ列に出てこないことがあって、各科目の行の位置が予測できない
ようになっています。
　また、報告書には独特の分類が求められていて、私どもが普段やっている区分とは別物になっています。その数式をつぶさないようにできればそれにこしたことはないと考えています。

以下は、元のデータの書式です。

Ａ列　　　　　　　Ｂ列　　　　Ｃ列
予算事項　　　　予算科目　　　　　
一般活動費
　　　　　　　消耗品（事務）　5000
　　　　　　　消耗品（業務）　3000
　　　　　　　修繕工事（大）150000
　　　　　　　修繕工事（小） 50000
　　　　　　　電気料　　　　　5000
　　　　　　　上水道料　　　　4000
　　　　　　　下水道料　　　　3000
延々とこの列が続きます。


以下は報告書の書式です。

Ａ列　　　Ｂ列　　　Ｃ列　　Ｄ列
大科目　中科目　　小科目　　金額
光熱水料　　　　　　　　　　22000←分類ごとの合計。
　　　　電気料　　　　　　　　　10000
　　　　水道料　　　　上水道　　 4000
　　　　水道料　　下水道　　 3000
　　　　ガス料　　　　　　　　　 5000
工事費　
　　　　修繕費　　小工事　　 50000
　　　　　　　　　大工事　　150000
　　　　材料費　　小工事
　　　　　　　　　大工事
このような列が延々と続きます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6674 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free