回答編集履歴
1
説明追記
answer
CHANGED
|
@@ -1,9 +1,16 @@
|
|
|
1
1
|
> 1.UserFormのテキストボックス（オブジェクト名：CodeId）に数値を入力する
|
|
2
2
|
|
|
3
|
-
コードの下記を削除
|
|
3
|
+
コードの下記を削除するか、
|
|
4
4
|
`Dim CodeId As Byte`
|
|
5
5
|
|
|
6
6
|
|
|
7
7
|
` If Worksheets("Sheet1").Range("K" & i).Value <> CodeId Then`
|
|
8
8
|
を下記に修正したらどうでしょう。
|
|
9
|
-
` If Worksheets("Sheet1").Range("K" & i).Value <> Me.CodeId Then`
|
|
9
|
+
` If Worksheets("Sheet1").Range("K" & i).Value <> Me.CodeId Then`
|
|
10
|
+
|
|
11
|
+
---
|
|
12
|
+
変数名とオブジェクト名が同じ場合、変数が優先される。
|
|
13
|
+
CodeId変数には何も代入されていないので初期値の0になっている。
|
|
14
|
+
そのため0以外の行はすべて削除される。
|
|
15
|
+
|
|
16
|
+
Me.CodeId とすれば、変数名と重複していても、フォーム上のオブジェクトを参照する。
|