作者:乔山办公网日期:
返回目录:excel表格制作
1、 本示例设置第一张工作表的滚动区域
Worksheets(1).ScrollArea = "a1:f10"
2、 本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
3、 本示例打开 Analysis.xls 工作簿,然后运行 Auto_Open 宏
Workbooks.Open "ANALYSIS.XLS"
ActiveWorkbook.RunAutoMacrosxlAutoOpen
4、 本示例对活动工作簿运行 Auto_Close 宏,然后关闭该工作簿
With ActiveWorkbook
.RunAutoMacros xlAutoClose
.Close
End With
5、 在本示例中,Microsoft Excel 向用户显示活动工作簿的路径和文件名称
Sub UseCanonical()
’Display the full path to user.
MsgBox ActiveWorkbook.FullNameURLEncoded
End Sub
6、 本示例显示当前工作簿的路径及文件名(假定尚未保存此工作簿)
MsgBox ActiveWorkbook.FullName
7、 本示例关闭 Book1.xls,并放弃所有对此工作簿的更改
Workbooks("BOOK1.XLS").Close SaveChanges:=False
8、 本示例关闭所有打开的工作簿如果某个打开的工作簿有改变,Microsoft Excel 将显示询问是否保存更改的对话框和相应提示
Workbooks.Close
9、 本示例在打印之前对当前活动工作簿的所有工作表重新计算
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each wk In Worksheets
wk.Calculate
Next
End Sub
10、 本示例对查询表一中的第一列数据进行汇总,并在数据区域下方显示第一列数据的总和
Set c1 = Sheets("sheet1").QueryTables(1).ResultRange.Columns(1)
c1.Name = "Column1"
c1.End(xlDown).Offset(2, 0).Formula = "=sum(Column1)"