| |
ご返答ありがとうございます｡
早速､以下のように並び替えを作り直してみましたが､
「実行時エラー'1004'RangeクラスのAutoFilterメゾットが失敗しました｡｣と表示されます｡
左側の数字は､行数を表します｡
15行目及か17行目でRangeクラスの･･が出てしまいます｡
並び替え → 並び替え戻す →並び替え
と処理をすると出てきます｡
また､
条件1"E2"
条件2"G2"
条件3"I2"
条件4"M2"
は条件１〜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
以上 ご意見お願いいたします｡
|
|
かおりん
- 05/4/1(金) 10:03 -
