EXCELVBA帮助手册

Excel2003VBA 帮助文档

目录

一些对象的应用方法 (4)

Add 方法 (5)

Add方法(Dictionary) (6)

Add 方法(Folders) (6)

Assert 方法 (7)

BuildPath 方法 (8)

Clear 方法 (8)

Close 方法 (9)

Copy 方法 (10)

CopyFile 方法 (10)

CopyFolder 方法 (11)

CreateFolder 方法 (12)

CreateTextFile 方法 (13)

Delete 方法 (14)

DeleteFile 方法 (14)

DeleteFolder 方法 (15)

DriveExists 方法 (15)

Exists 方法 (16)

FileExists 方法 (16)

FolderExists 方法 (17)

GetAbsolutePathName 方法 (17)

GetBaseName 方法 (18)

GetExtensionName 方法 (18)

GetFile 方法 (19)

GetFileName 方法 (19)

GetFolder 方法 (20)

GetParentFolderName 方法 (20)

GetSpecialFolder 方法 (21)

GetTempName 方法 (22)

Hide 方法 (22)

Item 方法 (23)

Items 方法 (24)

Keys方法 (24)

Move 方法 (25)

Move 方法（UseForm） (25)

1、应用于 (25)

2、请参阅 (25)

MoveFile 方法 (25)

MoveFolder 方法 (26)

OpenAsTextStream 方法 (27)

OpenTextFile 方法 (28)

Print 方法 (30)

PrintForm 方法 (31)

Raise 方法 (31)

Read 方法 (33)

ReadAll 方法 (33)

ReadLine 方法 (34)

Remove 方法 (34)

Remove 方法（FileSystemObject 对象） (35)

RemoveAll 方法 (35)

Show 方法 (36)

Skip 方法 (37)

SkipLine 方法 (37)

WhatsThisMode 方法 (38)

Write 方法 (38)

WriteBlankLines 方法 (39)

WriteLine 方法 (39)

一些对象的应用方法

1、Collection 对象

⑴ADD 方法、⑵Item 方法、⑶Remove 方法

2、Debug 对象

⑴Assert 方法、⑵Print 方法

3、Dictionary对象

⑴Add方法(Dictionary)、⑵Exists 方法、⑶Items 方法、⑷Keys方法、⑸Remove 方法、⑹Remove 方法（FileSystemObject 对象）、⑺RemoveAll 方法、

4、Err 对象

⑴Clear 方法、⑵Raise 方法

5、File 对象、Folder 对象

⑴Copy 方法、⑵Delete 方法、⑶CreateTextFile 方法（Folder 对象）、⑷Move 方法、⑸OpenAsTextStream 方法（File 对象）

6、Folders集合

⑴Add 方法(Folders)

7、FileSystemObject 对象

⑴BuildPath 方法、⑵CopyFile 方法、⑶CopyFolder 方法、⑷CreateFolder 方法、⑸CreateTextFile 方法、⑹DeleteFile 方法、⑺DeleteFolder 方法、⑻DriveExists 方法、⑼FileExists 方法、⑽GetAbsolutePathName 方法、⑾GetBaseName 方法、⑿GetExtensionName 方法、⒀GetFile 方法、⒁GetFileName 方法、⒂GetFolder 方法、⒃GetParentFolderName 方法、⒄GetSpecialFolder 方法、⒅GetTempName 方法、⒆MoveFile 方法、⒇MoveFolder 方法、(21)OpenTextFile 方法

8、UserForm 对象，UserForms 集合对象

⑴Hide 方法、⑵PrintForm 方法、⑶Show 方法、⑷WhatsThisMode 方法

9、TextStream 对象

⑴Close 方法、⑵Read 方法、⑶ReadAll 方法、⑷ReadLine 方法、⑸Skip 方法、⑹SkipLine 方法、⑺Write 方法、⑻WriteBlankLines 方法、⑼WriteLine 方法

Add 方法

添加一个成员到Collection对象。

语法

object.Add item,key,before,after

说明

before 或after参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。

如果指定的key 和集合中现有成员的key 发生重复，则也会导致错误发生。

1、应用于Collection 对象

2、请参阅Item方法、Remove方法

Add 方法示例

本示例使用Add方法将 Inst 对象（类 Class1 之示例，其中包含Public 变量 InstanceName）加到 MyClasses 集合对象中。若要观察程序的运作，插入

一个类模块，并在 Class1 的模块级中声明公用变量 InstanceName（键入

Public InstanceName）来保存每个示例的名称。类名就用缺省的 Class1。将下列代码复制与粘贴到某个窗体模块的 Form_Load 事件过程中。

Dim MyClasses As New Collection ' 建立集合对象。

Dim Num As Integer ' 定义计数变量。

Dim Msg

Dim TheName ' 用来保存用户指定的名称的变量。

Do

Dim Inst As New Class1 ' 建立 Class1 的新示例。

Num = Num + 1 ' 将计数变量加一，并让用户输入名称。

Msg = "Please enter a name for this object." & Chr(13) _

& "Press Cancel to see names in collection."

TheName = InputBox(Msg, "Name the Collection Items")

Inst.InstanceName = TheName ' 将输入的名称存到对象的示例中。 ' 如果名称不是空字符串，则将该示例加到集合对象中。

If Inst.InstanceName <> "" Then

' 将该示例加到集合对象中。

MyClasses.Add item := Inst, key := CStr(Num)

End If

' 清除对当前示例的引用，以准备下一个。

Set Inst = Nothing

Loop Until TheName = ""

For Each x In MyClasses

MsgBox x.instancename, , "Instance Name"

Next

Add方法(Dictionary)

描述

添加一对相对应的关键字和条目到Dictionary 对象。

语法

object.Add key, item

说明

如果该关键字已经存在，则产生一个错误。

1、应用于Dictionary 对象

2、请参阅ADD方法（Folder）、Exist方法、Items方法、Keys方法、Remove 方法、RemoveAll方法

Add 方法(Folders)

描述

添加一个新的Folder 到Folders 集合。

语法

object.Add folderName

说明

如果folderName 已经存在，则产生一个错误。

1、应用于Folders 集合

2、请参阅Add方法(Dictionary)

Assert 方法

有条件地在该方法出现的行上挂起执行。

语法

object.Assert booleanexpression

说明

Assert调用只在开发环境中工作。当模块被编译成为一个可执行的文件时，调用Debug对象的方法就会被忽略。

全部booleanexpression常常被计算。例如，即使一个And表达式的第一部分被计算为False，整个表达式还要被计算。

1、应用于Debug 对象

2、请参阅Print 方法

Assert 方法示例

下面的示例说明如何使用Assert方法。示例需要一个带有两个按纽控件的窗体。缺省的按纽名称是 Command1 和 Command2 。

当示例运行时，单击 Command1 按纽使得按纽上的文本在 0 和 1 之间进行切换。单击 Command2 按纽可能不做任何事，也可能引起一个确认，应该执行哪一个操作取决于 Command1 按纽上所显示的值。该确认将在最后一个语句执行之后使整个执行停止，并且 Debug.Assert 行被突出显式。

