vba - Excel 表单组合框值到单元格

Question

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

我的问题是，一旦打开工作簿加载，这些值就不会刷新，并且不会从组合框复制到单元格。我怎样才能做到这一点？

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

在设计模式中，您可以双击 ComboBox 来创建 ComboBox 的 onChange 方法。

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

您可以在其中放置代码以将值写入所需的单元格。

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