アプリ版:「スタンプのみでお礼する」機能のリリースについて

Aさん お茶   120円✕10本=1200円
Bさん ジュース 140円✕5本=700円
Cさん おにぎり 100円✕13個=1300円
Aさん ペン   200円✕3本=600円  実際はもっと沢山のデータがあります。
この中からAさんだけのデータを別の場所へまとめたいのです。
A.B、Cさん宛てに請求書を送りたい!と思ってください。
VLOOKUP関数は数値だけのようなので 分かりません。
宜しくお願いします。

A 回答 (3件)

>A.B、Cさん宛てに請求書を送りたい!と思ってください。


エクセルのフィルターオプションの機能を使います。
詳しくは、こちらで
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …
勉強してみてください。


当然、データの1行目は項目がありますよね
 名前  品名 単価 数量
Aさん  お茶 120 10
・・・
となっているとします。
請求書のシートに

1 名前
2 Aさん

4 品名  単価 数量

と抽出する条件のセル A1:A2 名前が Aさんのデータを抽出
表示する項目 4行目に準備しておきます
請求書のシートの名前のタブを右クリック
コードの表示をクリック
VBエディターが起動したら
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Sheets("データのシート名").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:D4"), Unique:=False
End If
End Sub

を張り付けて、閉じる。
A2セルに名前を入れると、その方の一覧が出ます。
    • good
    • 0

>この中からAさんだけのデータを別の場所へまとめたいのです。


>A.B、Cさん宛てに請求書を送りたい!と思ってください。

取り敢えずデータベース(表)を作成してみましたが・・・(添付画像参照して下さい。)
元データを「Sheet1」として作成し、請求書を送る為のシートを「Sheet2」として作成。

「Sheet2」のセルA1にAさんなり、Bさんなり記入をしておきます。
「Sheet2」のセルA3に次の式を入れ「Ctrl」キーと「「Shift」キーを押した状態で「Enter」キーを押します。(式の前後に{ーー式ーー}(左中括弧と右中括弧が付きます。)
セルA3に入れる式↓
=IFERROR(INDEX(Sheet1!B$2:B$1000,SMALL(IF((Sheet1!$A$2:$A$1000=Sheet2!$A$1),ROW($A$3:$A$1000)-2),ROW(A1))),"")

「Ctrl」+「Shift」+「Enter」を押すと
{=IFERROR(INDEX(Sheet1!B$2:B$1000,SMALL(IF((Sheet1!$A$2:$A$1000=Sheet2!$A$1),ROW($A$3:$A$1000)-2),ROW(A1))),"")} となります。

あとは右方向の「合計」のセル範囲まで式をコピーし、下方向へ好きなだけ式をコピーして下さい。
※総合計はオートSUMなりSum関数で合計の最後の行に算出して下さい。
※「Sheet2」の名前を入力するセルにCさんの名前を入力するとCさんのデータが出るようになっています。
「エクセル関数を教えて下さい」の回答画像2
    • good
    • 0

条件付きで合計するならSUMIF関数です。


http://www.becoolusers.com/excel/sumif.html

しかし
>お茶   120円✕10本
この部分までも別の場所へまとめて請求書のようなものを作成するなら、関数よりもVBAで作成する方が簡単でしょう。
サンプルファイルがここからダウンロードできます。
http://www.shuwasystem.co.jp/books/7980/1797-3/1 …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!