Excel VBA：每次点击时如何添加droplist？

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将包含所选的新单元格，以便您可以更改其验证。

希望它会有所帮助。