《Excel word ppt office使用技巧大全(DOC格式)》第15章

另存为C：BAK子目录下，但EXCEL文件的位置不确定，不知如何写语句？　注意先引用　
〃Microsoft　Scripting　Runtime〃　Private　Sub　Workbook_BeforeClose（Cancel　As　Boolean）　"
在本文件要關椋埃瑘绦袀浞輨幼鳌！f　Not　ActiveWorkbook。Saved　Then　Exit　Sub　"　若原　
文件未存檔，備份檔也不存。　ThisPath　=　ThisWorkbook。Path　"　假定備份文件夾之名稱為　
〃BAK〃　， 若 本 文 件 是 備 份 檔 ， 則 不 需 再 備 份 。 If
Len（Application。WorksheetFunction。Substitute（ThisPath；　〃BAK〃；　〃〃））　《　Len（ThisPath）
Then　Exit　Sub
L
…………………………………………………………Page　51……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Bak　=　ThisPath　&　〃”　&　〃BAK〃　"檢查備份文件夾是否存在，若不存在，就建立一個。　If
Len（Dir（Bak；　vbDirectory））　》　0　Then　If　（GetAttr（Bak）　And　vbDirectory）　=　vbDirectory
Then　GoTo　3　"　若已存在，跳到下一步。　End　If　MkDir　Bak　"　建立備份文件夾。　"　改變目　
前路徑到備份文件夾路徑，並備份之。　3　ChDir　Bak　Application。EnableEvents　=　False　"　避　
免執行BeforeSave事件。　Application。DisplayAlerts　=　False　"　避免顯示是否要覆蓋原備　
份文件之訊息。　ActiveWorkbook。SaveAs　ChDir　ThisPath　"　改變目前路徑回到原文件夾路徑。
Application。DisplayAlerts　=　True　Application。EnableEvents　=　True　End　Sub　上述程式　
有個漏洞，就是在本文件做過更動，且存檔過了，但最後一次的更動未存檔，則　If　Not
ActiveWorkbook。Saved　Then　Exit　Sub　這個判斷會造成不存備份檔之錯铡疀Q定。　若想彌補上　
述錯铡瑢⒂｜發的事件改成Workbook_BeforeSave，卻會造成Excel關椋У腻e铡！?8、文件保　
存为以某一单元格中的值为文件名的宏怎么写　用命令：　ActiveWorkbook。SaveCopyAs
Str（Range（〃Sheet1！A1〃））　＋　〃。xls〃　79、Offset　属性　参阅应用于示例特性应用于　Range　对　
象的　Offset　属性。　返回一个　Range　对象，该对象代表某个指定区域以外的区域。只读。
expression。Offset（RowOffset；　ColumnOffset）　expression　必需。该表达式返回一个　Range
对象。　RowOffset　Variant　类型，可选。区域偏移的行数（正值、负值或　0　（零））。正值　
表示向下偏移，负值表示向上偏移，默认值为　0。　ColumnOffset　Variant　类型，可选。区域　
偏移的列数（正值、负值或　0　（零））。正值表示向右偏移，负值表示向左偏移，默认值为　0。
应用于　TickLabels　对象的　Offset　属性。　返回或设置各级别标签之间的距离以及第一级标　
签与坐标轴之间的距离。其默认距离为百分之百，代表坐标轴标签与坐标轴之间的默认距离。　
其值可以为从　0　到　1000　之间的一个整数百分比，表示相对于坐标轴标签的字体大小。Long
类型，可读写。　expression。Offset　expression　必需。该表达式返回一个　TickLabels　对象。
示例　应用于　Range　对象。　本示例激活　Sheet1　上活动单元格向右偏移三列、向下偏移三行　
处　的　单　元　格　。 Worksheets（〃Sheet1〃）。Activate ActiveCell。Offset（rowOffset：=3；
columnOffset：=3）。Activate　本示例假定　Sheet1　中包含一个具有标题行的表格。本示例先选　
定该表格，但并不选择标题行。运行本示例之前，活动单元格必须位于表格中。　Set　tbl　=
ActiveCell。CurrentRegion
LI
…………………………………………………………Page　52……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
tbl。Offset（1；　0）。Resize（tbl。Rows。Count 1；　_　tbl。Columns。Count）。Select　应用于
TickLabels　对象。　如果偏移量小于　500，则本示例将　Chart1　中数值轴上标签之间的距离设　
置为当前距离的两倍。　With　Charts（〃Chart1〃）。Axes（xlValue）。TickLabels　If　。Offset　《　500
then　。Offset　=　。Offset　*　2　End　If　End　With　80、新建工作簿　参阅特性若要在　Visual　Basic
中创建新的工作簿，请使用　Add　方法。下述过程创建了新的工作簿。Microsoft　Excel 自动　
将该工作簿命名为―BookN‖，其中―N‖是下一个可用的数字。新工作簿将成为活动工作簿。　Sub
AddOne（）　Workbooks。Add　End　Sub　创建新工作簿更好的方法是将其分配给一个对象变量。下　
例中，由　Add　方法返回的　Workbook　对象分配给了对象变量　newBook　。然后，又设置了
newBook　的若干属性。使用对象变量可以很容易地控制新工作簿。　Sub　AddNew（）　Set　NewBook
=　Workbooks。Add　With　NewBook　。Title　=　〃All　Sales〃　。Subject　=　〃Sales〃　。SaveAs
Filename：=〃Allsales。xls〃　End　With　End　Sub
81、Rem：将活动单元格从A5移到A6，并将A6单元格的数值保存到x变量中　range（〃A5　〃）。select　
此命令就是选择A5单元格　Activecell。offset（1；0）。select　X=activecell。value　82、用代码　
窗口中可用F8运行宏，Alt＋F8显示宏对话框，Alt＋F11可以打开VBE编辑器　83、Option　Explicit
在程序代码前使用该命令，则变量要在声明后才能使用，否则编译程序无法识别该变量，从而　
产生错误信息　84、Load语句用于加载窗体，加载后将占用内存，Hide方法使窗体隐藏，但仍　
在内存中，故不再使用窗体时应使用Uuload语句及时卸载，将内存交还系统，Show方法用来显　
示一个窗体，格式：　窗体名称。show　模式，模式可取0或1，为1时，不能到其他窗体操作，只　
有关闭该窗体后才能对其他窗体操作　85、控件的命名规则，通常使用3个字母的前缀命名控件，　
如Label的前缀为lbl；初学者最好养成良好的命名习惯　86、按下Ctrl＋Enter键单元格不移动。
87、按下F2键直接在单元格内编辑，不需动鼠标　88、命令按钮不支持双击（Dbclick）事件　89、　
Private　Sub　CheckBox1_Click（）　If　CheckBox1。Value　Then
LII
…………………………………………………………Page　53……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
MsgBox　〃333〃　Else　MsgBox　〃666〃　End If　End　Sub 本段的主要用意在于明白了　If
CheckBox1。Value　Then与If　CheckBox1。Value=True　Then　90、Timer是计时器；功能是按指定　
时间间隔产生定时事件　91、在一个语句要分行显示的地方加一个或多个空格，加一个下划线　
＿然后回车转入下一物理行，作用在于代码一行写不下时续行，程序代码中一行较短时可加：　
把多行连成一行显示　92　、if　a》15　then　b=10　else　b=100　end　if　可改为如下　if语句
b=iif（a。15；10；100）　93、F12用于启动另存为对话框　94、x=shell（calc。exe；1）可打开计算器　
程序　95、call语句格式：Call＇（）＇如果过程本身没有参数，则实参　
和括号可省略，并报参数放在括号中，另一个调用Sub过程的方法是：　＇＇比前一个少了Call和括号，子过程调用语句的实参在数目、类型、排列上与子过程定义语　
句的形式参数表一致　96、自定义函数一例；求abc三个数的平均　Private　Function　Passed（By
Val　a　As　integer；　By　Val　b　As　integer；　By　Val　c　As　integer）　ave=（a＋b＋c）/3　End　Sub　在　
定义时必须向函数过程名赋值，而子程序名不能赋值　97　、在工作表任意单元格输入　
=Cell（〃filename〃）可获得文件的完整路径、文件名和工作表名　98、在打开Excel文件时?