表单加载上的Excel-VBA组合框值

Question

我有一个VBA表单，用于在工作表上输入数据。我目前正在对表单进行编码，以便将表单中已存在的任何数据加载回表单。

对于简单的文本字符串，它可以很好地工作。

e.g。

ReqSetup.ReqText = Application.Worksheets("Req Sheet").Range("F11").Value

但是，我有一些组合框，在表单上，​​当它们被选中时将在相应的单元格中输入一个数字。

失败1. - 运行时错误380 - 无效的属性值。

    ReqSetup.MinPerKgCB = Application.Worksheets("Req Sheet").Range("C27").Value

失败2。

    Dim MinPerKg As Range
    Set MinPerKg = Application.Worksheets("Req Sheet").Range("C27")

    ReqSetup.MinPerKgCB = MinPerKg

我显然做了一件非常简单的错事，但我无法弄清楚它是什么!!

亲切的问候！

Answer 1

  

我有一些组合框，在表单上，​​当它们被选中时   在相应的单元格中输入一个数字

然后你需要做与你的代码尝试相反的事情，即：

 Worksheets("Req Sheet").Range("C27").Value = ReqSetup.MinPerKgCB.Value

您最好在检查中包含实际选择的任何组合框值：

With ReqSetup.MinPerKgCB
    If .ListIndex <> -1 Then Worksheets("Req Sheet").Range("C27").Value = .Value
End With