[[20200812123056]] 『顧客リストの抽出について』(あき) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『顧客リストの抽出について』(あき)

顧客の住所録リストを作成したのですが
そこから別シートに担当別に抜き出し集計をかけたいのですが
担当の入力だけで顧客名、住所、電話番号まで
すべて自動抽出することは可能でしょうか?

< 使用 Excel:Excel2010、使用 OS:Windows10 >


フィルターの詳細設定が使えないか、ネットで検索してみてください

(マナ) 2020/08/12(水) 12:39


Private Sub Worksheet_Change(ByVal Target As Range)
'別シートのシートモジュールとする
'シート「住所録」A1=担当、B1=顧客名、C1=住所、D1=電話番号、2行目以下に明細記載
'別シートのA1に担当を入力してEnter
    Dim temp As String
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Application.EnableEvents = False
    temp = Range("A1").Value
    Cells.ClearContents
    Range("A1").Value = temp
    Range("A1").Insert Shift:=xlDown
    Range("A1").Value = "担当"
    Sheets("住所録").Range("A:D").AdvancedFilter xlFilterCopy, Range("A1:A2"), Range("B1"), True
    Columns("A").Delete
    Application.EnableEvents = True
End Sub
(mm) 2020/08/12(水) 13:28

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.