工作簿打开时自动加载vba
我有代码
Private sub Workbook_open() ListBox1.AddItem "2017" ListBox1.AddItem "2018" ListBox1.AddItem "2019" ListBox1.AddItem "2020" ListBox1.AddItem "2021" ListBox1.AddItem "2022" ListBox1.AddItem "2023" ListBox1.AddItem "2024" ListBox4.AddItem "0%" ListBox4.AddItem "10%" ListBox4.AddItem "20%" ListBox4.AddItem "30%" ListBox4.AddItem "40%" ListBox4.AddItem "50%" ListBox4.AddItem "60%" End Sub 但是，当我打开工作簿列表框不会自动填充。 有没有一种方法来自动加载列表框项目，而无需命令button？
我已经find了定义列表框所在的工作表
.clear在开始时是为了防止创build多个相同的选项。
Sub Workbook_open() Sheet1.ListBox1.Clear Sheet1.ListBox2.Clear With Sheet1.ListBox1 .AddItem "2017" .AddItem "2018" .AddItem "2019" .AddItem "2020" .AddItem "2021" .AddItem "2022" .AddItem "2023" .AddItem "2024" End With With Sheet1.ListBox4 .AddItem "0%" .AddItem "10%" .AddItem "20%" .AddItem "30%" .AddItem "40%" .AddItem "50%" .AddItem "60%" End With End Sub