格式加載Excel-VBA組合框值

Question

我有一個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 

我明明做的很簡單的東西錯了，但我不能工作了它是什麼！

親切的問候！

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