Excel窗体Combobox值到单元格

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

我的问题是，一旦加载打开工作簿，值不刷新，他们不复制从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 

Answer 1

在Designmode中，您可以双击ComboBox来创buildComboBox的onChange方法。

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

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

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