現在下記のようなエクセルがあります。
ID 職種 氏名 出勤回数
1 A 田中 50
2 B 佐藤 25
3 C 上田 10
4 A 木村 15
5 B 多田 20
これを 同じシート内の別の所に 職種別に出勤回数の昇降順に一覧で出したいです。↓
職種 ID 氏名 出勤回数
A 1 田中 50
A 4 木村 15
色々調べて何処からか取ってきましたが
Sub AdvancedFilter_1()
Dim Drange As Range, Crange As Range
Worksheets("Sheet1").Select
' 検索条件式の入力
Range("H1").Value = Range("B1").Value
Range("H2").Value = "A"
' フィルタの実行
With Worksheets("Sheet1")
Set Drange = .Range("A1").CurrentRegion
Set Crange = .Range("H1").CurrentRegion
End With
Range("A1").Select
Drange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Crange, Unique:=False
Set Drange = Nothing
Set Crange = Nothing
End Sub
上記のような形で入力したため 昇降順にならず
又、表示場所も 元のデータの所になってしまいます。
どなたかうまくいくコードを教えていただけないでしょうか？
尚、最終的には ボタンを作成し データが入れ替わる度に計算しなおせる様にしたいと思っています。
現在下記のようなエクセルがあります。
ID 職種 氏名 出勤回数
1 A 田中 50
2 B 佐藤 25
3 C 上田 10
4 A 木村 15
5 B 多田 20
これを 同じシート内の別の所に 職種別に出勤回数の昇降順に一覧で出したいです。↓
職種 ID 氏名 出勤回数
A 1 田中 50
A 4 木村 15
色々調べて何処からか取ってきましたが
Sub AdvancedFilter_1()
Dim Drange As Range, Crange As Range
Worksheets("Sheet1").Select
' 検索条件式の入力
Range("H1").Value = Range("B1").Value
Range("H2").Value = "A"
' フィルタの実行
With Worksheets("Sheet1")
Set Drange = .Range("A1").CurrentRegion
Set Crange = .Range("H1").CurrentRegion
End With
Range("A1").Select
Drange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Crange, Unique:=False
Set Drange = Nothing
Set Crange = Nothing
End Sub
上記のような形で入力したため 昇降順にならず
又、表示場所も 元のデータの所になってしまいます。
どなたかうまくいくコードを教えていただけないでしょうか？
尚、最終的には ボタンを作成し データが入れ替わる度に計算しなおせる様にしたいと思っています。
現在下記のようなエクセルがあります。
ID 職種 氏名 出勤回数
1 A 田中 50
2 B 佐藤 25
3 C 上田 10
4 A 木村 15
5 B 多田 20
これを 同じシート内の別の所に 職種別に出勤回数の昇降順に一覧で出したいです。↓
職種 ID 氏名 出勤回数
A 1 田中 50
A 4 木村 15
色々調べて何処からか取ってきましたが
Sub AdvancedFilter_1()
Dim Drange As Range, Crange As Range
Worksheets("Sheet1").Select
' 検索条件式の入力
Range("H1").Value = Range("B1").Value
Range("H2").Value = "A"
' フィルタの実行
With Worksheets("Sheet1")
Set Drange = .Range("A1").CurrentRegion
Set Crange = .Range("H1").CurrentRegion
End With
Range("A1").Select
Drange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Crange, Unique:=False
Set Drange = Nothing
Set Crange = Nothing
End Sub
上記のような形で入力したため 昇降順にならず
又、表示場所も 元のデータの所になってしまいます。
どなたかうまくいくコードを教えていただけないでしょうか？
尚、最終的には ボタンを作成し データが入れ替わる度に計算しなおせる様にしたいと思っています。
現在下記のようなエクセルがあります。
ID 職種 氏名 出勤回数
1 A 田中 50
2 B 佐藤 25
3 C 上田 10
4 A 木村 15
5 B 多田 20
これを 同じシート内の別の所に 職種別に出勤回数の昇降順に一覧で出したいです。↓
職種 ID 氏名 出勤回数
A 1 田中 50
A 4 木村 15
色々調べて何処からか取ってきましたが
Sub AdvancedFilter_1()
Dim Drange As Range, Crange As Range
Worksheets("Sheet1").Select
' 検索条件式の入力
Range("H1").Value = Range("B1").Value
Range("H2").Value = "A"
' フィルタの実行
With Worksheets("Sheet1")
Set Drange = .Range("A1").CurrentRegion
Set Crange = .Range("H1").CurrentRegion
End With
Range("A1").Select
Drange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Crange, Unique:=False
Set Drange = Nothing
Set Crange = Nothing
End Sub
上記のような形で入力したため 昇降順にならず
又、表示場所も 元のデータの所になってしまいます。
どなたかうまくいくコードを教えていただけないでしょうか？
尚、最終的には ボタンを作成し データが入れ替わる度に計算しなおせる様にしたいと思っています。
現在下記のようなエクセルがあります。
ID 職種 氏名 出勤回数
1 A 田中 50
2 B 佐藤 25
3 C 上田 10
4 A 木村 15
5 B 多田 20
これを 同じシート内の別の所に 職種別に出勤回数の昇降順に一覧で出したいです。↓
職種 ID 氏名 出勤回数
A 1 田中 50
A 4 木村 15
色々調べて何処からか取ってきましたが
Sub AdvancedFilter_1()
Dim Drange As Range, Crange As Range
Worksheets("Sheet1").Select
' 検索条件式の入力
Range("H1").Value = Range("B1").Value
Range("H2").Value = "A"
' フィルタの実行
With Worksheets("Sheet1")
Set Drange = .Range("A1").CurrentRegion
Set Crange = .Range("H1").CurrentRegion
End With
Range("A1").Select
Drange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Crange, Unique:=False
Set Drange = Nothing
Set Crange = Nothing
End Sub
上記のような形で入力したため 昇降順にならず
又、表示場所も 元のデータの所になってしまいます。
どなたかうまくいくコードを教えていただけないでしょうか？
尚、最終的には ボタンを作成し データが入れ替わる度に計算しなおせる様にしたいと思っています。
