Excel VBA：クリックするたびにドロップリストを追加する方法は？

Question

ドロップダウンリストボタンをクリックすると、クリックするたびに追加されます。 は、これは私のコードです

Sub add() 
Dim myList$, i% 
myList = "" 
For i = 1 To 7 
myList = myList & "ListItem" & i & "," 
Next i 
myList = Mid(myList, 1, Len(myList) - 1) 
With Range("B4").Validation 
.Delete 
.Add _ 
Type:=xlValidateList, _ 
AlertStyle:=xlValidAlertStop, _ 
Formula1:=myList 
End With 

Dim Lig As Long 
For Lig = Range("B65536").End(xlUp).Row To 6 Step -1 
    If Cells(Lig, 1) = Cells(Lig - 1, 1) Then 
     Rows(Lig).Insert Shift:=xlDown 
     Lig = Lig - 1 

    End If 
Next Lig 
End Sub 

助けてください:)ドロップダウンボタンをクリックしたため

Answer 1

、私が知る限り、私はあなたが必要とする上で本当によく分からないが、イベントがありません。しかし、あなたはWorksheet_SelectionChangeというイベントでコードを書くことができますが、オブジェクトTargetには、選択した新しいセルが含まれているため、検証を変更することができます。

希望すると助かります。