excel VBA

ユーザフォームの処理を記述しました。

※MainからはUserForm1.Showでフォームを起動して下さい。

Private Sub CommandButton1_Click()
 Dim I           As Integer
 Dim J           As Integer
 Dim 検索キー    　As Variant
 Dim アンマッチ  　As Boolean
 Dim 検索範囲    　As Range

 検索キー = Split(UserForm1.TextBox1.Value, vbCrLf)
 Set 検索範囲 = Range(Range("A3"), Cells(Rows.Count, "C").End(xlUp))
 For I = 1 To 検索範囲.Rows.Count
   アンマッチ = True
   For J = 0 To UBound(検索キー)
     If 検索範囲(I, 3).Value = 検索キー(J) Then
       アンマッチ = False
       Exit For
     End If
   Next J
   If アンマッチ Then
     Intersect(検索範囲(I, 1).EntireRow, Range("A:C")).Interior.ColorIndex = 9
     Intersect(検索範囲(I, 1).EntireRow, Range("A:B")).Value = 0
   End If
 Next I
 UserForm1.Hide
End Sub