Excel(エクセル)基本講座:フィルタ オプションの設定(データ抽出) |
フィルタ オプションの設定 | |
詳細な条件設定 | 別シートへの抽出 |
特定項目の抽出 | VBAの作成例 |
B | C | D | E | F | G | H | |
2 | 伝票 | 日付 | 担当者 | 型番 | 単価 | 数量 | 売上金額 |
3 | 1001 | 2006/1/1 | 岡田 | A-001B | 5,000 | 15 | 75,000 |
4 | 1002 | 2006/1/1 | 上村 | A-001W | 5,000 | 22 | 110,000 |
5 | 1003 | 2006/1/1 | 相沢 | C-105W | 8,000 | 14 | 112,000 |
6 | 1004 | 2006/2/1 | 井上 | B-022B | 6,000 | 24 | 144,000 |
7 | 1005 | 2006/2/1 | 相沢 | A-001B | 5,000 | 15 | 75,000 |
8 | 1006 | 2006/2/1 | 岡田 | A-001W | 5,000 | 12 | 60,000 |
9 | 1007 | 2006/3/1 | 上村 | B-022B | 6,000 | 13 | 78,000 |
10 | 1008 | 2006/3/1 | 岡田 | C-105B | 8,000 | 12 | 96,000 |
11 | 1009 | 2006/3/1 | 相沢 | A-001W | 5,000 | 16 | 80,000 |
12 | 1010 | 2006/4/1 | 上村 | B-033W | 7,000 | 14 | 98,000 |
13 | 1011 | 2006/4/1 | 相沢 | C-105B | 8,000 | 24 | 192,000 |
14 | 1012 | 2006/4/1 | 岡田 | B-033W | 7,000 | 22 | 154,000 |
15 | 1013 | 2006/5/1 | 井上 | A-001B | 5,000 | 13 | 65,000 |
16 | 1014 | 2006/5/1 | 上村 | C-105W | 8,000 | 23 | 184,000 |
17 | 1015 | 2006/5/1 | 井上 | B-033W | 7,000 | 14 | 98,000 |
18 | 1016 | 2006/6/1 | 岡田 | C-105B | 8,000 | 18 | 144,000 |
19 | 1017 | 2006/6/1 | 相沢 | B-022B | 6,000 | 19 | 114,000 |
B | C | D | |
2 | 氏名 | 住所 | 電話番号 |
3 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
4 | 井上次郎 | 鹿児島市易居町 | 223-2233 |
5 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
6 | 上田浩一 | 鹿児島市名山町 | 334-3344 |
7 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
B | C | D | |
2 | 氏名 | 住所 | 電話番号 |
3 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
4 | 井上次郎 | 鹿児島市易居町 | 223-2233 |
5 | 上田浩一 | 鹿児島市名山町 | 334-3344 |
B | C | D | |
2 | 氏名 | 住所 | 電話番号 |
3 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
4 | 井上次郎 | 鹿児島市易居町 | 223-2233 |
5 | 上田浩一 | 鹿児島市名山町 | 334-3344 |
B | C | D | |
2 | 氏名 | 住所 | 電話番号 |
3 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
4 | 井上次郎 | 鹿児島市易居町 | 223-2233 |
5 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
6 | 上田浩一 | 鹿児島市名山町 | 334-3344 |
7 | 会田一郎 | 鹿児島市山下町 | 123-1234 |
8 | |||
9 | 氏名 | 電話番号 | |
10 | 会田一郎 | 123-1234 | |
11 | 井上次郎 | 223-2233 | |
12 | 上田浩一 | 334-3344 |
B | C | D | E | F | G | H | |
2 | No | 月日 | 項目名 | 収入 | 支出 | 概要 | 購入店名 |
3 | 1 | 2010年1月1日 | 繰越 | 120,000 | |||
4 | 2 | 2010年1月1日 | 交際費 | 12,000 | お年玉 | ||
5 | 3 | 2010年1月2日 | 食費 | 12,000 | はいから亭 | ||
6 | 4 | 2010年1月3日 | 教育・教育費 | 2,300 | 金海堂 | ||
7 | 5 | 2010年1月3日 | 食費 | 2,400 | 惣菜 | タイヨー | |
8 | 6 | 2010年1月4日 | 教育・教育費 | 230 | 金海堂 | ||
9 | 7 | 2010年1月4日 | 食費 | 500 | セブンイレブン | ||
10 | 8 | 2010年1月5日 | 食費 | 625 | お菓子 | クッキー | |
11 | 9 | 2010年1月8日 | 教育・教育費 | 1,000 | 春苑堂 | ||
12 | 10 | 2010年1月8日 | 食費 | 1,200 | はいから亭 | ||
13 | 11 | 2010年1月10日 | 教育・教育費 | 570 | 金海堂 |
Sub Macro2() ' ' Macro1 Macro ' マクロ記録日 : 2010/2/13 ユーザー名 : owner ' Sheets("Sheet1").Range("B2:H13").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("B2:B3"), CopyToRange:=Range("B5"), Unique:=False End Sub |
Sub Macro2() Dim myRow1 As Long, myRow2 As Long '----Sheet1とSheet2のB列で最終行を捜します。 myRow1 = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row myRow2 = Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row '----Sheet2のB5以下が入力されていたらクリアします。 If myRow2 >= 5 Then Sheets("Sheet2").Range("B5:H" & myRow2).ClearContents End If '----フィルタオプションの設定で抽出します。 '----元データはSheet1、抽出条件はSheet2のB2:B3、抽出先はSheet2のB5です。 Sheets("Sheet1").Range("B2:H" & myRow1).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet2").Range("B2:B3"), _ CopyToRange:=Sheets("Sheet2").Range("B5"), _ Unique:=False End Sub |
PageViewCounter
Since2006/2/27