各种Excel-VBA的命令大全让您技能天下无双 _Excel

本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码
ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码
'本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
'本示例通过将 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 = http://www.jslnfj.com/dnbaike/27311/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 With
End Sub
本示例显示工作表 Sheet1 的打印预览。
Worksheets("Sheet1").PrintPreview
本示例保存当前活动工作簿?
ActiveWorkbook.Save
本示例保存所有打开的工作簿，然后关闭 Microsoft Excel 。
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
下例在活动工作簿的第一张工作表前面添加两张新的工作表?
Worksheets.Add Count:=2, Before:=Sheets(1)
本示例设置 15 秒后运行 my_Procedure 过程，从现在开始计时。
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
本示例设置 my_Procedure 在下午 5 点开始运行。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
本示例撤消前一个示例对 OnTime 的设置。
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
每当工作表重新计算时，本示例就调整 A 列到 F 列的宽度。
'Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub
本示例使活动工作簿中的计算仅使用显示的数字精度。
ActiveWorkbook.PrecisionAsDisplayed = True
本示例将工作表 Sheet1 上的 A1:G37 区域剪下，并放入剪贴板。
Worksheets("Sheet1").Range("A1:G37").Cut
Calculate 方法
计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元
格，如下表所示：
'要计算 '依照本示例
所有打开的工作簿 ' Application.Calculate （或只是 Calculate
）
指定工作表 '计算指定工作表Sheet1 Worksheets
("Sheet1").Calculate
指定区域 'Worksheets(1).Rows(2).Calculate
本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自动
进行重新计算。
Worksheets(1).EnableCalculation = False
本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。
Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate
本示例更新当前活动工作簿中的所有链接?
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
本示例设置第一张工作表的滚动区域?

各种Excel-VBA的命令大全让您技能天下无双

推荐阅读

五岳奇险天下第一山是哪座山天下第一山是哪座山

如何通过女人面相看婚姻哪些面相的女人婚姻好

天麻能泡白酒吗天麻可以和虫草花一起煲汤吗

梦见和当官的同学在一起商人梦见当官的同学

商业承兑汇票是什么意思商业承兑汇票的理解

节日由来英语节日由来

瑜伽入门动作图解瑜伽入门动作图解上

教你如何使用迅雷离线下载[新发布]

孕妇梦见和别人吵架孕妇梦见别人挣了很多钱

忙碌了多少天辛苦了多少年是啥歌快去听一下吧

etc不抬杆可以倒回吗 etc不抬杆可以倒回会被扣分吗

喝番茄汁有什么好处番茄汁的好处有哪些

一斤几克重，一斤等于多少千克

“八岐之术”是什么？

在“再见阿郎”中的刘金虎怎么又是金鹏？

皮蛋是生的还是熟的怎么判断皮蛋是生的还是熟的

我们好像在哪见过歌词我们好像在哪见过歌词歌谱

梦见水里有黑鱼在游

煤炭公司起名大全免费煤炭行业起名大全

关于洛阳昊远机械设备有限公司简述洛阳昊远机械设备有限公司