2024年4月27日发(作者：)

EXCEL宏代码大全

本文件部分文章来源于网络

000. A列半角内容变红

Sub A列半角内容变红() ? Dim rg As Range, i As Long ?

= False ? For Each rg In Updating

lCells(xlCellTypeConstants, 3) For i = 1 To Len(rg) ?? If Asc(Mid(rg,

i, 1))

001. A列等于A列减B列

Sub A列等于A列减B列() For i = 1 To 23 Cells(i, 1) = Cells(i, 1) - Cells(i, 2) Next

End Sub

002. B列录入数据时在A列返回记录时间（工作表代码）

Public Sub Worksheet_Change(ByVal Target As Range) If = 2

Then (, -1) = Now End If End Sub

003. Excel宏常用代码

本大类暂没有内容，以下是关于本类的所有记录集。

004. Sub 以当前日期为名称另存文件()

Filename:=Date & ".xls" End Sub

005. Sub 启用保存()

dBars("File").Controls(4).Enabled = True

dBars("File").Controls(5).Enabled = True End Sub

006. Sub 执行前需要验证密码的宏()

If InputBox("请输入您的使用权限:", "系统提示") = 123 Then 重排窗口 ''要执行的宏

代码或宏名称 Else MsgBox "对不起,您没有使用该宏的权限,按确定键后退出!" End If End

Sub

007. Sub 选择第5行开始所有数据行B()

Rows("5:" & ("*", , , , 1, 2).Row).Select End Sub

008. VBA返回公式结果

Sub VBA返回公式结果() x =

(Range("a2:a100")) Range("B1") = x End Sub

009. 不连续区域录入对勾