Question

我在工作表“ MAIN”上具有组合框。组合框称为CommercialBox。使用当前代码，我会在范围内搜索不是“空”的值，并将其显示在组合框中。然后通过单击命令选择所需的值。问题是，链接无法从工作表单元恢复到ActiveX组合框。我试图将ThisWorkbook.Sheets("Contact database").UsedRange.Columns("I:J").Calculate添加到Click命令，然后：

Private Sub Worksheet_Calculate()
ThisWorkbook.Sheets("MAIN").CommercialBox.Value = ThisWorkbook.Sheets("Contact database").Range("I109").Value
End Sub

在Worksheet_Calculate()内

，但似乎不起作用。我必须转到工作表“联系人数据库”双击单元格I109。只有在该组合框选择的值得到更新之后。

这是我的Combobox代码：

Private Sub CommercialBox_Click()
ThisWorkbook.Sheets("Contact database").Range("I109").Value = ThisWorkbook.Sheets("MAIN").CommercialBox.Value
ThisWorkbook.Sheets("Contact database").UsedRange.Columns("I:J").Calculate
End Sub


Private Sub CommercialBox_DropButtonClick()
Dim RngCom As Range
ThisWorkbook.Sheets("MAIN").CommercialBox.Clear
With ThisWorkbook.Sheets("Contact database")
    For Each RngCom In .Range("B55:B71")
        If RngCom.Value <> vbNullString Then ThisWorkbook.Sheets("MAIN").CommercialBox.AddItem RngCom.Value
    Next RngCom
End With
End Sub

在工作表上的ActiveX组合框中显示单元格值

0 个答案: