按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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_使用技巧大全（完全版）
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……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
MyDate = #12/12/69# MyDay = Day（MyDate） 今天的年限 Dim MyDate； MyYear MyDate = Date
MyYear = Year（MyDate） MsgBox MyYear 产生一个inputbox InputBox （〃Enter number
of months to add〃） 得 到 一 个 文 件 名 ： Dim kk As String kk =
Application。GetOpenFilename（〃EXCEL （*。XLS）； *。XLS〃； Title：=〃提示：请打开一个EXCEL
文件：〃） msgbox kk 打开zoom显示比例对话框 Application。Dialogs（xlDialogZoom）。Show 激
活字体对话框 Application。Dialogs（xlDialogActiveCellFont）。Show 打开另存对话框 Dim
kk As String kk = Application。GetSaveAsFilename（〃excel （*。xls）； *。xls〃）
Workbooks。Open kk 此段代码寻找字符串中特定字符的位置，需要建立一个窗体，并在窗体中，
放入TEXTBOX1；TEXTBOX2和TEXTBOX3（3个文本框）及MANDBUTTON1（按钮） Private Sub
mandButton1_Click（） a = TextBox1。Text b = TextBox2。Text aa = Len（a） i = 1 Dim YY
As String If