VBA ComboBox 选择数据无法填入复选框的解决方法

根据你提供的代码，问题可能是因为你没有将选中的选项填写到复选框中。

为了解决这个问题，你需要修改ComboBox1_DropButtonClick事件的代码，将选中的选项填写到复选框中。以下是修改后的代码：

Private Sub ComboBox1_DropButtonClick()
    ' 清空ComboBox1中的选项
    ComboBox1.Clear
    
    ' 将工作表'业务公司'的B10到B200单元格的数据添加到ComboBox1中
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets('业务公司')
    
    Dim rng As Range
    Set rng = ws.Range('B10:B200')
    
    Dim cell As Range
    For Each cell In rng
        ComboBox1.AddItem cell.Value
    Next cell
    
    ' 获取选中的选项
    Dim selectedValue As String
    selectedValue = ComboBox1.Value
    
    ' 将选中的选项填写到复选框中
    ComboBox1.Text = selectedValue
End Sub

在修改后的代码中，我添加了两行代码。首先是获取选中的选项的值，使用ComboBox1.Value将选中的选项赋值给变量selectedValue。然后，将选中的选项填写到复选框中，使用ComboBox1.Text将变量selectedValue赋值给复选框的文本。

保存并运行修改后的代码，现在当你点击下拉按钮并选择一个选项时，该选项的值应该会填写到复选框中。