質問編集履歴

3

不要な修正を戻します

2022/10/26 06:17

投稿

kumiko
kumiko

スコア48

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, 1), Cells(MaxRow, 45)) _ '★修正②Cells(1,5)→Cells(1,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

最後にフィルタする列がまちがっていました

2022/10/26 06:09

投稿

kumiko
kumiko

スコア48

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のあと空で4回msgboxがでます
80
+ MsgBox Cl ’ここで確認すると配列には入っている様子…かとおもいきやE000113,E000114,E000115,E000116のあと空で回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, 5), Cells(MaxRow, 45)) _
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

改めて動作させたら少し現象がちがいました。発生している問題書き換え

2022/10/26 05:46

投稿

kumiko
kumiko

スコア48

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