|
ご返答ありがとうございます。
早速、以下のように並び替えを作り直してみましたが、
「実行時エラー'1004'RangeクラスのAutoFilterメゾットが失敗しました。」と表示されます。
左側の数字は、行数を表します。
15行目及か17行目でRangeクラスの・・が出てしまいます。
並び替え → 並び替え戻す →並び替え
と処理をすると出てきます。
また、
条件1"E2"
条件2"G2"
条件3"I2"
条件4"M2"
は条件1〜4に入力した物(コンボボックスで選ぶようにしています。)をフィルターをかけるようにしています。
また、アクティブセルではありません。
1 Sub 並び替え()
2
3 Selection.AutoFilter
4 Range("a6:aa100").Select
5 Selection.AutoFilter
6
7 With Range("a6:aa100")
8 If Range("e2").Value = 0 Then
9 .AutoFilter Field:=5
10 Else
11 .AutoFilter Field:=5, Criteria1:=Range("e2").value
12 End If
13
14 If Range("g2").Value = 0 Then
15 .AutoFilter Field:=7
16 Else
17 .AutoFilter Field:=7, Criteria1:=Range("g2").Value
18 End If
19
20 If Range("i2").Value = 0 Then
21 .AutoFilter Field:=17
22 Else
23 .AutoFilter Field:=17, Criteria1:=Range("i2").Value
24 End If
25
26 If Range("m2").Value = 0 Then
27 .AutoFilter Field:=13
28 Else
29 .AutoFilter Field:=13, Criteria1:=Range("m2").Value
30 End If
31 End With
32
33 Range("f7").Select
34
35 End Sub
-----------------------------------------------------------------
Sub 並び替えを戻す()
'
Selection.AutoFilter
Range("a6:aa100").Select
Selection.AutoFilter
With Range("a6:aa100")
.AutoFilter Field:=1
End With
Selection.AutoFilter
End Sub
以上 ご意見お願いいたします。
|
|