文章预览
学习Excel技术,关注微信公众号: excelperfect 标签: 用户窗体 , VBA 当打开用户窗体时,会列出当前打开的所有工作簿,选择某工作簿,则会自动保存并关闭该工作簿,如下图 1 所示。 图 1 首先,打开 VBE ,插入一个用户窗体,在其中放置一个标签、一个列表框和一个按钮,如下图 2 所示。 图 2 然后,双击打开该用户窗体代码模块,输入下面的代码: Private Sub UserForm_Initialize() Dim j As Long For j = 1 To Workbooks.Count If Workbooks(j).Name < > ThisWorkbook.Name And Workbooks(j).Name < > "PERSONAL.XLSB" Then _ ListBox1.AddItem Workbooks(j).Name Next j End Sub Private Sub ListBox1_Click() Dim j As Long Dim wb As Workbook Dim ListIndex As Long Application.ScreenUpdating = False Set wb = Workbooks(ListBox1.Value) wb.Close True ListBox1.Clear UserForm_Initialize Application.ScreenUpdating = True
………………………………