Option Explicit

Private blnAssert As Boolean

Private intNumber As Integer

Private Sub Command1_Click()

blnAssert = Not blnAssert

intNumber = IIf(intNumber <> 0, 0, 1)

Command1.Caption = intNumber

End Sub

Private Sub Command2_Click()

Debug.Assert blnAssert

End Sub

Private Sub Form_Load()

Command1.Caption = intNumber

Command2.Caption = "Assert Tester"

End Sub

BuildPath 方法

描述

追加一个名字到一个已经存在的路径。

语法

object.BuildPath(path, name)

说明

只有在需要时，BuildPath 方法才在已存在路径和名字之间插入一个附加的路径分隔符。

1、应用于FileSystemObject 对象。

Clear 方法

清除Err对象的所有属性设置。

语法

object.Clear

objec 总是Err对象。

说明

在处理错误之后使用Clear 来清除Err对象，例如，在对On Error Resume Next 使用拖延错误处理时就可使用Clear。每当执行下列语句时就会自动调用Clear 方法：

?任意类型的Resume语句。

?Exit Sub, Exit Function, Exit Property

?任何On Error 语句。

注意当处理因访问其他对象产生的错误时，与其使用On Error GoTo，

不如使用On Error Resume Next。每一次与对象打交道之后都检查Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入

Err.Number 中，也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。

1、应用于Err 对象

2、请参阅Description 属性、Err 对象、HelpContext 属性、HelpFile 属性、LastDLLError 属性、Number 属性、On Error 语句、Raise 方法、Source 属性。

Clear 方法示例

本示例使用Err 对象的Clear 方法将Err对象之数值属性重新设置为零，并将其字符串属性设置为零长度字符串。如果在代码中省略Clear方法，则每完成一次循环便会显示一次错误信息（发生错误之后），不论程序中的计算结果是否真的有错误。

Dim Result(10) As Integer ' 声明数组变量

'其元素容易溢出

Dim indx

On Error Resume Next ' 将错误处理的方式改为“继续下一行”。

Do Until indx = 10

' 下面计算若有错误发生，便显示错误信息。

Result(indx) = Rnd * indx * 20000

If Err.Number <> 0 Then

MsgBox Err, , "Error Generated: ", Err.HelpFile, Err.HelpContext Err.Clear ' 清除 Err 对象的属性。

Else

indx = indx + 1

End If

Loop

Close 方法

描述

关闭一个打开的TextStream 文件。

语法

object.Close

object始终是一个TextStream 对象的名字。

1、应用于TextStream 对象

2、请参阅Read方法、ReadAll方法、ReadLine方法、Skip方法、SkipLine方法、Write方法、WriteBlankLines方法、WriteLine方法。

Copy 方法

描述

把一个指定的文件或文件夹从一个地方复制到另一个地方。

语法

object.Copy destination[, overwrite]

说明

对一个File 或Folder，Copy 方法的结果和执行

FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的结果是一样的，在后者中，object所引用的文件或文件夹是作为参数传递的。应当注意，后面的方法能够复制多个文件或文件夹。

1、应用于File 对象、Folder 对象

2、请参阅CopyFile 方法、CopyFolder 方法、Delete 方法、Move 方法、OpenAsTextStream 方法

CopyFile 方法

描述

把一个或多个文件从一个地方复制到另一个地方。

语法

object.CopyFile source, destination[, overwrite]

说明

通配符只能用在source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符：

FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc",

"c:\tempfolder\"

但下面情况不能使用：

FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls",

"c:\tempfolder"

如果source 包含通配符或destination 以路径分隔符（\）为结尾，则认为destination 是一个已存在文件夹，在其中复制相匹配的文件。否则认为destination 是一个要创建文件的名字。不论是那种情况，当复制一个文件时，可能发生三种事件。

?如果destination 不存在，source 得到复制。这是通常的情况。

?如果destination 是一个已存在的文件，则当overwrite 值为False 时发生一个错误，否则，source的复制文件将试图覆盖已存在文件。

?如果destination 是一个目录，发生一个错误。

如果使用通配符的source 不能和任何文件匹配，同样产生一个错误。CopyFile 方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。

1、应用于FileSystemObject 对象

2、请参阅Copy 方法、CopyFolder 方法、CreateFolder 方法、DeleteFolder 方法、MoveFolder 方法

CopyFolder 方法

描述

从一个地方递归地复制一个文件夹到另一个地方。

语法

object.CopyFolder source, destination[, ove r write]

说明

通配符仅可用于source 参数的最后一个路径部件。例如你可以在下面情况使用它：

FileSystemObject.CopyFolder "c:\mydocuments\letters\*",

"c:\tempfolder\"

但不能在下面情况使用它：

FileSystemObject.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"

如果source 包含通配符或destination 以路径分隔符（\）为结尾，则认为destination 是一个已存在的文件夹，在其中复制相匹配的文件夹和子文件夹。否则认为destination 是一个要创建的文件夹的名字。不论何种情况，当复制一个文件夹时，可能发生四种事件。

?如果destination 不存在，source 文件夹和它所有的内容得到复制。这是通常的情况。

?如果destination 是一个已存在的文件，则发生一个错误。

?如果destination 是一个目录，它将尝试复制文件夹和它所有的内容。

如果一个包含在source 的文件已在destination 中存在，当

overwrite 为False 时发生一个错误，否则它将尝试覆盖这个文件。

?如果destination 是一个只读目录，当尝试去复制一个已存在的只读文件到此目录并且overwrite为False 时，则发生一个错误。

如果source 使用的通配符不能和任何文件夹匹配，也发生一个错误。CopyFolder 方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。

1、应用于FileSystemObject 对象

2、请参阅Copy 方法、CopyFile 方法、CreateFolder 方法、DeleteFolder 方法、MoveFolder 方法

CreateFolder 方法

描述

创建一个文件夹。

语法

object.CreateFolder(foldername)

说明

如果指定的文件夹已经存在，则发生一个错误。

1、应用于FileSystemObject 对象

2、请参阅CopyFolder 方法、CreateTextFile 方法、DeleteFolder 方法、MoveFolder 方法。

CreateTextFile 方法

描述

创建一个指定的文件名并且返回一个用于该文件读写的TextStream 对象。

语法

object.CreateTextFile(filename[,overwrite[,unicode]])

说明

下面的代码举例说明如何使用CreateTextFile 方法创建和打开文本文件。Sub CreateAfile

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\testfile.txt", True)

a.WriteLine("This is a test.")

a.Close

End Sub

对于一个已经存在的filename，如果overwrite 参数是False 或者没有提供，则发生一个错误。

1、应用于FileSystemObject 对象、Folder 对象

2、请参阅CopyFile 方法、DeleteFile 方法、OpenAsTextStream 方法、OpenTextFile 方法

Delete 方法

描述

删除一个指定的文件或文件夹。

语法

