VBAでsheet2列Aの入力をsheet1列の同じ値に制限するA

Question

とにかく、sheet2列Aの値をsheet1 columnAにある値に制限できますか？ユーザーがsheet1 columnAに見つからないsheet2列Aの値を入力すると、msgboxが表示され、入力を制限します。おそらくこのためにVBAを使用しますか？

ありがとうございます！

Answer 1

これをsheet2モジュールに入れます。

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Column = 1 Then 
    LastRow = Sheet1.UsedRange.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

    With Sheet1.Range("a1:a" & LastRow) 
     Set c = .Find(Target, LookIn:=xlValues) 
     If Not c Is Nothing Then 
      Exit Sub 
     End If 
    End With 
    Application.EnableEvents = False 
    Beep 
    MsgBox Target & " is not found in Sheet1 Column A" 
    Target = "" 
    Application.EnableEvents = True 

End If 
End Sub