質問編集履歴
3
不要な修正を戻します
test
CHANGED
File without changes
|
test
CHANGED
@@ -88,7 +88,7 @@
|
|
88
88
|
MaxRow = Cells(Rows.Count, 36).End(xlUp).Row
|
89
89
|
|
90
90
|
|
91
|
-
Range(Cells(1,
|
91
|
+
Range(Cells(1, 5), Cells(MaxRow, 45)) _
|
92
92
|
.AutoFilter Field:=5, _
|
93
93
|
Criteria1:=Cl, _
|
94
94
|
Operator:=xlFilterValues
|
@@ -105,7 +105,7 @@
|
|
105
105
|
改めて動作させたらすこし現象が違いました。
|
106
106
|
発生している問題書き換えしました
|
107
107
|
修正②
|
108
|
-
★②Cells(1,5)→Cells(1,1)に修正
|
108
|
+
~~★②Cells(1,5)→Cells(1,1)に修正~~ 不要な修正でした…。
|
109
109
|
|
110
110
|
|
111
111
|
|
2
最後にフィルタする列がまちがっていました
test
CHANGED
File without changes
|
test
CHANGED
@@ -77,7 +77,7 @@
|
|
77
77
|
If Cl.Column = 5 Then
|
78
78
|
d(k) = Cl
|
79
79
|
k = k + 1
|
80
|
-
MsgBox Cl ’ここで確認すると配列には入っている様子…かとおもいきやE000113,E000114,E000115,E000116のあと空で
|
80
|
+
MsgBox Cl ’ここで確認すると配列には入っている様子…かとおもいきやE000113,E000114,E000115,E000116のあと空で5回msgboxがでます
|
81
81
|
End If
|
82
82
|
Next
|
83
83
|
|
@@ -88,7 +88,7 @@
|
|
88
88
|
MaxRow = Cells(Rows.Count, 36).End(xlUp).Row
|
89
89
|
|
90
90
|
|
91
|
-
Range(Cells(1,
|
91
|
+
Range(Cells(1, 1), Cells(MaxRow, 45)) _ '★修正②Cells(1,5)→Cells(1,1)
|
92
92
|
.AutoFilter Field:=5, _
|
93
93
|
Criteria1:=Cl, _
|
94
94
|
Operator:=xlFilterValues
|
@@ -101,6 +101,12 @@
|
|
101
101
|
### 補足情報(FW/ツールのバージョンなど)
|
102
102
|
エクセル2013です
|
103
103
|
|
104
|
+
修正①
|
104
|
-
|
105
|
+
改めて動作させたらすこし現象が違いました。
|
105
106
|
発生している問題書き換えしました
|
107
|
+
修正②
|
108
|
+
★②Cells(1,5)→Cells(1,1)に修正
|
106
109
|
|
110
|
+
|
111
|
+
|
112
|
+
|
1
改めて動作させたら少し現象がちがいました。発生している問題書き換え
test
CHANGED
File without changes
|
test
CHANGED
@@ -19,10 +19,12 @@
|
|
19
19
|
|
20
20
|
|
21
21
|
### 発生している問題
|
22
|
+
- [ ] ソートされた状態でE列に出てきている内容(以下の例だとE000113,E000114,E000115,E000116)を配列に入れる
|
22
23
|
|
24
|
+
↑配列には入っている様子…かとおもいきやE000113,E000114,E000115,E000116のあと空で5回msgboxがでます
|
23
25
|
|
24
26
|
- [ ] 配列の内容で(OR条件で)E列をソートしなおす
|
25
|
-
|
27
|
+
↑エラーはおきないですがフィルタがかかっていない状態です
|
26
28
|
|
27
29
|
エクセルVBA
|
28
30
|
```
|
@@ -75,7 +77,7 @@
|
|
75
77
|
If Cl.Column = 5 Then
|
76
78
|
d(k) = Cl
|
77
79
|
k = k + 1
|
78
|
-
MsgBox Cl ’ここで確認すると配列には入っている様子…
|
80
|
+
MsgBox Cl ’ここで確認すると配列には入っている様子…かとおもいきやE000113,E000114,E000115,E000116のあと空で4回msgboxがでます
|
79
81
|
End If
|
80
82
|
Next
|
81
83
|
|
@@ -85,7 +87,7 @@
|
|
85
87
|
|
86
88
|
MaxRow = Cells(Rows.Count, 36).End(xlUp).Row
|
87
89
|
|
88
|
-
|
90
|
+
|
89
91
|
Range(Cells(1, 5), Cells(MaxRow, 45)) _
|
90
92
|
.AutoFilter Field:=5, _
|
91
93
|
Criteria1:=Cl, _
|
@@ -99,4 +101,6 @@
|
|
99
101
|
### 補足情報(FW/ツールのバージョンなど)
|
100
102
|
エクセル2013です
|
101
103
|
|
104
|
+
すみません、改めて動作させたらすこし現象が違いました。
|
105
|
+
発生している問題書き換えしました
|
102
106
|
|