いつもエクセルテクニックを学ぶために活用させていただいております。
今回はみなさまの過去の質問を見ても解決できなかったので、質問させていただきました。
■使用しているデータ
営業スタッフ向けに顧客リストを作成しています。
私のほうで、全営業スタッフの担当する顧客名、業種、購入額の一覧を作りました。
【EXCELのシート1】
A列 B列 C列 D列
営業 顧客名 業種 購入額
1 山田 A社 食品 10万
2 山田 B社 食品 20万
3 山田 C社 医療 10万
4 田中 D社 食品 30万
5 田中 E社 小売 15万
■作りたいもの
各営業スタッフが自分の名前を入力すると、自分の顧客の名前、業種、購入金額を検索でき、リスト化できる機能です。
具体的にいうと・・・
1)シート2のA1に自分の名前(例:山田)を入力
2)シート2のA3以下に担当顧客が表示される
【EXCEL シート2】
A列 B列 C列 D列
1 山田
2
3 山田 A社 食品 10万
4 山田 B社 食品 20万
5 山田 C社 医療 10万
私自身マクロに詳しくなく・・・大変困っております。
オートフィルタを使えばいいのですが、営業スタッフが
エクセルに精通しておらず恐らく使いこなせないのです。
「A1に自分の名前を入力してください」と言うだけで
リスト化できる機能についてどなたかご教授いただければ幸いです。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
ピボットテーブルでやれば、こんな感じです。
<1案>
..1.........営業...........山田←ページフィールドで営業担当者名を選択
..3合計 : 購入額.................................
..4.....顧客名...........業種..........計
..5...........A社...........食品...100000
..6...........B社...........食品..200000
..7...........C社...........医療...100000
..8.........総計.....................400000
なお、小計を消す操作をしています。
<2案>
A列で表示したい営業マン名だけにチェック
..1合計 : 購入額........................................
..2.........営業.顧客名.....業種..........計
..3.........山田.......A社.....食品...100000
..4........................B社.....食品..200000
..5........................C社.....医療...100000
..6...山田 計............................400000
..7.........総計............................400000
ご参考まで。
参考URL:http://sweety.jp/honobono/faq/pibo/index.htm
No.3
- 回答日時:
シート2のタブを右クリック>コードの表示で表示されたシートモジュールにコピペ。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim rr As Range
If Target.Address <> "$A$1" Then Exit Sub
Range("A3", Cells(Rows.Count, Columns.Count)).ClearContents
With Worksheets("Sheet1") 'シート名適宜変更
Set r = .Range("A1").CurrentRegion
r.AutoFilter 1, Target.Value
Set rr = Intersect(r.SpecialCells(xlCellTypeVisible), _
.Range(.[A2], .Cells(Rows.Count, Columns.Count)))
If Not rr Is Nothing Then
rr.Copy Range("A3")
End If
r.AutoFilter
End With
End Sub
ご参考程度に。
No.1
- 回答日時:
作業列を使いますが
シート1の列にでも =IF(A2=シート2!A$1,ROW(),"")
で下までコピィすれば 山田さんのときだけその行番号が出ます。
シート2のA3は
=INDEX(シート1!A:A,SMALL(シート1!$E:$E,ROW(A1))
で右へコピィ、下へコピィで試してみてください。
(エラー処理なしです)
以下の様な紹介がいくつでもあると思います。
http://oshiete1.goo.ne.jp/qa4261978.html
hallo-2007様
早速、回答いただきありがとうございました!!
やってみたところ、無事対象者顧客が表示できました。
下へコピーしたところ、対象顧客が少ない人だと
#NUM!
という表示がでてしまうのですが・・・これは消せないものなのでしょうか??
できれば空欄になってくれると、プリントアウトしたときに
美しくてとても助かるのですが・・・。
もしご存知であれば教えていただければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) エクセル 多数のファイルから値を抜き出したい 4 2022/12/12 16:49
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Excel(エクセル) EXCELでの複雑な複数条件について 4 2022/05/09 16:19
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数学 Tan(θ)-1/Cos(θ)について...
-
スマートな関数を教えて下さい。
-
Excel ウインドウ枠の固定をす...
-
EXACT関数とIF関数の組み合わせ...
-
4つのパターンを表示するEXACT...
-
関数を教えて下さい。
-
Excel:一部のフォントでセルの...
-
エクセルで指定した日付、店舗...
-
エクセルでセルに「氏名を入力...
-
Excel 2019 のピボットテーブル...
-
スプレッドシートの関数VLOOKUP...
-
エクセルで日付の入ったセルの...
-
Excelファイルの「数式」タブ→...
-
excelの不要な行の削除ができな...
-
Excelのif関数で文字が見えなく...
-
各ページの1番上の表示について
-
エクセル関数に詳しい方、教え...
-
INDIRECTを使わず excelで複数...
-
Excel 2019 は、SPILL機能があ...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報