Question

我有要更新的员工列表，这就是为什么我想通过VBA收集姓名的原因：

Private Sub CommercialBox_DropButtonClick()
Application.ScreenUpdating = False
Dim RngCom As Range

ThisWorkbook.Sheets("MAIN").CommercialBox.Clear
With ThisWorkbook.Sheets("Contact database")
    For Each RngCom In .Range("B61:B77")
        If RngCom.Value <> vbNullString Then ThisWorkbook.Sheets("MAIN").CommercialBox.AddItem RngCom.Value
    Next RngCom
End With

Application.ScreenUpdating = True
End Sub

这已连接到DropButtonClick，并且工作正常。现在，我还需要将单元格值连接到下拉框，以便用户看到自己选择的内容。在向工作表输入值之间，代码之间的时间间隔很小。这就是为什么此代码不能真正起作用的原因：

Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Sheets("MAIN").CommercialBox.Value = ThisWorkbook.Sheets("Contact database").Range("I109").Value
End Sub

我也尝试过这种方法，但它更像是解决方法，而不是正确的解决方案：

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

如何修复该问题？

从单元格到工作表上ActiveX组合框的值

0 个答案: