以下是10个使用 VBA 一行代码完成简单 Excel 任务的示例,每个示例都简洁高效,适合快速自动化操作。这些代码假设在 Microsoft Excel 的 VBA 编辑器中运行(按 Alt + F11 打开编辑器,插入模块后粘贴代码)。运行前需确保有选定的单元格或区域,否则可能报错。可通过 Alt + F8 运行宏或分配给按钮执行。
1. 将选定单元格背景色设置为黄色
Sub SetYellowBackground()
Selection.Interior.Color = vbYellow
End Sub
功能:将当前选定区域的背景色设置为黄色。
2. 清除选定单元格内容
Sub ClearContent()
Selection.ClearContents
End Sub
功能:清除当前选定区域的单元格内容,保留格式。
3. 将选定单元格字体加粗
Sub BoldFont()
Selection.Font.Bold = True
End Sub
功能:将选定区域的字体设置为粗体。
4. 复制选定区域到新工作表
Sub CopyToNewSheet()
Selection.Copy Worksheets.Add.Range("A1")
End Sub
功能:复制当前选定区域,粘贴到新建工作表的 A1 单元格。
5. 设置选定单元格为货币格式
Sub SetCurrencyFormat()
Selection.NumberFormat = "$#,##0.00"
End Sub
功能:将选定单元格的数字格式设置为货币(美元)。
6. 自动调整选定列宽
Sub AutoFitColumns()
Selection.Columns.AutoFit
End Sub
功能:自动调整选定区域所在列的宽度以适应内容。
7. 在选定单元格插入当前日期
Sub InsertDate()
Selection.Value = Date
End Sub
功能:在选定单元格中输入当前日期。
8. 隐藏当前工作表
Sub HideSheet()
ActiveSheet.Visible = xlSheetHidden
End Sub
功能:隐藏当前活动的工作表。
9. 将选定单元格文本转换为大写
Sub ConvertToUpper()
Selection.Value = UCase(Selection.Value)
End Sub
功能:将选定单元格中的文本内容转换为大写。
10. 为选定区域添加边框
Sub AddBorders()
Selection.Borders.LineStyle = xlContinuous
End Sub
功能:为选定区域添加连续线边框。
使用说明
- 运行环境:在 Excel VBA 编辑器中创建模块,粘贴以上代码。
- 运行方式:按 Alt + F8 选择宏运行,或绑定到按钮。
- 注意事项:确保运行前已选定单元格或区域,避免错误。
- 扩展性:这些示例可作为基础,结合循环、条件等扩展功能。