admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：brpc内存条)

EXCEL宏代码大全

本文件部分文章来源于网络，文章版权归原作者所有，如果本站转载的文章侵犯了您的权益

请及时联系我们，我们将尽快妥善处理。本站除部分特别声明禁止转载的专稿外，其他文章

可以自由转载，但请务必注明原出处和作者。

000. A列半角内容变红

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

For Each rg In 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. 不连续区域录入对勾

Sub 批量录入对勾() aR1C1 = "√" End Sub

010. 不连续区域录入当前单元地址

Sub 区域录入当前单元地址() For Each mycell In Selection aR1C1 =

s Next End Sub

011. 不连续区域录入当前数字日期

Sub 区域录入当前数字日期() aR1C1 = Format(Now(), "yyyymmdd") End

Sub

012. 不连续区域录入当前文件名

Sub 批量录入当前文件名() aR1C1 = End Sub

013. 不连续区域录入当前日期


本文标签： 录入 文章 区域 部分 返回

版权声明：本文标题：EXCEL宏代码大全 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711544618a599234.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。