Question

我对VBA比较新，我正在学习。我正在调整另一个项目的代码以满足我的需求并遇到问题。

我有一个userform，其中有一个由高级过滤器填充的combox框。我需要在下一行数据中使用此过滤器，因此我尝试清除组合框的行源，但保留选定的值。

ASales1_Change代码中的所有内容都按预期工作。我得到了这个组合框的列表和我想要的第二个组合框。但我需要清除ASales2中的行源，以便向第二行添加信息

以下是我对用户表单销售订单框架第一行中的框的代码。

Private Sub ASales1_Change()

On Error Resume Next
Sheets("Products").Range("L4").Value = ASales1.Value

'run advanced filter to change productlist named range
Adv

'clear values for product and quantity
For X = 2 To 3
Me.Controls("ASales" & X).Value = ""
Next

'set productlist as rowsource for second control
Me.ASales2.RowSource = "ProductList"


On Error GoTo 0

End Sub


Private Sub ASales3_Change()
On Error Resume Next

Me.ASales2.RowSource = ""

On Error GoTo 0
End Sub

Image of userform set up

Answer 1

您可以通过在$('.move').resizable({handles: 'w'});变量中存储选定的Value ASales2来完成此操作，请参阅以下代码：

String

如何清除组合框的行源但保留选定的值

1 个答案: