excel代码大全.pdf
excel 代码大全.txt 第一次笑是因为遇见你，第一次哭是因为你不在，第一次笑着流泪是因为不能拥有你。EXCEL 宏代码大全本文件部分文章来源于网络，文章版权归原作者所有，如果本站转载的文章侵犯了您的权益请及时联系我们，我们将尽快妥善处理。本站除部分特别声明禁止转载的专稿外，其他文章可以自由转载，但请务必注明原出处和作者。000.A 列半角内容变红Sub A 列半角内容变红()Dim rg As Range,i As Long=FalseFor Each rg In(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 Sub002.B 列录入数据时在 A 列返回记录时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range)If=2 Then(,-1)=Now End If EndSub003.Excel 宏常用代码本大类暂没有内容，以下是关于本类的所有记录集。004.Sub 以当前日期为名称另存文件()Filename:=Date&.xls End Sub005.Sub 启用保存()(File).Controls(4).Enabled=True(File).Controls(5).Enabled=True End Sub006.Sub 执行前需要验证密码的宏()If InputBox(请输入您的使用权限:,系统提示)=123 Then重排窗口 要执行的宏代码或宏名称 Else MsgBox 对不起,您没有使用该宏的权限,按确定键后退出!End If End Sub007.Sub 选择第 5 行开始所有数据行 B()Rows(5:&(*,1,2).Row).Select End Sub008.VBA 返回公式结果Sub VBA 返回公式结果()x=a2:a100)Range(B1)=x End Sub009.不连续区域录入对勾Sub 批量录入对勾()=End Sub010.不连续区域录入当前单元地址Sub 区域录入当前单元地址()For Each mycell In Selection=Next End Sub011.不连续区域录入当前数字日期Sub 区域录入当前数字日期()=Format(Now(),yyyymmdd)End Sub012.不连续区域录入当前文件名Sub 批量录入当前文件名()=End Sub013.不连续区域录入当前日期Sub 区域录入当前日期()=Format(Now(),yyyy-m-d)End Sub014.不连续区域录入当前日期和时间Sub 区域录入当前日期和时间()=Format(Now(),yyyy-m-d h:mm:ss)End Sub015.不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址()For Each mycell In Selection=+!+Next End Sub016.不连续区域插入文本Sub 批量插入文本()Dim s As Range For Each s In Selection s=文本内容&s Next End Sub017.不连续区域添加文本Sub 批量添加文本()Dim s As Range For Each s In Selection s=s&文本内容 Next End Sub018.为当前选定的多单元插入指定名称Sub 为 当 前 选 定 的 多 单 元 插 入 指 定 名 称()=临 时 Name:=临 时,RefersTo:=Selection 或者换用这行代码也可以 End Sub019.为指定工作表加指定密码保护表Sub 为指定工作表加指定密码保护表()Password:=123 End Sub020.为指定工作表设置滚动范围（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByValSh As Object,ByVal Target As Range)=A1:M30 End Sub021.从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容()Dim arr arr=Array(1,2,13,25,46,12,0,20)B2.Resize(8,1)=End Sub022.以 A1 单元内容批量插入批注Sub 以 A1 单元内容批量插入批注()Dim r As Range If 0 Then For Each r In Selection=FalseText:=a1.Text Next End If End Sub023.以 A1 单元文本作表名插入工作表Sub 以 A1 单元文本作表名插入工作表()Dim nm As String nm=a1=nm End Sub024.以当前日期为新文件名另存文件Sub 以当前日期为新文件名另存文件()&Format(Now(),yyyymmdd)&.xlsEnd Sub025.以当前日期和时间为新文件名另存文件Sub 以当前日期和时间为新文件名另存文件()
