摘要： 显示指定工作表的打印预览，假如该工作表名称为“Sheet1”：
Worksheets("Sheet1").PrintPreview
显示活动工作表的打印预览：
Worksheets("Sheet1").PrintPreview
显示工作簿中所有工作表的打印预览：
Sheets.PrintPreview
显示某一指定区域的打印预览，如当前工作表的A1:G10区域：
EXCEL用自定义函数去掉字符串中的数字
如果要去掉某个字符串中的所有数字，例如将一个字符串Excel123去掉数字后变为Excel，可以用自定义函数来实现。按Alt F11打开VBA编辑器，单击菜单插入模块，在右侧的代码窗口中输入自定义函数
ActiveSheet.Range("A1:G10").PrintPreview
显示某一工作表中的某个图表的打印预览，假如工作表名称为“Sheet3”，其中某个图表名称为“图表 1”：
Worksheets("Sheet3").ChartObjects("图表 1").Activate
ActiveChart.PrintPreview
显示指定的图表工作表的打印预览，假如该图表工作表名称为“Chart1”：
Charts("Chart1").PrintPreview
显示“打印内容”对话框：
Application.Dialogs(xlDialogPrint).Show
excel用VBA互换两个单元格或区域中的数据
有时需要在Excel工作表中互换两个区域中的数据，如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换
