Excel実用編：住所録の作成例 データの抽出

完成例　

住所録の入力用シートを作成する例です。

作成した住所データをWord2007で宛名印刷するように加工を加えています。

都道府県名、住所(宛名用)ははがきに印刷する際に利用します。

データの抽出

「入力用」シートでチェック欄(A列)にチェックのついたデータを印刷用として、シート「印刷用」に抽出して差し込み用データとします。


抽出はVBA(マクロ)でAdvanced Filterを利用しています。(Excel VBA入門編：フィルタオプション(AdvancedFilter)でのデータ抽出で説明しています。)


シート名は「印刷用」としています。


抽出条件は「入力用」シートのM1:M2セルに設定しました。



抽出用に使用したコード

Sub Adfilter10()

　　Dim dRng As Range, eRng As Range, cRng As Range

　　　　Set dRng = Worksheets("入力用").Range("A1").CurrentRegion 'データリスト

　　　　Set cRng = Worksheets("入力用").Range("M1:M2") '条件範囲

　　　　Set eRng = Worksheets("印刷用").Range("A1") '抽出先

　　　　　　eRng.CurrentRegion.ClearContents

　　　　　　　　dRng.AdvancedFilter _

　　　　　　　　Action:=xlFilterCopy, _

　　　　　　　　CriteriaRange:=cRng, _

　　　　　　　　CopyToRange:=eRng, _

　　　　　　　　Unique:=False

End Sub