VBAExcel工作表代码总结
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
工作表
增加工作表
1、添加工作表 Sheets.Add
2、在最后工作表后添加新工作表Sheets.Add after:=Sheets(Sheets.Count)
3、在第1工作表前添加新工作表 Sheets.Add before:=Sheets(1)
4、在第五个工作表之后添加三个Worksheets.Add after:=Worksheets(5), Count:=3
删除工作表
5、删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete
6、删除当前工作表 ActiveWindow.Selected Sheets.Delete
或ActiveSheet.Delete
7、删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete
显示隐藏工作表
8、隐藏SHEET1这张工作表sheets("sheet1").Visible=False
9、显示SHEET1这张工作表sheets("sheet1").Visible=True
10、深度隐藏工作表 Sheet1.Visible = 2
11、显示工作表 Sheet1.Visible = -1
工作表名字/命名
12、获取工作表i的名称 ActiveWorkbook.Sheets(i).Name
13、当前工作表命名 = "www"
14、Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum
15、返回活动工作表的名称
16、返回活动窗口的标题 Application.ActiveWindow.Caption
17、返回活动工作簿的名称
关闭/保存工作表
18、将该表格保存到C:\test.xls 目录 ExcelSheet.SaveAs "C:\TEST.XLS"
19、关闭同时保存 Workbooks("filename.xls").Close savechanges:=True
20、关闭同时不保存 Workbooks("filename.xls").Close savechanges:=False
21、不保存直接关闭当前的工作簿Workbooks("BOOK1.XLS").Close SaveChanges:=False
22、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句
Application.DisplayAlerts = False Application.Quit
选择工作表
23、同时选择工作表1和工作表2 Worksheets(Array(“sheet1”,”sheet2”)).Select
24、选定下(上)一个工作表
sheets(activesheet.index-1).select sheets(activesheet.index+1).select
移动工作表
25、ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后
文件(夹)操作
26、建立文件夹的方法 MkDir "D:\Music"
27、打开文件夹的方法ActiveWorkbook.FollowHyperlink Address:="D:\Music",
NewWindow:=True
28、删除一个文件 kill "c:\1.txt"
29、退出EXCEL Application.Quit
保护工作表
30、保护工作表使其不至被修改。 Sheets(“工作表名”).Protect (Password)
31、撤销工作表保护使其被修改。Sheets(“工作表名”).Unprotect (Password)
示例: Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456”
32、格式_工作表不能重命名
mandBars("Sheet").Controls(1).Enabled= False
33、取消工作表标签ActiveWindow.DisplayWorkbookTabs = False
34、右键菜单不能重命名
mandBars.FindControl(ID:=889).Enabled = False
35、工作表加密 Worksheets(″基础数据表″).Protect Password:="1234"
36、保护工作簿 ActiveSheet.Protect
37、取消保护工作簿 ActiveSheet.Unprotect
其他属性
38、获取活动工作薄中工作表数ActiveWorkbook.Sheets.Count
39、当前工作表中已使用的行数 edRange.Rows.Count
40、获取工作表的行数(注:考虑向前兼容性)Rows.Count ‘
41、取消工作表标签 ActiveWindow.DisplayWorkbookTabs = False
42、切换工作表中的网格线显示,这种方法也可以用在其它方面进行相互切换,即相当于开
关按钮
ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines
43、切换工作表中的行列边框显示
ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings
44、删除当前工作表中所有的条件式edRange.FormatConditions.Delete
45、将页面设置更改为横向 ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2
32、在页面设置的表尾中输入文件路径
ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName
33、将用户名放置在活动工作表的页脚
ActiveSheet.PageSetup.LeftFooter=erName
34、两个关键字排序,相邻两列,B列为主关键字,A列为次关键字,升序排列ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _ Header:=xlYes
35、开启数据记录单 ActiveS heet.ShowDataForm