Excel Form Combobox值到单元格

时间:2017-08-17 11:35:03

标签: excel vba excel-vba combobox

我有一个Excel VBA表单和ComboBox,它有一年中的12个月。我想要它做的是当我选择一个月时,它还应该在工作簿中的特定单元格中写入该月值,因为该单元格值在整个工作簿中链接。

我的问题是,在打开工作簿时加载后,值不会刷新,也不会从ComboBox复制到单元格。我怎样才能做到这一点?

Private Sub Workbook_Open()

    With Form1
        .Show vbModeless 
        .ComboBox1.List = ThisWorkbook.Sheets("Liste").Range("D2:D13").Value 'month lists
    End With
    ThisWorkbook.Sheets("Sheet2").Range("B2").Value = Form1.ComboBox1.Value
End Sub

1 个答案:

答案 0 :(得分:3)

在Designmode中,您可以双击ComboBox以创建ComboBox的onChange方法。

每次调用此方法时,ComboBox的值都会更改。

在那里你可以把代码写入所需的单元格。

Private Sub ComboBox1_Change()
    ThisWorkbook.Worksheets("Sheet2").Range("B2").Value = Form1.ComboBox1.Value
End Sub