excel - VBAExcel动态列表控件

excel - VBAExcel动态列表控件,第1张

我想根据先前列表中提供的内容创建选择列表,但是存在问题。我正在使用列表验证,但它一直工作,直到我没有关闭文件。重新打开此文件后,当列表清除时,它会给我一个错误,并且不想将数据加载到其中。

所以我决定使用控制组合列表,但创建数组还有另一个问题......

    Sub Rozwiń298_Zmienianie(Target)
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim m As Integer
    Dim lista() As Variant
    i = 1
    j = 1
    m = 0

    Do While Sheets("Dane").Cells(i, 14) <> Target.Text
        i = i   1
    Loop
    j = i
    Do While Sheets("Dane").Cells(j, 14) = Target.Text
        j = j   1
    Loop
    j = j - 1
    k = j - i   1
    ReDim lista(k)
    For m = 0 To k
        lista(m) = Sheets("Dane").Cells(i, 15).Text
        i = i   1
    Next m

    Sheets("Formularz").Shapes.Range(Array("Drop Down 298")).Select
    With Selection
        .List = lista
    End With
End Sub

现在有2个问题......不知何故它正在运作,但是从列表中选择一些东西后会出现很奇怪的错误(参数不是可选的) - 我做错了什么?

第二: 如何在Worksheet_Change(ByVal Target As Range)条件中设置从此列表中选取内容并使用拾取的数据创建另一个选择列表?

最佳答案:

1 个答案:

答案 0 :(得分:0)

尝试添加这段代码。我已经测试过了。它运作良好。

Dim validationRange As Range

Sheets("Formularz").Cells(6, 2).Select

Set validationRange = Sheets("Dane").Range("P" & i & ":P" & j)

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="='Dane'!" & validationRange.Address
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
本文经用户投稿或网站收集转载,如有侵权请联系本站。

发表评论

0条回复