object.Delete force

说明

如果指定的文件或文件夹不存在，则发生一个错误。

对于一个File 或Folder，Delete 方法的结果和执行

FileSystemObject.DeleteFile 或FileSystemObject.DeleteFolder操作的结果是一样的。

Delete 方法对于文件夹内是否有内容不做区别。不管指定的文件夹是否有内容，它都被删除。

1、应用于File对象、Folder对象。

2、请参阅Copy方法、Delete方法、DeleteFolder方法、Move方法、OpenAsTextStream方法。

DeleteFile 方法

描述

删除一个指定的文件。

语法

object.DeleteFile filespec[, force]

说明

如果没有发现相匹配的文件，则产生一个错误。DeleteFile 方法停在它遇到的第一个错误上。不要尝试回卷或撤消错误发生前所做的任何改变。

1、应用于FileSystemObject 对象

2、请参阅Copy方法、Delete方法、DeleteFolder方法、MoveFile方法DeleteFolder 方法

描述

删除一个指定的文件夹和它的内容。

语法

object.DeleteFolder folderspec[, force]

说明

DeleteFolder方法对文件夹中有无内容不做区别。不管指定的文件夹中是否有内容，它都被删除。

如果没有发现相匹配的文件夹，则发生一个错误。DeleteFolder 方法停止在它遇到的第一个错误上，不要尝试回卷或撤消错误发生前所做的任何改变。

1、应用于FileSystemObject 对象

2、请参阅CopyFolder方法、CreateFolder方法、Delete方法、DeleteFile方法、MoveFolder方法。

DriveExists 方法

描述

如果指定的驱动器存在，返回True，如果不存在返回False。

语法

object.DriveExists(drivespec)

说明

对于可删除介质的驱动器，即使没有介质存在，DriveExists 方法也返回True。使用Drive 对象的IsReady 属性确定驱动器是否准备好。

1、应用于FileSystemObject

2、请参阅FileExists 方法、FolderExists 方法

Exists 方法

描述

如果在Dictionary 对象中指定的关键字存在，返回True，若不存在，返回False。

语法

object.Exists(key)

1、应用于Dictionary 对象

2、请参阅Add方法(Dictionary)、Items 方法、Keys方法、Remove 方法、RemoveAll 方法

FileExists 方法

描述

如果指定的文件存在，返回True，若不存在，则返回False。

语法

object.FileExists(filespec)

1、应用于FileSystemObject 对象

2、请参阅DriveExists 方法、FolderExists 方法

FolderExists 方法

描述

如果指定的文件夹存在返回True，不存在返回False。

语法

object.FolderExists(folderspec)

1、应用于FileSystemObject 对象

2、请参阅DriveExists 方法、FileExists 方法GetAbsolutePathName 方法

描述

从提供的路径说明中返回一个完整、明确的路径。

语法

object.GetAbsolutePathName(pathspec)

说明

一个路径如果提供了从指定驱动器根目录的一个完整引用，则该路径是完整、明确的。一个完整的路径如果指定一个被映射驱动器的根文件夹，它只能以路径分隔符（\）为结尾。

假设当前目录是 c:\mydocuments\reports，下面的表说明了

1、应用于FileSystemObject 对象

2、请参阅BuildPath 方法、GetBaseName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFile 方法、GetFileName 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法

GetBaseName 方法

描述

返回一个包含路径中最后部件的基本名字（去掉任何文件扩展名）的字符串。

语法

object.GetBaseName(path)

说明

如果没有部件和path 参数匹配，GetBaseName 方法返回一个长度为零的字符串（""）。

注意GetBaseName 方法只对提供的path 字符串起作用。它既不试图去辨认路径，也不检查指定路径是否存在。

1、应用于FileSystemObject 对象

2、请参阅BuildPath 方法、GetAbsolutePathName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFile 方法、GetFileName 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法

GetExtensionName 方法

描述

返回一个包含路径中最后部件扩展名的字符串。

语法

object.GetExtensionName(path)

说明

对于网络驱动器，根目录（\）被认为是一个部件。

如果没有部件和path 参数相匹配，GetExtensionName 方法返回一个长度为零的字符串 ("")。

1、应用于FileSystemObject 对象

2、请参阅BuildPath 方法、GetBaseName 方法、GetDrive 方法、GetDriveName 方法、GetFile 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法

GetFile 方法

描述

返回一个和指定路径中文件相对应的File 对象。.

语法

object.GetFile(filespec)

说明

如果指定的文件不存在，则发生一个错误。

1、应用于FileSystemObject 对象

2、请参阅FileExists 方法、GetAbsolutePathName 方法、GetBaseName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFileName 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法、MoveFile 方法

GetFileName 方法

描述

返回指定路径中的最后部件，该路径不是驱动器说明的一部分。

object.GetFileName(pathspec)

说明

如果pathspec 不是以已命名部件结尾，GetFileName 方法返回一个零长度字符串（""）。

注意GetFileName 方法仅在提供的路径字符串上起作用。它没有尝试去辨认路径，也不对指定路径是否存在进行检查。

1、应用于FileSystemObject 对象

2、请参阅FileExists 方法、GetAbsolutePathName 方法、GetBaseName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFile 方法、GetFolder 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法、MoveFile 方法

GetFolder 方法

描述

返回一个和指定路径中文件夹相对应的Folder 对象。

语法

object.GetFolder(folderspec)

说明

如果指定的文件夹不存在，则发生一个错误。

1、应用于FileSystemObject 对象

2、请参阅FolderExists 方法、GetAbsolutePathName 方法、GetBaseName 方法、GetDrive 方法、GetDriveName 方法、GetExtensionName 方法、GetFile 方法、GetFileName 方法、GetParentFolderName 方法、GetSpecialFolder 方法、GetTempName 方法、MoveFile 方法

GetParentFolderName 方法

WORD的基础知识与基本操作培训

WORD的基础知识与基本操作 沿河第三高级中学 张小华 2017.12.2 WORD简介： WORD是微软公司的Office系列办公软件中的一个组件。它集文字处理，电子表格、传真、电子邮件，HTML和web页面制作功能于一身，让用户能方便地处理文字，图形和数据等。 Word文档的培训目标： 1文档基本编辑技术 2文档版面编排 3文档高级编排技术 第一次课：word文档基本编辑技术： 1、启动与退出 2、认识工作环境 3、文档的基本编辑方法 4、设置字符格式 5、设置段落格式 一、启动与退出： 1．用菜单命令建立 （1）单击“文件 /新建”命令，打开“新建文档”任务窗格。 （2）单击“空白文档”或“ XML 文档”或“网页”或“电子邮件”等按钮，可以新建不同类型的空白文档。 2．用工具栏图标按钮建立 单击“常用”工具栏中“新建空白文档”按钮，可快速建立一个新的空白文档。 3．使用快捷键建立 按压 Ctrl+N 键，将以缺省的模板文件创建一个空白文档。 2..退出 单击WORD主窗口标题栏右侧的关闭按钮 执行菜单命令文件---退出 单击WORD主窗口标题栏左侧的系统控制菜单图标，选择“关闭”命令 二、认识工作环境：

