Excel VBA：如何在每次单击时添加水滴列表？

我想当我点击下拉列表按钮时会直接添加到我每次点击时都会添加。 这是我的密码

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

---

请帮助：）

我不确定您是否需要，但据我所知，没有单击下拉按钮的事件。但是您可以在事件

工作表\u SelectionChange

中使用您的代码，对象

目标将包含选定的新单元格，以便您可以更改其验证

希望这会有帮助
 我只想当我点击一个下拉列表时会直接添加到excel中