VBA根据结果显示某些列表作为下拉列表

时间:2018-12-19 15:23:39

标签: excel vba

我要创建一个下拉列表,该列表成为下拉列表取决于IF语句的结果。每个列表都称为“ MyList”,后跟一个数字(MyList2,MyList9等)。我正在使用他的以下代码来确定应使用哪个列表并创建下拉列表:

For i = 3 To 31
        If customer = ThisWorkbook.Sheets("lists1").Range("B" & i).Value Then
            With ThisWorkbook.Sheets("Off-Site_Expendicture").Range("CusLoc").Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                    Operator:=xlBetween, Formula1:=Join(MyList & i, ",")
            End With
        End If
Next i

我认为由于您无法使用(MyList&i)而导致此操作不可行,我已经尽我所能使它起作用,但找不到方法。除了“ with”语句外,其他所有东西都可以正常工作。

0 个答案:

没有答案