Excel常用宏代码大全

### Excel VBA宏代码知识点详解 #### 一、设置密码窗口 **代码示例：** ```vba If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 ' 密码正确时执行 Else: MsgBox "密码错误，即将退出！" ' 此行与第2行共同设置密码 End If ``` **知识点解释：** - `InputBox` 函数用于弹出一个对话框让用户输入数据，返回用户输入的文本。 - `If`...`Then`...`Else`...`End If` 是VBA中的条件语句，根据条件的真假执行不同的操作。 - `[A1] = 1` 这里假设是用于标记密码是否验证成功。 #### 二、确认结账 **代码示例：** ```vba X = MsgBox("是否真的要结账？", vbYesNo) If X = vbYes Then Close ``` **知识点解释：** - `MsgBox` 函数用于弹出消息框，可以指定不同的按钮和图标样式。 - `vbYesNo` 是一种预定义的常量，表示消息框中有“是”和“否”两个按钮。 - `Close` 关闭当前工作簿。 #### 三、设置/取消工作表密码 **代码示例：** ```vba ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 ' 撤销工作表保护并取消密码 ``` **知识点解释：** - `ActiveSheet` 表示当前活动的工作表。 - `Protect` 和 `Unprotect` 方法分别用于保护和取消保护工作表，其中可以通过参数传递密码。 #### 四、关闭并保存其他工作簿 **代码示例：** ```vba For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w ``` **知识点解释：** - `For Each`...`Next` 循环用于遍历集合中的每一个元素。 - `Workbooks` 集合包含了所有的打开的工作簿。 - `ThisWorkbook` 表示当前正在运行VBA代码的工作簿。 - `Close` 方法用于关闭工作簿，`SaveChanges` 参数控制是否保存更改。 #### 五、最大化窗口 **代码示例：** ```vba Application.WindowState = xlMaximized ``` **知识点解释：** - `Application` 对象提供了对Excel应用程序的访问。 - `WindowState` 属性可以设置或返回Excel窗口的状态，如最小化、最大化或正常状态。 #### 六、显示活动工作表名称 **代码示例：** ```vba MsgBox "The name of the active sheet is " & ActiveSheet.Name ``` **知识点解释：** - `ActiveSheet` 表示当前活动的工作表。 - `Name` 属性获取工作表的名称。 #### 七、保存当前工作簿副本 **代码示例：** ```vba ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS" ``` **知识点解释：** - `ActiveWorkbook` 表示当前活动的工作簿。 - `SaveCopyAs` 方法用于保存当前工作簿的一个副本到指定位置。 #### 八、激活特定工作表 **代码示例：** ```vba Sheets(4).Activate Worksheets(1).Activate ``` **知识点解释：** - `Sheets` 和 `Worksheets` 都可以用来引用工作表，但使用场景略有不同。 - `Activate` 方法用于将工作表设置为当前活动工作表。 #### 九、关闭工作簿并放弃更改 **代码示例：** ```vba ThisWorkbook.Saved = True ThisWorkbook.Close ``` **知识点解释：** - `Saved` 属性用于标记工作簿是否已保存。 - `Close` 方法用于关闭工作簿。 #### 十、禁用自动重新计算 **代码示例：** ```vba Worksheets(1).EnableCalculation = False ``` **知识点解释：** - `EnableCalculation` 属性控制是否启用自动重新计算。 #### 十一、打开指定工作簿 **代码示例：** ```vba Workbooks.Open "C:\MyFolder\MyBook.xls" ``` **知识点解释：** - `Open` 方法用于打开指定路径的工作簿。 #### 十二、读取单元格值 **代码示例：** ```vba MsgBox Worksheets("Sheet1").Range("A1").Value ``` **知识点解释：** - `Range` 对象用于表示单个单元格或一组单元格。 - `Value` 属性获取或设置单元格的值。 #### 十三、显示所有工作表名称 **代码示例：** ```vba For Each ws In Worksheets MsgBox ws.Name Next ws ``` **知识点解释：** - `Worksheets` 集合包含了当前工作簿中的所有工作表。 #### 十四、添加新工作表并设置名称 **代码示例：** ```vba Set NewSheet = Worksheets.Add NewSheet.Name = "currentBudget" ``` **知识点解释：** - `Add` 方法用于向工作簿中添加新的工作表。 - `Set` 语句用于将对象变量赋值为某个对象。 #### 十五、移动新工作表至末尾 **代码示例：** ```vba NewSheet.Move After:=Sheets(Sheets.Count) ``` **知识点解释：** - `Move` 方法用于移动工作表的位置。 - `After` 参数指定移动后位于哪个工作表之后。 #### 十六、创建新工作表并填充数据 **代码示例：** ```vba Set NewSheet = Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count NewSheet.Cells(i, 1).Value = Sheets(i).Name Next i ``` **知识点解释：** - `Type` 参数指定新工作表的类型。 - `Cells` 属性可以访问特定行列交叉处的单元格。 #### 十七、滚动显示指定行 **代码示例：** ```vba Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 10 ``` **知识点解释：** - `ScrollRow` 属性可以设置滚动条位置，使指定行出现在窗口顶部。 #### 十八、排序区域 **代码示例：** ```vba With Worksheets(1) .Range("a1:a100").Sort Key1:=.Range("a1") End With ``` **知识点解释：** - `Sort` 方法用于对指定范围内的数据进行排序。 - `Key1` 参数指定了排序的主要键。 #### 十九、显示打印预览 **代码示例：** ```vba Worksheets("Sheet1").PrintPreview ``` **知识点解释：** - `PrintPreview` 方法用于显示打印预览。 #### 二十、保存当前工作簿 **代码示例：** ```vba ActiveWorkbook.Save ``` **知识点解释：** - `Save` 方法用于保存当前工作簿。 #### 二十一、保存并关闭所有工作簿 **代码示例：** ```vba For Each w In Application.Workbooks w.Save Next w ``` **知识点解释：** - `Application.Workbooks` 集合包含了所有的打开的工作簿。 以上列举了Excel中常用的VBA命令及其具体应用场景，这些命令可以帮助用户更高效地管理和处理Excel工作表。