いつもエクセルテクニックを学ぶために活用させていただいております。
今回はみなさまの過去の質問を見ても解決できなかったので、質問させていただきました。
■使用しているデータ
営業スタッフ向けに顧客リストを作成しています。
私のほうで、全営業スタッフの担当する顧客名、業種、購入額の一覧を作りました。
【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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
タイムスタンプとテキストから...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
Excelでの文字色
-
ワークシートに出現したこの画...
-
EXCELの散布図で日付が1900年に...
-
OFFSET関数を使用したいのです...
-
エクセルでファイルの最終更新...
-
エクセルの文字が途中から消える
-
エクセルデーターから必要な項...
-
Excel 大小比較演算子による「...
-
SUBTOTALは、参照された数字で...
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
Excelについて教えてください。...
-
エクセルVBA 月の中で、月~土...
-
Excelの数字の前に入っている空...
-
Excelの関数について このよう...
-
セルの数を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報