王剑编程网

分享专业编程知识与实战技巧

一行 VBA 代码完成一项任务10个示例

以下是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 选择宏运行,或绑定到按钮。
  • 注意事项:确保运行前已选定单元格或区域,避免错误。
  • 扩展性:这些示例可作为基础,结合循环、条件等扩展功能。
<script type="text/javascript" src="//mp.toutiao.com/mp/agw/mass_profit/pc_product_promotions_js?item_id=7519482735891579418"></script>
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言