表单加载时的 Excel-VBA 组合框值答案

【问题标题】：Excel-VBA combo box value on form load表单加载时的 Excel-VBA 组合框值
【发布时间】：2016-10-26 15:02:45
【问题描述】：

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

对于简单的文本字符串，它可以完美运行。

例如

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

我显然做错了一些非常简单的错误，但我无法弄清楚它是什么！

亲切的问候！

【问题讨论】：

【解决方案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

【讨论】：