按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
'无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_使用技巧大全（完