- 1、本文档共69页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
ExcelVBA常用宏应用技巧
Excel-VBA常用宏应用技巧
Excel-常用宏技巧本示例为设置密码窗口 (1)
If Application.InputBox(请输入密码:) = 1234 Then
[A1] = 1 密码正确时执行
Else: MsgBox 密码错误,即将退出! 此行与第2行共同设置密码
End If
本示例为设置密码窗口 (1)
X = MsgBox(是否真的要结帐?, vbYesNo)
If X = vbYes Then
Close
本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 保护工作表并设置密码
ActiveSheet.Unprotect Password:=641112 撤消工作表保护并取消密码
本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容。
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
w.Close SaveChanges:=True
End If
Next w
每次打开工作簿时,本示例都最大化 Microsoft Excel 窗口。
Application.WindowState = xlMaximized
本示例显示活动工作表的名称。
MsgBox The name of the active sheet is ActiveSheet.Name
本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs C:\TEMP\XXXX.XLS
下述过程激活工作簿中的第四张工作表。
Sheets(4).Activate
下述过程激活工作簿中的第1张工作表。
Worksheets(1).Activate
本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿,并放弃对该工作簿的任何更改。
ThisWorkbook.Saved = True
ThisWorkbook.Close
本示例对自动重新计算功能进行设置,使 Microsoft Excel 不对第一张工作表自动进行重新计算。
Worksheets(1).EnableCalculation = False
下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿。
Workbooks.Open (C:\MyFolder\MyBook.xls)
本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets(Sheet1).Range(A1).Value
本示例显示活动工作簿中每个工作表的名称
For Each ws In Worksheets
MsgBox ws.Name
Next ws
本示例向活动工作簿添加新工作表 , 并设置该工作表的名称?
Set NewSheet = Worksheets.Add
NewSheet.Name = current Budget
本示例将新建的工作表移到工作簿的末尾
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
End Sub
本示例将新建工作表移到工作簿的末尾
Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
ByVal Sh As Object)
Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
End Sub
本示例新建一张工作表,然后在第一列中列出活动工作簿中的所有工作表的名称。
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
本示例将第十行移到窗口的最上面?
Worksheets(Sheet1).Activate
ActiveWindow.ScrollRow = 10
当计算工作簿中的任何工作表时,本示例对第一张工作表的 A1:A100 区域进行排序。
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
With Worksheets(1)
.Range(a1:a100).Sort Key1:=.Range(a1)
End
您可能关注的文档
- 13-结构体.pptx
- 13物理功率.ppt
- ethereal的使用详解06078(阅读).ppt
- 12环境问题及其实质.ppt
- etspnnm中国农学会耕作制度分会介绍.doc
- EUGMPCguideline中文参考.doc
- ethereal的使用详解06221(阅读).ppt
- eterm操作.ppt
- Eu或Tb掺杂Lu2O3纳米片的合成和发光性能的研究文献翻译作业.doc
- EURoHS修订指令201165EU主要更新及对TTI的影响(阅读).ppt
- 第十一章 电流和电路专题特训二 实物图与电路图的互画 教学设计 2024-2025学年鲁科版物理九年级上册.docx
- 人教版七年级上册信息技术6.3加工音频素材 教学设计.docx
- 5.1自然地理环境的整体性 说课教案 (1).docx
- 4.1 夯实法治基础 教学设计-2023-2024学年统编版九年级道德与法治上册.docx
- 3.1 光的色彩 颜色 电子教案 2023-2024学年苏科版为了八年级上学期.docx
- 小学体育与健康 四年级下册健康教育 教案.docx
- 2024-2025学年初中数学九年级下册北京课改版(2024)教学设计合集.docx
- 2024-2025学年初中科学七年级下册浙教版(2024)教学设计合集.docx
- 2024-2025学年小学信息技术(信息科技)六年级下册浙摄影版(2013)教学设计合集.docx
- 2024-2025学年小学美术二年级下册人美版(常锐伦、欧京海)教学设计合集.docx
文档评论(0)