回答編集履歴
1
説明追記
test
CHANGED
@@ -2,7 +2,7 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
コードの下記を削除
|
5
|
+
コードの下記を削除するか、
|
6
6
|
|
7
7
|
`Dim CodeId As Byte`
|
8
8
|
|
@@ -15,3 +15,17 @@
|
|
15
15
|
を下記に修正したらどうでしょう。
|
16
16
|
|
17
17
|
` If Worksheets("Sheet1").Range("K" & i).Value <> Me.CodeId Then`
|
18
|
+
|
19
|
+
|
20
|
+
|
21
|
+
---
|
22
|
+
|
23
|
+
変数名とオブジェクト名が同じ場合、変数が優先される。
|
24
|
+
|
25
|
+
CodeId変数には何も代入されていないので初期値の0になっている。
|
26
|
+
|
27
|
+
そのため0以外の行はすべて削除される。
|
28
|
+
|
29
|
+
|
30
|
+
|
31
|
+
Me.CodeId とすれば、変数名と重複していても、フォーム上のオブジェクトを参照する。
|