質問編集履歴
6
加筆・修正4
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -128,6 +128,22 @@
|
|
|
128
128
|
|
|
129
129
|
### 試したこと
|
|
130
130
|
|
|
131
|
-
`Set yard_rng = .ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Resize(.Rows.Count - 1)`→エラー
|
|
131
|
+
0. `Set yard_rng = .ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Resize(.Rows.Count - 1)`→エラー
|
|
132
132
|
|
|
133
|
-
コピペして貼り付け先の値で確認→〇
|
|
133
|
+
0. コピペして貼り付け先の値で確認→〇
|
|
134
|
+
|
|
135
|
+
0. For Eachを使う→〇
|
|
136
|
+
|
|
137
|
+
```VBA
|
|
138
|
+
|
|
139
|
+
yard = yard_rng.Item(1).Value
|
|
140
|
+
|
|
141
|
+
For Each rng In yard_rng
|
|
142
|
+
|
|
143
|
+
If rng.Value <> yard Then flg = False
|
|
144
|
+
|
|
145
|
+
yard = rng.Value
|
|
146
|
+
|
|
147
|
+
Next rng
|
|
148
|
+
|
|
149
|
+
```
|
5
加筆・修正3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
](https://www.relief.jp/docs/excel-vba-for-each-loop-visible-cells.html)
|
|
20
20
|
|
|
21
|
-
こちらを参考に可視
|
|
21
|
+
こちらを参考に可視列をループして、一つでも一致しないものが見つかればBooleanのflag(変数名flg)を立てて、条件処理を行いたいのですが、
|
|
22
22
|
|
|
23
23
|
可視セルをループさせて確認処理する際、
|
|
24
24
|
|
4
加筆・修正2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -123,3 +123,11 @@
|
|
|
123
123
|
###対策は？
|
|
124
124
|
|
|
125
125
|
一度コピぺして、その値を検証した後不要であれば削除する、というので可能だと思うのですが、現行の方法で何がダメなのか、何を加えればいいのかよく分かりません。どなたかご教示いただけないでしょうか？
|
|
126
|
+
|
|
127
|
+
|
|
128
|
+
|
|
129
|
+
### 試したこと
|
|
130
|
+
|
|
131
|
+
`Set yard_rng = .ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Resize(.Rows.Count - 1)`→エラー
|
|
132
|
+
|
|
133
|
+
コピペして貼り付け先の値で確認→〇
|
3
加筆・修正１
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
こちらのRangeの長さ(Count)は絞り込まれたデータ数通り
|
|
30
30
|
|
|
31
|
-
- ループでValueを
|
|
31
|
+
- **ループ内でValueを確認してみると、最初のItem(1).Valueは可視セルの最初の値、以降のItem(i).Valueは可視/不可視に関わらず最初の可視セルの次からの値になります**
|
|
32
32
|
|
|
33
33
|
- 可視範囲のコピーは問題なくできます
|
|
34
34
|
|
2
誤字修正2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
-
-
|
|
27
|
+
- `Set yard_rng = .ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible)`
|
|
28
28
|
|
|
29
29
|
こちらのRangeの長さ(Count)は絞り込まれたデータ数通り
|
|
30
30
|
|
1
誤字修正1
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
テーブルの可視セルの指定列の値がすべて同じかどうか確認したいが・・・SpecialCells(xlCellTypeVisible)で設定したRangeをFor文で回すと非表示
|
|
1
|
+
テーブルの可視セルの指定列の値がすべて同じかどうか確認したいが・・・SpecialCells(xlCellTypeVisible)で設定したRangeをFor文で回すと非表示セルの値が返ってくる
|
test
CHANGED
|
File without changes
|