境： 三、文档的基本编辑方法 1. 文本的输入 第一步：启动Word 第二步：选择输入法：用鼠标点击任务栏右端的输入法状态图标，在弹出菜单中用鼠标点击“智能ABC”或其它中文输入法或英文输入； 第三步：用鼠标在白色输入区内任意地方点击一下，出现闪动的黑色竖杠光标“|”； 第四步：开始输入文本； 第五步：当本行打满后，光标将自动转到下一行的开头位置，可继续输入； 第六步：本段输入完毕后，在键盘上敲击一下“Enter”键，即可开始新的段落的输入，直至输入全部文本内容。 1. 文本的输入中文，英文，标点符号 大小写切换：caps lock 特殊符号：shift+数字键 特殊文字：插入/符号或特殊符号 快捷方式介绍： 键盘方向键：上下左右移动 Page Up:插入点上移一页 Page Down:插入点下移一页 Home:从当前位置移动到本行首 End:从当前位置移动到本行末 Ctrl+Home：从当前位置移动到文档首 2. 选定文本 选择任意文本 选择一行文本 选择多行文本 选择一段文本 选择全部文本 鼠标方式：拖动、单击、双击、三击 鼠标和键盘结合的方式：按住Shift键的同时单击鼠标左键，可以选定从原来光标处到单击

word和excel表格应用技巧

如何将excel表格转换成word文档？ Excel强大的制表功能让很多办公一族都忘不了它的方便与实用。可是在一些情况下，我们必须将Excel表格转换成Word文档。当前普遍的做法是：先用Excel做好表格，再把表粘到Word里。可是粘到Word里后表的格式全变了，还得重新进行调试，费时又费力。其实，完全可以按下述方法来轻松转换。 首先，用Excel编辑好一个表格，然后点击“文件”→“另存为web页”。web页就是网页文件，在“保存选项”处把“保存整个工作簿”调整成“选择：工作表”，把默认文件名“page.htm”根据实际情况改成你所需要的名字，如：“工作表.htm”，再点击“保存”。注意，在改名时绝对不可以把后面的.htm去掉，只要改“.”前面的部分就可以了。 找到刚才保存好的“工作表.htm”，如果你所安装的操作系统是WindowsXP或Windows2000，可以在文件上面直接点击鼠标右键，选择“打开方式”最下面的“打开程序”选项，在列表中找到“Word”，选中并确定。如果你所使用的操作系统是windows98，则操作方法略有不同，需要在“工作表.htm”上按住shift键的同时点击鼠标右键，之后再进行上述操作。 用Word程序打开该文件后，不要做任何编辑操作，直接点击“文件”→“另存为”，把文件名改成“工作表Word版”，把保存类型选成“Word文档”，再点击“保存”即可。 现在再打开刚才保存的“工作表word版”文件看看，是不是转换得很完美呢？Word表格处理技巧 Word表格处理技巧 1 文字巧妙转换成表格 通常大家制作表格时，都是采用表格和边框工具来绘制表格，或者利用“表格→插入→表格”命令来定制表格，请问如已输入了文字，则有没有办法让文字快速产生表格呢？ 答：有，可以用Word提供的表格与文字之间的相互转换功能完成。具体方法是这样： （1）按照自己的计划先将表格中的各项内容输入Word文件中，在这需注意的是，一定要利用一种特别的分隔符隔开准备产生表格列线的文字内容，该分隔符可以是逗号、制表符、空格或其他字符。 （2）选中需产生表格的文字内容，在菜单栏单击“表格→转换→文本转换成表格”命令，在弹出的对话框中的“文字分隔符位置”选项中选逗号（一定要和输入表格内容时的分隔符一致），同时按所要的表格形式对其他选项做适当的调整。 2 用“+”、“-”号巧制表格 表格制作一般的Word用户都会，但如果只利用键盘上的“+”号和“-”号来快速完成表格制作，可能很多朋友都不会，它的具体操作方法又是如何进行？ 答：利用键盘上的“+”与“-”号制作表格，有时会给我们带来更高的效率。在制作前首先得明白“+”号表示下面将产生一列线条，而“-”号起到连线的作用，其具体制作

Excel VBA实例教程 #055：在工作表中添加艺术字

工作表中的多个图形，如果使用系统缺省名称，如“文本框1”、“文本框2”这样前面是固定的字符串，后面是序号的，可以使用For...Next 语句遍历图形，如下面的代码所示。 1.Sub ErgShapes_1() 2. Dim i As Integer 3. For i = 1 To 4 4. Sheet1.Shapes("文本框 " & i).TextFrame.Characters.Text = "" 5. Next 6.End Sub 代码解析： ErgShapes_1过程清除工作表中四个图形文本框中的文字。 第3行到第5行代码，使用Shapes属性在工作表上的三个图形文本框中循环。 Shapes属性返回Shapes对象，代表工作表或图形工作表上的所有图形，可以使用Shapes （index）返回单个的Shape对象，其中index是图形的名称或索引号。 返回单个的Shape对象后使用TextFrame 属性和Characters方法清除文本框中的字符，关于Shape对象的TextFrame 属性和Characters方法请参阅技巧53 。 如果图形的名称没有规律，可以使用For Each...Next 语句循环遍历所有图形，根据Type 属性返回的图形类型进行相应的操作，如下面的代码所示。 1.Sub ErgShapes_2() 2. Dim myShape As Shape 3. Dim i As Integer 4. i = 1 5. For Each myShape In Sheet1.Shapes 6. If myShape.Type = msoTextBox Then 7. myShape.TextFrame.Characters.Text = "这是第" & i & "个文本框" 8. i = i + 1 9. End If 10. Next 11.End Sub 代码解析： ErgShapes_2过程在工作表中的所有图形文本框中写入文本。 第5行代码使用For Each...Next 语句循环遍历工作表中所有的图形对象。 第6行到第9行代码如果图形对象是文本框则在文本框中写入文本。其中第6行代码根据Type属性判断图形对象是否为文本框，应用于Shape对象的Type属性返回或设置图形类型，MsoShapeType类型，请参阅表格54 1 。 第7行代码根据返回的Type属性值在所有的文本框内写入相应的文本，如图1所示。

Excel_VBA实例教程_查找单元格

