admin 管理员组文章数量: 1086019
2024年3月27日发(作者：php include 绝对路径)
EXCEL 常用的宏代码大全
本示例为设置密码窗口 (1)
If ox("请输入密码：") = 1234 Then
[A1] = 1 '密码正确时执行
Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码
End If
本示例为设置密码窗口 (1)
X = MsgBox("是否真的要结帐？", vbYesNo)
If X = vbYes Then
Close
本示例为设置工作表密码
t Password:=641112 ' 保护工作表并设置密码
ect Password:=641112 '撤消工作表保护并取消密码
'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存
其更改内容。
For Each w In Workbooks
If <> Then
SaveChanges:=True
End If
Next w
'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。
State = xlMaximized
'本示例显示活动工作表的名称。
MsgBox "The name of the active sheet is " &
'本示例保存当前活动工作簿的副本。
pyAs "C:"
'下述过程激活工作簿中的第四张工作表。
Sheets(4).Activate
'下述过程激活工作簿中的第1张工作表。
Worksheets(1).Activate
'本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，
并放弃对该工作簿的任何更改。
= True
'本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张
工作表自动进行重新计算。
Worksheets(1).EnableCalculation = False
'下述过程打开 C 盘上名为 MyFolder 的文件夹中的 工
作簿。
("C:")
'本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value
本示例显示活动工作簿中每个工作表的名称
For Each ws In Worksheets
MsgBox
Next ws
本示例向活动工作簿添加新工作表 , 并设置该工作表的名称?
Set NewSheet =
= "current Budget"
本示例将新建的工作表移到工作簿的末尾
'Private Sub Workbook_NewSheet(ByVal Sh As Object)
After:=Sheets()
End Sub
本示例将新建工作表移到工作簿的末尾
'Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
ByVal Sh As Object)
After:=()
End Sub
本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作
版权声明：本文标题：EXCEL 常用的宏代码大全 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711483758a596374.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论