VBA降下が

Question

ONCHANGE downlistねえIdはそれが可能であるかどうかを知りたい：現在、私は、データの検証を使用してSheet2のから引かれている名前のリストが含まれてい次の使用例は、シート1上のドロップダウンリストを持っています。 ドロップダウンリストの横のセルには、シート2のVLOOKUPを使用して電話番号が入力されます。
私の質問：VBAを使用すると、ドロップダウンリストに変更があるたびに、その隣のセルにデータからデータが取り込まれるようにすることはできますかSHEET2？適切な電話番号を取得するには、選択した値が必要であることに注意してください。

私のファイルが機能するかどうか尋ねるのはなぜですか？誰かが誤ってVLOOKUP数式を削除する可能性があり、複数の異なるマクロを使用する共有文書であるため、保護できません。

Answer 1

このようなものはありますか？ （出典：https://support.microsoft.com/en-us/help/213612/how-to-run-a-macro-when-certain-cells-change-in-excel）

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 

    ' The variable KeyCells contains the cells that will 
    ' cause an alert when they are changed. 
    Set KeyCells = Range("A1") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
     Is Nothing Then 

    ' Display a message when one of the designated cells has been 
    ' changed. 
    ' Place your code here. 
    Range("B1").Formula = "=VLookup(A1,LookupTable,2,FALSE)" 

    End If 
End Sub