Excel VBA实例教程查找单元格 1、使用Find方法 在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。 01.Sub RngFind() 02. Dim StrFind As String 03. Dim Rng As Range 04. StrFind = InputBox("请输入要查找的值:") 05. If Trim(StrFind) <> "" Then 06. With Sheet1.Range("A:A") 07. Set Rng = .Find(What:=StrFind, _ 08. After:=.Cells(.Cells.Count), _ 09. LookIn:=xlValues, _ 10. LookAt:=xlWhole, _ 11. SearchOrder:=xlByRows, _ 12. SearchDirection:=xlNext, _ 13. MatchCase:=False) 14. If Not Rng Is Nothing Then 15. Application.Goto Rng, True 16. Else 17. MsgBox "没有找到该单元格!" 18. End If 19. End With 20. End If 21.End Sub 代码解析： RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。 第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range 对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下： 01.expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat) 复制代码参数expression是必需的，该表达式返回一个Range对象。 参数What是必需的，要搜索的数据，可为字符串或任意数据类型。 参数After是可选的，表示搜索过程将从其之后开始进行的单元格，必须是区域中的单个单元格。查找时是从该单元格之后开始的，直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。 在本例中将After参数设置为A列的最后一个单元格，所以查找时从A1单元格开始搜索。 参数LookIn是可选的，信息类型。 参数LookAt是可选的，可为XlLookAt常量的xlWhole 或xlPart之一。 参数SearchOrder是可选的，可为XlSearchOrder常量的xlByRows或xlByColumns之一。 参数SearchDirection是可选的，搜索的方向，可为XlSearchDirection常量的xlNext或xlPrevious 之一。

Word基本操作教程

Word基本操作教程 1、WORD的启动与关闭 启动：开始→程序→MicrosoftWord 关闭：文件→退出、关闭按钮 2、WORD窗口的组成：标题栏、菜单栏、工具栏、文档窗口、状态栏 3、打开或关闭工具栏：“视图”菜单→工具栏→选择工具选项(右击工具栏→选择工具选项) 4、文本的基本制作 1)选择汉字输入法： 方法二：Ctrl+Shift组合键选择 2)中英文切换的方法：Ctrl+空格键或在中文输入时，第一个字母输入v，随后输入的便是英文。 3)汉字输入方法：(智能ABC输入法) 输入完整汉语拼音;例如新世纪：xinshiji 输入词组前一字完整的拼音和后一字的声母;例如信息：xinx。 用数字键选择汉字;第一字词用空格键选择;用“+-”键翻页。 拼音中ǔ用v代替;如女同学：nvtongxue 输入大写的一、二……一○等：io+数字 重复输入：先输入要重复的文字→将插入点移到适当的位置→按F4或CTRL+Y。 4)标点符号的输入：

中西文标点选择：，.和，。 常用标点符号的输入：顿号、—书名号《》—<> 5)关闭软键盘的方法：单击软键盘图标。 6)保存文件：文件→保存(另存为); “常用工具栏”上“保存”按钮。 7)打开文件：文件→打开→查找范围、文件名→打开。 5、上机操作：输入下列文字。 迎着新世纪的曙光，“世界华人学生作文大赛”向我们走来。 第二节文本的基本编辑 教学目的：学习文本编辑的方法，掌握文字段落的设置与修饰。 教学重点：文本编辑的方法;文字的设置与修饰;段落的设置。 教学时间：2课时 教学步骤： 1、文本编辑的方法 插入文字：①用键盘移光标到插入文字处;②在插入文字处单击鼠标光标。 输入特殊符号：①插入→符号;②右键→快捷菜单中“符号” 删除不需要的文字：按Delete键删除光标后面的字符;按Backspace键删除光标前面的字符。 选定一段文字：单击段首选中当前行;双击段首选中当前段;三击段落任意处选中当前段。 移动或复制一段文字 移动：选定文字→剪切→选定目标位置→粘贴(或用鼠标选定直接拖动到目标位置)

Excel VBA实例教程指南

Excel VBA教程之一：写在前面 VBA功能如何强大，这已勿庸费言，但如何才能很快进阶，写出自己满意的程序，却取决于个人努力和悟性。我下了很大功夫却收效甚微，有时，高手一句点拨却胜读三天书。所以，我把个人学习所得作一点整理，希望有助于后学。 只所以会有看书没用之感，一来是因为市面（我国）上大多数计算机类图书多为粗制滥造之作（这话稍有唐突），二来因为计算机这东西太呆板，不见得新出现的问题就能立即得到某本书籍上的解释，新问题总是层出不穷的。 想把一门编程语言全部搞懂，再去写点程序，是一个十分愚蠢的想法。你想盖房子，难道你想先学会制造砖头、玻璃等？我承认，把语言弄懂再做事情会很顺手，但是，你知道吗，有多少人在弄懂一门晦涩难懂的语言之前就放弃了呢？比如，什么叫面向对象编程？OOP和以前的流线性编程有什么异同？我还是大力提倡学以致用，别指望什么事你都能成专家，计算机世界的“罗氏定理”就是：“毕其一生，不能穷其万一”，你记住了吗？ 那么，对于没有编程基础的人，怎样才能进步得快呢？我有几点思考： 1.你一定要带着明确的目的去做一件具体的事。这样，才会在做的过程中发现问题，并逐步去解决这些问题。比如，我想做一个《学生成绩分析系统》，我就会想到怎么才能把学生分数分成不同的班、怎么才能算出总分、平均分、标准差等、怎样比较各班的情况，怎样用图形显示更直观，怎么样才能把某个学生的历次成绩放在一起比较等。 2.你动手去做一做，一点一点地完成你上面的设想，不必因为这个大工程没做出来而忽略你在局部的突破，这样，你会越来越有信心，这就够了，还有什么比有信心做事的感觉更好的了吗？ 3.合理及时利用网络资源，这绝对是个好东西，或许你看起来很了不起的问题，在别人看来简直不算什么，一定会有人为你解答。上网并不只是QQ和game啊！同时要好好利用软件的帮助系统，这才是最权威的解释，很多计算机书籍抄自帮助，你想，微软的专家写的，绝对原创，他还能去抄谁？ 4.做了一些工作之后，再回过头来看书，就会感觉很亲切，觉得写书的人原来也不是一无是处，也是很辛苦的（不要过分自我批评了）。不过，要看书，计算机类的，我百分之一万地推荐你看外国人写的，首先，软件是人家编的，当然更了解。其次，外国人写的，又被介绍到中国来，也是比较优秀的了。三来，我确实作过对比，看老外的书收益最大。语言不通的问题怎么办？金山词霸一下呗。 我为什么要写这个东西？一是因为我想帮助别人，二是因为我想因此促进自己，三是因为我反感某些号称程序员的家伙，似乎编程是一件多么了不起的事，用一些极端人士的话来说：“编程有什么了不起？不就是判断和循环吗”，说得很有道理，从本质上说，计算机就是在做判断和循环，不信你就跟着我来吧。 好了，Let’s go Excel VBA教程之二：从一个界面设计开始 一个好的软件，除了运算速度快、体积小后，更重要的是，它的用户界面是不是很友好、亲切，“友好、亲切”这样的词汇在开始接触计算机语言时，感觉很好笑，但现在不一样了，我感觉这两个词最贴切！界面友好，就是引导用户能很快找到他需要的服务，最能想到他的心思，最体贴他，让他不时地心动，不时地赞叹！界面友好，就是能让用户在不经意间学到好多知识，无形中丰富了他自己，让他有美的享受！界面友好，还在于一目了然的界面却能让他需要的功能呼之即来，挥之即去！如此等等。 那么，我想做一个《学生成绩分析系统》，我该怎么做呢？ 以下的界面你满意吗？

