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

"无x轴标题　。Axes（xlValue；　xlPrimary）。HasTitle　=　False　"无y轴标题　End　With
XXXIII
…………………………………………………………Page　34……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
五）　、工作表 1、添加　Sheets。Add　before：=Sheets（1）　"在第　1工作表前添加新工作表
Sheets。Add　after：=Sheets（Sheets。Count）　"　在最后工作表后添加新工作表 2　、移动
ActiveSheet。Move　before：=Sheets（2）　"将当前工作表移动至第2工作表之前 3　、命名
ActiveSheet。Name=〃工作表名〃　"将当前工作表命名为〃工作表名〃　4、删除　可以用以下语句删　
除当前工作表。　ActiveSheet。Delete　但在删除前Excel会自动弹出提示框，需在用户确认后　
方可执行删除。为避免这一干扰，可以先用以下语句关闭　Excel　的警告提示。
Application。DisplayAlerts　=　False 在删除完成后，再重新打开　Excel　的警告提示
Application。DisplayAlerts　=　True　六）、工作簿　Excel的宏对工作簿的操作主要为保存。　Dim
存盘文件名　As　String　ActiveWorkbook。Save　"保存当前工作簿　存盘文件名=〃工作表名〃
ActiveWorkbook。SaveAs　Filename：=　存盘文件名　"当前工作簿另存为〃工作表名。xls〃　在另　
存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已　
存在，也可用关闭Excel警告提示的方法以免其自动弹出提示框。　63、用VBA的几个误区　1、　
想通过Excel＋vba来编程发财，不管怎么说，目前这种可能性很小。　2、录制宏后的代码不进　
行简化，这种情况初学者常犯；或者不屑于用录制宏，这种相反。 3　、喜欢　
用。select、。copy、。active等，如果不是迫不得已，还是不要用这些东西好。　4、不喜欢用　
公式、函数，什么都喜欢用程序；活用公式函数是我们学EXCEL中重要的重点，学会嵌套着用，　
很多事情都可以解决。譬如表1的A1单元格如果要等于表2的A列中的某个单元格，很多人都是　
用程序来直接赋值，数量少这也可以，但如果数量很多的话，为何不试用一下offset呢？偏移　
都指向同一个单元格，就当是一个变量，改一下这个单元格的值，表1用offset的单元格的值　
就全部改了。　5、设计输入数据的界面竟然用用户窗口＋文本框之类的东西，天，我为什么要　
用EXCEL，原因之一不就是图个方便吗？！直接在工作表中操作就是输入数据最好的方法，如　
果一些功能你不想给别人用，顶多你屏蔽掉吧。　6、关闭程序的时候很喜欢退出整个EXCEL，　
这样自我感觉更象一个完整的程序。其实完全有必要考虑其他用户是否也在用EXCEL，所以，　
必须做好一下判断，不要自作聪明全部退出来，还帮忙把每个工作簿都保存一下。　7、不喜欢　
用with，总是workbook（〃〃）。worksheet（〃〃）。range（〃〃）。***一行行排得挺整齐的，还说都用复　
制，其实也不麻烦。　8、总想把VBA＋EXCEL做得象一个程序一样，其实，就因为它不独立，所　
以才更加为我们喜爱，不是吗？　64、用过VB的人都应该知道如何声明变量，在VBA中声明变量　
和VB中是完全一样的！　使用Dim语句　Dim　a　as　integer　"声明A为整形变量
XXXIV
…………………………………………………………Page　35……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Dim　a　"声明A为变体变量　Dim　a　as　string　"声明A为字符串变量　Dim　a；b；c　as　currency　"　
声明A；b；c为货币变量　声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、　
Double、Decimal　（当前不支持）、Date、String　（只限变长字符串）、String　*　length　（定　
长字符串）、Object、Variant、用户定义类型或对象类型。　强制声明变量　Option　Explicit
说明：该语句必在任何过程之前出现在模块中。　声明常数，用来代替文字值。　Const　"　常数　
的默认状态是　Private。　Const　My　=　456　"　声明　Public　常数。　Public　Const　MyString　=
〃HELP〃　"　声明　Private　Integer　常数。　Private　Const　MyInt　As　Integer　=　5　"　在同一行　
里声明多个常数。　Const　MyStr　=　〃Hello〃；　MyDouble　As　Double　=　3。4567　在EXCEL97中，　
有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以　
将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。　Sub　My_Select
Selection。CurrentRegion。Select　End　sub　删除当前单元格中数据的前后空格。　sub　my_trim
Trim（ActiveCell。Value）　end　sub　使单元格位移 sub　my_offset　ActiveCell。Offset（0；
1）。Select"当前单元格向左移动一格　ActiveCell。Offset（0；　…1）。Select"当前单元格向右移　
动　一　格 ActiveCell。Offset（1 ； 0）。Select"　当　前　单　元　格　向　下　移　动　一　格
ActiveCell。Offset（…1　；　0）。Select"当前单元格向上移动一格　end　sub　如果上述程序产生错　
误那是因为单元格不能移动，为了解除上述错误，我们可以往　sub　my_offset　之下加一段代　
码　on　error　resume　next　注意以下代码都不再添加　sub　―代码名称‖　和end　sub请自己添加！
给当前单元格赋值：　ActiveCell。Value　=　〃你好！！！〃　给特定单元格加入一段代码：　例如：　
在Ａ１单元格中插入〃ＨＥＬＬＯ〃　Range（〃a1〃）。value=〃hello〃　又如：你现在的工作簿在　
sheet1上，你要往sheet2的Ａ１单元格中插入〃ＨＥＬＬＯ〃
XXXV
…………………………………………………………Page　36……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
1。sheets（〃sheet2〃）。select range（〃a1〃）。value=〃hello〃 或　
2。Sheets（〃sheet1〃）。Range（〃a1〃）。Value　=　〃hello〃　说明： 1。sheet2被打开，然后在将　
―HELLO〃放入到A1单元格中。　2。sheet2不被打开，将―HELLO〃放入到A1单元格中。　隐藏工作表
"　隐藏SHEET1　这张工作表 sheets（〃sheet1〃）。Visible=False　"　显示SHEET1　这张工作表
sheets（〃sheet1〃）。Visible=True　有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用　
该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。　Dim　my　As
Worksheet　For　Each　my　In　Worksheets　my。PrintPreview　Next　my　得到当前单元格的地址
msgbox　ActiveCell。Address　得到当前日期及时间　msgbox　date　&　chr（13）　&　time　保护工作　
簿　ActiveSheet。Protect　取消保护工作簿　ActiveSheet。Unprotect　给当前工作簿改名为
〃liu〃 ActiveSheet。Name = 〃liu〃 打 开 一 个 应 用 程 序 AppActivate
（Shell（〃C：WINDOWSCALC。EXE〃）） 增加一个工作簿 Worksheets。Add 删除当前工作簿
activesheet。delete 打 开 一 个 文 件 Workbooks。Open FileName：=〃C：My
DocumentsBook2。xls〃　关闭当前工作簿　ActiveWindow。Close 当前单元格定为：左对齐
Selection。HorizontalAlignment = xlLeft 当　前　单　元　格　定　为　：　中　心　对　齐
Selection。HorizontalAlignment = xlCenter 当　前　单　元　格　定　为　：　右　对　齐
Selection。HorizontalAlignment　=　xlRight　当前单元格为百分号风格
XXXVI
…………………………………………………………Page　37……………………………………………………………
Excel_word_ppt_使用技巧大全（完