Excel word ppt office使用技巧大全(DOC格式)-第5部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！


宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、　

向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：　　

ActiveCell。Formula=〃=AVERAGE（R＇…6＇C＇…4＇：R＇…2＇C＇…4＇）〃　3、引用其它工作表中的单元格　　

当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上〃工作表名！〃即可。　

如　以　下　即　在　赋　值　中　引　用　了　〃Sheet1〃　工　作　表　中　的　A1　至　A4　单　元　格　：　　

Range（〃E10〃）。Formula=〃=SUM（Sheet1！R1C1：R4C1）〃　但需注意的是：当被引用的工作表名中含　

有某些可能引起公式歧义的字符时，需要用单引号　'　将工作表名括起来。如：　　

Worksheets（〃Sheet1〃）。ActiveCell。Formula=〃=Max（'1…1剖面'！D3：D5）〃　4、引用其它工作簿　

中的单元格　在被引用单元格所在工作表名前加上〃＇工作簿名＇〃，即可引用其它工作簿中的单　

元格。如：　ActiveCell。Formula=〃=MAX（＇Book1。xls＇Sheet3！R1C：RC＇4＇）〃　同样需注意的是：　

当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号〃＇〃、〃＇〃及单引号　

'将工作簿名括起来。如：　Cells（1；2）。Formula=〃=MIN（'＇1995…2000总结。xls＇1995…1996年'！　　

A1：A6）〃　5、避免循环引用　在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，　

防止循环引用错误。　6、添加批注　可按如下方法格给单元格添加批注：　Dim　批注文本　As　　

String　　批注文本　=〃　批注示例　〃　'准备批注文本　　ActiveCell。Addment　'　添加批注　　

ActiveCell。ment。Text　Text：=临时　'写入批注文本　ActiveCell。ment。Visible=False　　

'隐藏批注　7、添加、删除、复制、剪切、粘贴单元格　Range（〃D10〃）。Insert　Shift：=xlToRight　　

'在D10单元格处添加一新单元格，原D10格右移　Range（〃C2〃）。Insert　Shift：=xlDown　'在C2　

单元格处添加一新单元格，原C2格下移　Rows（2）。EntireRow。Insert　'在第2行前添加一空白　

行，原第2行下移　Columns（3）。EntireColumn。Insert　'在C列前添加一空白列，原C列右移　　

Columns（〃A：D〃）。Delete　Shift：=xlToLeft　'删除A列至D列，其右侧列左移　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXII　　


…………………………………………………………Page　33……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Rows（〃3：5〃）。Delete　　Shift：=xlUp　　'　删　除　第　3　行　至　第　5　行　，　其　下　方　行　上　移　　

Range（〃B2〃）。EntireRow。Delete　'删除第2行　Range（〃C4〃）。EntireColumn。Delete　'删除C列　　

Range（〃B10：C13〃）。Copy　'　复制B10　至C13　单元格区域　　Cells（1；2）。Cut　'　剪切B1　单元格　　

Range（〃D10〃）。Select　ActiveSheet。Paste　'　自D10单元格起粘贴剪贴板中的内容　四）、图表　1、　

工作表图表　以下为一添加工作表图表的实例。　Charts。Add　after：=Worksheets（〃Sheet1〃）　'　

在〃Sheet1〃工作表之后添加新图表工作表　ActiveChart。ChartType=xlXYScatterSmooth　'图　

表类型为　XY　平滑线散点图　　　ActiveChart。SetSourceData　Source：=Sheets（〃　结点坐标　

〃）。Range（〃A1：B69〃）；　PlotBy：=　_　xlColumns　'图表数据来源于〃结点坐标〃工作表的A1至B69　

单　元　格　，　且　按　列　绘　图　。　　　ActiveChart。Location　　Where：=xlLocationAsNewSheet　　With　　

ActiveChart　。HasTitle　=　True　。ChartTitle。Characters。Text　=　〃节点坐标〃　'图表标题〃　

节　点　坐　标　〃　　。Axes（xlCategory；　　xlPrimary）。HasTitle　　=　　True　　。Axes（xlCategory；　　

xlPrimary）。AxisTitle。Characters。Text　　=　　〃x〃　　'x　　轴　标　题　　〃x〃　　。Axes（xlValue；　　

xlPrimary）。HasTitle　=　True　。Axes（xlValue；　xlPrimary）。AxisTitle。Characters。Text　=　〃y〃　　

'y轴标题〃y〃　End　With　With　ActiveChart。Axes（xlCategory）　。HasMajorGridlines　=　True　'　

显示x轴主网格线，默认情况下为显示　。HasMinorGridlines　=　True　'显示x轴次网格线，默认　

情况下为不显示　End　With　With　ActiveChart。Axes（xlValue）　。HasMajorGridlines　=　True　'　

标出x轴主网格值，默认情况下为标注　。HasMinorGridlines　=　False　'取消x轴次网格值标注，　

默认情况下为不标注　End　With　ActiveChart。Legend。Position　=　xlRight　'图例显示在图表　

右侧　2、嵌入式图表　嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图　

表的设置基本类似。详见下例。　Set嵌入表=ActiveSheet。ChartObjects。Add（0；0；200；300）　'　

在当前工作表　（0；0）坐标处添加宽200，高300的嵌入式图表　嵌入表。Chart。ChartType　=　　

xlColumnClustered　　'　图　表　类　型　为　簇　状　柱　形　图　　　嵌　入　表　。Chart。SetSourceData　　

Source：=Sheets（1）。Range（〃A2：B2〃）；　PlotBy：=xlRows　'　设置图表数据来源　　With　　嵌入　

表。Chart　。HasTitle　=　False　'无图表标题　。Axes（xlCategory；　xlPrimary）。HasTitle　=　False　　

'无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_使用技巧大全（完全版）　　



Selection。Style　=　〃Percent〃　当前单元格字体为粗体　Selection。Font。Bold　=　True　当前单　

元格字体为斜体　Selection。Font。Italic　=　True　当前单元格字体为宋体20号字　With　　

Selection。Font　。Name　=　〃宋体〃　。Size　=　20　End　With　With　语句　With　对象　。描述　End　With　　

让你的机器发出响声　　BEEP　　清除单元格中所有文字、批注、格式、所有的东西！　　

ActiveCell。Clear　测试选择状态的单元格的行数　MsgBox　Selection。Rows。Count　测试选择　

状态的单元格的列数　MsgBox　Selection。Columns。Count　测试选择状态的单元格的地址　　

Selection。Address　让所有的错误不再发生　ON　ERROR　RESUME　NEXT　产生错误时让错误转到另　

一个地方　on　error　goto　l　'code　l：　'code　删除一个文件　kill　〃c：1。txt〃　定制自己的状　

态　栏　　　Application。StatusBar　　=　　〃　现　在　时　刻　：　　〃　　&　　Time　　恢　复　自　己　的　状　态　栏　　

Application。StatusBar　=　false　在运行期执行一个宏　Application。Run　macro：=〃text〃　滚　

动窗口到a1的位置　ActiveWindow。ScrollRow　=　1　ActiveWindow。ScrollColumn　=　1　定制系统　

日期　Dim　MyDate；　MyDay　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXVII　　


…………………………………………………………Page　38………