Word基本操作大全

把文字替换成图片 首先把图片复制到剪贴板中，然后打开替换对话框，在“查找内容框中输入将被替换的文字，接着在替换为”框中输入“ “C”（注意：输 入的一定要是半角字符，c要小写），单击替换即可。说明：““的意思就是指令WordXP 以剪贴板中的内容替换“查找内容（框中的内容。按此原理，“八还可替换包括回车符在内的任何可以复制到剪贴板的可视内容，甚至Excel 表格。 三招去掉页眉那条横线 1、在页眉中，在“格式（－“边框和底纹（中设置表格和边框为“无（，应用于“段落（ 2、同上，只是把边框的颜色设置为白色（其实并没有删的，只是看起来没有了，呵呵） 3、在“样式（栏里把“页眉（换成“正文（就行了——强烈推荐！会多出- -（两个横杠）这是用户不愿看到的,又要多出一步作删除-- 解决方法：替换时在前引号前加上一个空格问题就解决了插入日期和时间的快捷键 Alt+Shift+D ：当前日期 Alt+Shift+T ：当前时间 批量转换全角字符为半角字符首先全选。然后格式” T更改大小写”，在对话框中先选中半角”，确定即可

Word 启动参数简介 单击开始-运行”命令，然后输入Word所在路径及参数确定即可运行，如 “C\: PROGRAM FILES \MICROSOFT Office \Office 10\ WINWord.EXE /n ”，这些常用的参数及功能如下： /n ：启动Word 后不创建新的文件。 /a ：禁止插件和通用模板自动启动。 /m :禁止自动执行的宏。 /w ：启动一个新Word 进程，独立与正在运行的Word 进程。 /c :启动Word，然后调用Netmeeting。 /q :不显示启动画面。 另外对于常需用到的参数，我们可以在Word 的快捷图标上单击鼠标右键，然后在“目标”项的路径后加上该参数即可。 快速打开最后编辑的文档如果你希望Word 在启动时能自动打开你上次编辑的文档，可以用简单的宏命令来完成： （1）选择“工具”菜单中的“宏”菜单项，单击“录制新宏”命令打开“录制宏对话框；⑵在录制宏”寸话框中，在宏名”输入框中输入“autoexec,”点击确定”； （3）从菜单中选择“文件”，点击最近打开文件列表中显示的第一个文件名；并“停止录制”。保存退出。下次再启动Word 时，它会自动加载你工作的最后一个文档。

Excel VBA实例教程 #060：使用VBA自动生成图表

在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。 1.Sub ChartAdd() 2. Dim myRange As Range 3. Dim myChart As ChartObject 4. Dim R As Integer 5. With Sheet1 6. .ChartObjects.Delete 7. R = .Range("A65536").End(xlUp).Row 8. Set myRange = .Range("A" & 1 & ":B" & R) 9. Set myChart = .ChartObjects.Add(120, 40, 400, 250) 10. With myChart.Chart 11. .ChartType = xlColumnClustered 12. .SetSourceData Source:=myRange, PlotBy:=xlColumns 13. .ApplyDataLabels ShowValue:=True 14. .HasTitle = True 15. .ChartTitle.Text = "图表制作示例" 16. With .ChartTitle.Font 17. .Size = 20 18. .ColorIndex = 3 19. .Name = "华文新魏" 20. End With 21. With .ChartArea.Interior 22. .ColorIndex = 8 23. .PatternColorIndex = 1 24. .Pattern = xlSolid 25. End With 26. With .PlotArea.Interior 27. .ColorIndex = 35 28. .PatternColorIndex = 1

Word表格操作题练习

Word表格操作题 1、制作表格并输入下面内容，将下列表格的第3行中的文字删除,表格的行数与 2、下列2行4列表格，设置行高是15磅、列宽是3厘米，将表格的第4列删除， 再增加第3行，使表格变成同样格式的3行3列的表格，并添入相同字体的相应数字。不得作其他修改。 3、使用"表格"菜单中的命令将下列表格的第3行和第1列删除。不得作其他修 4、使用"表格"菜单中的命令，将下列表格的第1列与第2列合并，变成4行3 5、将下列表格的表格线设定为1.5磅,不得将表格作其他改变。

6、将下列2行4列表格的行高改为25磅、列宽改为2.5厘米，并将表格中的数 字设定为三号字。不得作其他修改。 7、将下列2行4列表格的四周边线设定3磅；其余的表格线设定为1.5磅，并将表格中的数字设定为小四号字。不得作其他修改。 8、2行4列表格改为：仅能打印出四周边线，其余各线为隐藏虚框，表格线设 定为2.25磅。不得作其他修改。 9、使用"表格"菜单中的命令，平均调整下列表格的各列的宽度。不得拖动表格 10、使用"表格"菜单中的命令，将下列表格的第2行与第3行间拆分两个表 格，两个表格间仅有一个回车符。将表格线设定为1磅，不得作其他修改。 11、将下列表格的表格线全部去掉，变成5行4列的数字。不得作其他修改。

12、⒈在文档的开始处建立一个三行四列的表格，设置第一列中单元格的宽度为2厘米，设置第二列中单元格的宽度为2.5厘米，设置第三列中单元格的宽度为3厘米，设置第四列中单元格的宽度为3.5厘米。 ⒉将表格的外框线宽度设置为2.25磅、线形为双实线，内框线宽度为1.5磅、线形为单实 13、根据给定的表格： ⒈计算出总分填入表格中。 14、将给定表格按第1列，进行表格数据递减排序。不得做其它改变。 15、将给定表格第2列前两行合并为一个单元格，将第2列的后3行拆分为2列3行。不得做其它改变。

EXCEL宏编程简明教程(有实例),

