Excel窗體Combobox值到單元格

Question

我有一個Excel VBA表單和組合框，有一年的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

在將designMode，你可以雙擊組合框來創建ComboBox的onChange方法。

每次調用此方法時，ComboBox的值都會更改。

在那裏你可以把代碼寫入所需的單元格的值。

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