（VBA）テキストボックスに入力された値以外の行を削除したい

以下のようなVBAを作成したいのですが、自分で作ったものを実行すると全部の行が削除されてしまいます。
正しいコードをお教え頂けないでしょうか。

1.UserFormのテキストボックス（オブジェクト名：CodeId）に数値を入力する
2.UserFormに設置してあるボタンをクリックする
3.K列にCodeIdに入力された数値以外が入っている場合、その行を削除する
4.A列にA1からセルに値が入った最終行まで連番を付す（←ここだけまだ未作成です。）

以下が自分で作ったコードです。

VBA
1        Dim CodeId As Byte
2
3        '最終行を取得しておく
4        Dim LastRow As Integer
5        LastRow = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row + 1
6
7        Dim i As Long
8
9        'カウンターを下→上へ
10        For i = LastRow To 2 Step -1
11        
12            If Worksheets("Sheet1").Range("K" & i).Value <> CodeId Then
13                 Rows(i).Select
14                 Selection.Delete Shift:=xlUp
15            End If
16        Next
17        
18        Unload UserForm1

以上になります。
宜しくお願い致します。

行動規範の内容に同意します

回答2件

1.UserFormのテキストボックス（オブジェクト名：CodeId）に数値を入力する

コードの下記を削除するか、
Dim CodeId As Byte

If Worksheets("Sheet1").Range("K" & i).Value <> CodeId Then
を下記に修正したらどうでしょう。
If Worksheets("Sheet1").Range("K" & i).Value <> Me.CodeId Then

変数名とオブジェクト名が同じ場合、変数が優先される。
CodeId変数には何も代入されていないので初期値の0になっている。
そのため0以外の行はすべて削除される。

Me.CodeId とすれば、変数名と重複していても、フォーム上のオブジェクトを参照する。

投稿2020/09/19 02:55

編集2020/09/19 03:08

hatena19

総合スコア33782

js_boy

2020/09/19 06:08

ご回答ありがとうございます。やってみたのですが、ダメでした。以下のようにコードを修正してみたのですが、それでもやはり結果は同じでした。テキストボックスで入力された数値を変数へ代入するというのができてないみたいです・・・。 Dim Code As Integer Code = CodeId.Value '最終行を取得しておく Dim LastRow As Integer LastRow = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row + 1 Dim i As Long 'カウンターを下→上へ For i = LastRow To 2 Step -1 If Worksheets("Sheet1").Range("K" & i).Value <> CodeId Then Rows(i).Select Selection.Delete Shift:=xlUp End If Next

hatena19

2020/09/19 08:02 編集

そのコードなら、 If Worksheets("Sheet1").Range("K" & i).Value <> CodeId Then は、 If Worksheets("Sheet1").Range("K" & i).Value <> Code Then では。一度落ち着いてよく見なおしてください。あと、ステップ実行で変数の中身や動作を確認してみてください。

js_boy

2020/09/19 12:47

本当でした。もう一度よく確認してみます。ありがとうございました！！！

行動規範の内容に同意します