Excel宏编程简明教程 一)、宏学习 首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏： 点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二)、基本概念 为了学习Excel中的宏，我们需要先了解以下一些基本概念。 1、工作簿： Workbooks、Workbook、ActiveWorkbook、ThisWorkbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic 代码正在运行的工作簿。 在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks (1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。 2、工作表： Worksheets、Worksheet、ActiveSheet

Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。 可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets (1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置： 第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是： 在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表： Chart、Charts、ChartObject、ChartObjects、ActiveChart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。 Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index)可引用单个Chart 图表，其中index是该图表工作表的索引号或名称；如Charts (1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts (1)是工作簿中第一个（最左边的）图表工作表； Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。

Excel VBA实例教程 #022：选择工作表的方法

在VBA中需要激活或者选择某个工作表时使用Select方法或Activate方法，如下面的代码所示。 1.Sub SelectSh() 2. Worksheets("Sheet2").Select 3.End Sub 4.Sub ActivateSh() 5. Worksheets("Sheet2").Activate 6.End Sub 代码解析： SelectSh过程使用Select方法选择“Sheet2”工作表，而ActivateSh过程则使用Activate 方法选择“Sheet2”工作表，从表面看两者的作用是相同的，但是如果“Sheet2”工作表是隐藏的，Activate方法可以正常运行，而Select方法将会出现错误，如图1所示。 图 1 Select方法无效提示 如果需要同时选中工作簿中的所有工作表，则只能使用Select方法而不能使用Activate 方法，如下面的代码所示。 1.Sub SelectShs() 2. Dim Shs As Worksheet 3. For Each Shs In Worksheets 4. Shs.Select False 5. Next 6.End Sub 7.Sub SelectSheets() 8. Worksheets.Select 9.End Sub 10.Sub ArraySheets() 11. Worksheets(Array(1, 2, 3)).Select

12.End Sub 代码解析： SelectShs过程遍历工作表并使用带参数的Select方法选中所有工作表。应用于Worksheet对象的Select方法的语法如下： Select(Replace) 参数Replace是可选的。如果该值为True，则用指定对象替代当前选定对象。如果该值为False，则延伸当前选定对象以包括任何以前选定的对象。 SelectSheets过程使用Worksheets集合的Select方法选中集合中所有的对象。 ArraySheets过程使用Array 函数返回工作簿中的前三张工作表并使用Worksheets集合的Select方法选中前三张工作表。

excel2010 vba笔记 (实战教程)(基础实例)

VBA笔记 8-21 1.VBA是什么： 微软开发出来的应用程序一种能共享通用的自动化语言，VBA能使已有的应用程序(excel等)自动化，可以创建自定义的解决方案.等同:可以用excel的宏语言来使excel自动化,使用word BASIC使word自动化,等等。VBA可以称作excel的“遥控器”.此外,如果你愿意,还可以将excel用做开发平台实现应用程序. 2.VBA可以实现的功能 1. 使重复的任务自动化. 2. 自定义excel工具栏,菜单和界面. 3. 简化模板的使用. 4. 自定义excel,使其成为开发平台. 5. 创建报表. 6. 对数据进行复杂的操作和分析. 3.宏 3.1录制简单的宏 选择“工具”—“宏”—“录制新宏”—输入宏名—确定—开始录制（状态栏中显示“录制”）—结束宏录制（“工具”—“宏”—“停止录制”。）*开始录制并非一个按钮，而是你的一系列操作，宏会记录下来变为自己的操作。 3.2执行宏 选择任何一个单元格—选择“工具”—“宏”—“宏”（出现“宏”对话框）—选择相应的宏名—“执行”。 3.3查看录制的代码 工具”—“宏”—“宏”（显示“宏”对话框）—选择某个宏—“编辑” VBA的编辑器窗口（VBE） Sub 改变颜色() //宏名 ’ ’改变颜色Macro ’xw 记录的宏2000-6-10 ’ ’//以上五行录制时自动生成 Range("A5").Select //表示无论选择哪个单元格，最后都只作用于A5 With Selection.Interior//设置属性在选择区域的内部（开始录制属性） .ColorIndex = 3 //颜色为3号色：红色 .Pattern = xlSolid //区域内部图案=纯色（录制时自动生成，可删） PatternColorIndex = xlAutomatic //内部图案底纹颜色=自动（自动生成，可删） End With //结束属性录制 End Sub//结束宏录制 一个名为练习的宏： Sub 练习() ' ' 练习宏 ' ' With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0

Excel VBA基础教程两篇

Excel VBA基础教程两篇 篇一：Excel VBA基础教程 Excel VBA教程是把VB编程应用在Excel平台的一套实用教程，Excel +VBA双剑合壁，他可以帮助我们实现Excel原本实现不了的功能，可以让工作变得更高效，可以让操作变得变方便，可以把重复性的操作变得更有趣，随心所欲的定制自己的工作平台，还可以针对企业来开发各种系统如，人事管理系统、仓库系统、进存销系统等，对于经常要处理大量数据工作的朋友，学会了这套VBA教程你的工作将游刃有余。 标题 Excel VBA基础教程 Excel VBA基础教程 第一章：Excel VBA基础知识 1-1、Excel VBA教程简介 1-2、宏在工作中的运用

1-3、Excel VBA基础 1-4、Excel VBA窗口介绍 1-5、Excel VBA代码编写规则1-6、对象 1-7、属性 1-8、方法 1-9、常量与变量 1-10、数据类型 1-11、判断语句之IF 1-12、判断语句IF之多条件1-12B、If条件判断小结

1-13、判断语句之SELECT 1-14、循环语句之DO...LOOP 1-15、循环语句之DO...LOOP实例 1-16、循环语句之DO WHILE...LOOP 1-17、循环语句之DO UNTIL...LOOP 1-18、循环语句之WHILE与UNTIL位置变化1-18B、DO...LOOP 语法小结 1-19、.循环语句之FOR EACH...NEXT 1-20、循环语句之FOX...NEXT 1-20B、For...NEXT小结与实例 1-21、用语句FOR...NEXT制作九九乘法表

Excel VBA实例教程 #036：复制自动筛选后的数据区域

用户在对如图1所示的数据列表进行自动筛选后，往往希望将自动筛选的结果复制到其它地方。 图1 筛选结果 这时可以通过获取该列表区域中可见单元格的方法得到筛选结果的单元格区域，并复制到工作表Sheet2中，如下面的代码所示。 1.Sub CopyFilter() 2. Sheet2.Cells.Clear 3. With Sheet1

4. If .FilterMode Then 5. .AutoFilter.Range.SpecialCells(12).Copy Sheet2.Cells(1, 1) 6. End If 7. End With 8.End Sub 代码解析： CopyFilter过程将Sheet1表中的筛选结果复制到工作表Sheet2中。 第2行代码清除Sheet2表中数据。 第4行代码判断Sheet1表是否处于自动筛选状态。FilterMode属性返回工作表是否处于筛选模式，如果指定工作表中包含已筛选序列且该序列中含有隐藏行，则该值为True。 第5行代码通过AutoFilter对象的Range属性返回工作表的自动筛选列表区域，再使用SpecialCells方法获取该列表区域中可见单元格（SpecialCells 方法请参阅技巧4 ），得到筛选结果的单元格区域，然后使用Copy方法将结果区域复制到工作表Sheet2中，应用于Range对象的Copy方法将单元格区域复制到指定的区域或剪贴板中，语法如下： expression.Copy(Destination) 参数expression是必需的，该表达式返回一个Range对象。 参数Destination是可选的，指定区域要复制到的目标区域。如果省略该参数，则将该区域复制到剪贴板中。 运行CopyFilter过程工作表Sheet2如图2所示。

Word表格基本操作与Excel

Word的基本操作 1.创建表格的方法 （1）“表格”菜单→插入→表格或“表格和边框”工具栏上“插入表格”按钮。 （2）单击“常用工具栏上”的“插入表格”按钮 （3）“表格”菜单→绘制表格（“表格与边框”工具栏中使用铅笔绘制表格） 2.选择表格 （1）菜单选择 “表格”菜单→选定→行(列)/单元格/表格 （2）鼠标选择 1）选择行/列 指针移到行/列前→单击左键 2）选择单元格 指针移到单元格左侧，出现黑色斜箭头时单击左键 3）选择整张表 指针移到表格左上角,出现十字箭头时单击左键 3.插入和删除行/列 选定一(多)行/列→“表格”菜单→插入行/列 选定要删除的行/列→“表格”菜单→删除→删除行/列 4.表格格式化 （1）调整行高/列宽

1）手动调整：鼠标拖行线/列线 2）精确调整：选定行/列→表格→表格属性→行/列选项卡→指定行高/列宽 3）最适合的列宽：双击列与列间的分隔线或双击表格最左侧的边框线 4）平均分布各行各列:表格→自动调整→平均分布各行/各列(“表格和边框”工具栏→平均分布各行/各列) （2）合并单元格 选中几个小的单元格→表格→合并单元格 （3）拆分单元格 选中一个单元格→表格→拆分单元格 （4）设置文本在单元格中的对齐方式 右击选中的单元格→单元格对齐方式→中部居中（水平和垂直都居中） （5）边框和底纹 1）选中表格/单元格→“格式”菜单→边框和底纹 2）表格和边框工具栏→“边框”、“底纹”按钮 3）局部用铅笔画 （6）行与行/列与列的交换： 1）选中整行/整列→按住左键拖动第一个单元格到相对的单元格。 2）插入空行/空列→交换位置

（7）表格自动套用格式 选中表格→“表格”菜单→表格自动套用格式（8）表格和文字的相互转换 选中表格/文字→“表格”菜单→转换 （9）绘制斜线表头 1）使用铅笔绘制 2）“表格”菜单→绘制斜线表头 5.Word文档单元格对齐方式(设置单元格文字垂直和水平居中) 选中对象后点右键->单元格对齐方式->选择中间的选项 6生成目录 插入->引用->索引和目录->目录 7.设置边框的样式 格式->边框和底纹->边框->(设置边框线型、颜色、宽度）8.设置字体效果(删除线、空心、上标、下标、阴影等等) 格式->字体->字体(N) 或选中文字->右键->字体9.添加水印 格式->背景->水印 10.设置背景图片 格式->背景->其他填充效果->图片

Excel_VBA编程常用实例(150例)

Excel_VBA编程常用实例（150例） 主要内容和特点 《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelV BA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用示例。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。 ■ 分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解； ■ 一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作； ■ 各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解； ■ 您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。VBE编辑器及VBA代码输入和调试的基本知识 在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本知识进行简单的讲解。 激活VBE编辑器 一般可以使用以下三种方式来打开VBE编辑器： ■ 使用工作表菜单“工具——宏——Visual Basic编辑器”命令，如图00-01所示；■ 在Visual Basic工具栏上，按“Visual Basic编辑器”按钮，如图00-02所示；■ 按Alt+F11组合键。

图00-01：选择菜单“工具——宏——Visual Basic编辑器”命令来打开VBE编辑器 图00-02：选择Visual Basic工具栏上的“Visual Basic编辑器”命令按钮来打开VBE编辑器 此外，您也可以使用下面三种方式打开VBE编辑器： ■ 在任一工作表标签上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问该工作表的代码模块，如图00-03所示； ■ 在工作簿窗口左上角的Excel图标上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块，如图00-04所示； ■ 选择菜单“工具——宏——宏”命令打开宏对话框，若该工作簿中有宏程序，则单击该对话框中的“编辑”按钮即可进行VBE编辑器代码模块，如图00-05所示。

Word文档的基本操作100招技巧——前50条

1、即时取消Word的后台打印 当我们刚刚编辑完一篇文档按了打印命令后，后来又不想打印当前的文档了，那么怎样才能即时取消后台打印任务呢？一般来说，大家在发出打印任务后，程序会自动将打印任务设置为后台打印，同时在状态栏上出现打印机图标，打印机图标旁边的数字显示的是正在打印的页的页码。要想即时取消后台打印任务的话，大家只要用鼠标双击打印机图标就可以了。 2、Word 2003让文字随文本框大小变化 当我们在用Word进行文档编辑时，经常需要用文本框来实现一些特殊的应用，比如在文本框中输入文字来达到特殊效果，但有个问题是，当我们在文本框中输入文字并调整了文本框的大小后文字并不会跟着变化。其实我们可让文本框里的文字大小随文本框大小“同步”变化；单击选中该文本框，然后选择“剪切”，再执行菜单“[编辑]—[选择性粘贴]”，在粘贴形式中选择“图片（增强型图元文件）”，现在再拖动文本框看看，是不是可以随意改变文字大小了。 3、Word 2003/2007快速切换英文大小写 在Word中输入英文句子时，一般每个单词的第一个字母都是大写，通常的输入方法就是输入第一个字母时就要进行一次大小写切换。这样很麻烦。不妨全部输入小写字符，然后选中所有单词，按一次组合键“Shift+F3”试试，是不是每个单词的第一个字母都变成了大写？再按一次试试，所有的字母都变成了大写！再按一次，又变了小写。原来，组合键Shift+F3是个英文大小写切换键，充分利用这个组合键，以后输入英文就方便多了。 4、Word 2003/2007 Word表格中“Shift+Alt+方向键”调整行序 Word表格编辑时可以使用一些快捷键提高效率，比如“Shift+Alt+方向键”组合，非常有用，用“Shift+Alt+上（或下）方向键”能够调整文档

Excel VBA实例教程 #021：引用工作表的方式

VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法： 1、使用工作表的名称 工作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合和Sheets集合两种引用方式，如下面的代码所示。 1.Sub ShActivate() 2. Worksheets("索引号").Activate 3. 'Sheets("索引号").Activate 4.End Sub 第3、4行代码都激活工作簿中名称为“索引号”的工作表，激活后“索引号”工作表将成为活动工作表。 WorkSheets集合包含所有的工作表，而Sheets集合不仅包含工作表集合WorkSheets，还包含图表集合Charts、宏表集合Excel4MacroSheets与MS Excel 5.0对话框集合DialogSheets等。 任何时刻工作簿中只有一个工作表是活动工作表。 2、使用工作表的索引号 工作表索引号是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。下面的代码选中并激活当前工作簿中第1个工作表： 1.Sub ShIndex() 2. Worksheets(1).Select 3.End Sub 单个WorkSheet对象的Select方法与Activate方法的主要区别在于Select方法要求工作表可视。 注意当工作簿包括工作表、宏表、图表等时，使用索引号引用工作表如Sheets(1)与WorkSheets(1)引用的可能不是同一个表。 使用Worksheet对象的Index属性可以返回工作表的索引号，如下面的代码所示。 1.Sub ShInde() 2. MsgBox Worksheets("索引号").Index 3.End Sub 3、使用工作表的代码名称 使用Worksheet对象的CodeName属性可以返回工作表的代码名称，如下面的代码所示。