Excel VBA命令大全

配

符

。

CreateFolder

方

法

创

建

一

个

文

件

夹

。

语

法

Folder(foldername) reateFolder

方法有如下几部分：

部分

描述

object

必需的。始终

是一个

FileSystemObject

的名字。

foldername

必需的。字符串表达式，它标识创建的文件夹。

本示

例使用

MkDir

语句来创建目录或文件夹。如果没有指定驱动器，新目录或文件

夹将会建在当前驱动器

中。

MkDir

建立新的目录或文件夹。

Name

语句示例

本示例使用

Name

语句来更改文 件的

名称。

示例中假设所有使用到的目录或文件夹都

已存在。

在

Macintosh

中，

默认驱动器名称是

“HD”

并且路径部分由冒号取代

反斜线隔开。

Dim OldName, NewName OldName =

定义文件名。

Name OldName As NewName '

更改文件名。

OldName =

NewName =

更改文件名，并移动文件。

本示例显

示当前默认文件路径。

MsgBox

current

default

file

path

is

&

_

tFilePath

本示例设置替换启动文件夹。

rtupPath =

方法

如果指定的文件夹存在返回

True

，不存在返回

False

。

语法

Exists(folderspec)

本示

例在单元格中启用编辑。

rectlyInCell = True

程序说明：

< /p>

几种用

VBA

在单元格

< br>输入数据的方法：

Public

Sub

Writes()

1--

2

方法，最简单在

]

中输入单元格名称。

1

[A1]

=

100

'

在

A1

单元格输入

100

。

2 [A2:A4] = 10 '

在

A2:A4

单元格输入

10

。

3-- 4

方法，采用

Range(

，

中输入单元格名称。

3 Range(

在

B1

单元格输入< /p>

200

。

4 Range(

在

C1:C3

单元格 输入

300

。

5-- 6

方法，采用

Cells(Row,Column)

Row

是单元格行数，

Column

是单元

格栏数。

5 Cells(1, 4) = 400 '

在

D1

单元格输入

400

。

6 Range(Cells(1, 5), Cells(5, 5)) = 50 '

在

E1:E 5

单元格输入

50

。

End Sub

你点选任何单元格，按

Selection

按钮，則则所点选的单元格均

4

会被输入文字

。

Public Sub Selection1() =

在任何你点选的单元

格输入文字

。

End Sub VBALesson2

程序说明：

几种如何把别的工作表

Sheet4

数据，读到这

个工作表的方法：在被读取的单元格

前加上工作表名称

Sheet4

。

Public Sub Writes() 1-- 2

方法，

最简单在被读取的

]

前加上被读取的工作表名称

Sheet4

。

1

[A1]

=

Sheet4.[A1]

'

把

Sheet4

A1

单

元格的数据，

读到

A1

单元格。

2

[A2:A4]

=

Sheet4.[B1]

''

把

Shee4

工作表单元格

B1

数据，

读到

A2:A4

单元格。

3--

4

方法，在被读取的工作表

Range(

的

Range

前加上被读取的工作表名称

Sheet4

。

3

Range(

把

Shee4

工作表单元格

B1

数据，读

到

B1

单元格。

4

Range(

=

(

'

把

Shee4

工作表单元格

C1

数据

，读到

C1:C3

单元格。

5--

6

方法，

在被读取的工作表

Cells(Row,Column)

，

Cells

前加上被读取工作表

名称

Sheet4

。

5

Cells(1,

4)

=

(1,

4)

'

把

Shee4

工作表单元格

D1

数据，读

到

D1

单元格。

6

Range(Cells(1,

5),

Cells(5,

5))

=

(1,

5)

'

把

Shee4

工

作表单元格

E1

数据，读到

E1:E

5

单元格。

End

Sub

你点选任何单元格，

按

Selection

按钮，

则所点选的单元格均会被输入

Shee4

工

作表单元格

F1

数据。

Public Sub Selection1() = Sheet4.[F1] '

把

Shee4

工作表单元格

F1

数据，读到任

何你点选的单元格。

End Sub VBALesson3

程序说明：

如何利用

Worksheet_SelectionChange

输入数

据的方法。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target = 100 End Sub

Target

指的是你鼠标所选的单元格，

Worksheet_Selectio nChange()

事件的参数

。

可以是一个也可以

是好几个单元格。

Range

是

Excel

特有的变量形态，叫范围。

Target As Rang

是把

Target

这个参数

设定为

Range

变量形态。

Target

=

100

是把你点选的单元格输入数字

100

。

VBALesson4

程序说明：

如

何

利

用

Worksheet_SelectionChange

在< /p>

限

定

的

单

元

格

输

入

据

的

方

法

。

Private

Sub

Worksheet_SelectionChange(ByVal Target As Range) If >= 2 And = 2 Then

Target

=

100

End

If

End

Sub If

...

Then

...

End

If

这是我们学的这一个逻辑判断语句。

>=

2

，指的是鼠标选定的单元格的 行大于或等于

2

。

= 2

，指的是鼠标选定的单元格的栏等

于

2

。

If

>=

2

And

=

2

Then

指的是只有在

>= 2

及

= 2

二个条件成立时。

就是

( >= 2)

为

及

( = 2)

为

True

时，才执行下面

的

程序

Target=100

，

也就是

B

栏第二行及以下行用鼠标 被点选时，才会被输入

100

，

其它单 元格则不

被

输

入

数

据

。

VBALesson5

程

序

说

明

：

比

较

Worksheet_SelectionChange()

与

用

按

钮

CommandButton1_Click()

来执行

程序二者的方法与写法有何不同。

Worksheet_Se lectionChange()

事

件

Private

Sub

Worksheet_SelectionChange(ByVal

Target

As

Range)

If

>=

2

And

= 2 Then Target = 100 End If End Sub

按鈕

CommandButton1_Click() Private Sub

CommandButton1_Click() If >= 2 And >= 3 Then ActiveCell = 100

End

If

End

Sub

二者执行方法最大的地方，在于

Worksheet_SelectionChange()

是自动的，你不用

了

解他是怎么完成工作的。

按钮

CommandButton1_Click()

是人工的，

比

SelectionChange()

多一道手续，

就

是

要

去

那

接

钮

，

程

序

才

会

执

行

。

SelectionChange()

有

一

个

参

数

Target

可

用

< br>；

CommandButton1_Click ()

没有。

所以我们要用

ActiveCell

内定函数来取代

Target

，

Ac tiveCell

与

Target

最大的

不同点他只能指定一个单元格。

就是 你选取多个单元格也只有最上面的单元格会加上数

据；用

Selection

取代

ActiveCell

，

用法就跟

Target

一样了。

VBALesson 6

程序说明：

完整的

If...Then ┅ End 逻辑判断式。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If

>=

2

And

=

2

Then

Target

=

200

ElseIf

>=

2

And

= 3 Then

Target = 300 ElseIf

>= 2 And =

2 Then

Target

= 400

Else Target

= 500 End If End Sub

这是个完整的

If

逻辑判断式，意思是说，假如

If

後的判断式条件成立的话，

就

执行第二条程序，否则假如

ElseIf

後的判断式条件成立的话，就执行第四条程序

，否则假如另一

个

ElseIf

後的判断式条件成立的话，就执行第六条程序。

Else < /p>

的意思是说，假如以上条件都不成立的

话，就执行第八条程序。< /p>

他的执行方式是假如

IF

的条件成立的话，就不执行其它

ElseIf

及

Else

的逻

辑判断式，假如

If

後的条件不成立的话才会执行

ElseIf

或

Else

逻辑判断式。第二

个

ElseIf

後的

5

条件因为与

IF

後的条件一样，所以这个判断式後面的

Target=400

将是永远无法执行到的程序。

VBALesson

7

程序说明∶我们为什麽要用变数。

Private

Sub

Worksheet_SelectionChange(ByVal

Target

As Range) Dim i , j As Integer Dim k As Range i = j = Set k = Target

If i >= 2 And j = 2 Then k = 200 ElseIf i >= 2 And j = 3 Then k = 300 ElseIf i >= 2 And j = 4

Then k = 400 Else k = 500 End If End Sub

跟

VBALesson 6

比较，程序是不是明朗多了，在前课重复

的用

，

及

Ta rget

来写程序是不是有一点烦。用变量的第一个好处大家马上

感

觉得出来，就是可以简化程序。

使用变量前，你得先宣告变量。宣告变量的方法是在

后面

写上变量

后面接上变量的形态

。

Dim i , j As Integer

就是宣告

i

与

j

为整

数变量，这是同时宣告二个变量

i

与

j

所以要在二个变量间加个

,

号。

Dim

k

As

Range

是宣告

k

为范围资料形态，

Range

这是

Excel

特有的资料形态

。

i =

是把当前单元格的行数，指定

给变量

i

。

j =

是把当前单元格的栏数，指定给变量

j

。

Set k = Target

是把当前的

单元格，

指定给变量

k

。

用像

i

与

j

这样简单的变量，

在程序的前面你可能还记得

i

或

j

代表着

什

厶。程序写长了，你可能忘记

i

或

j

代表着什厶。所以最好的方法是用比较有

意义的代号，来为变量

命名如

iRow

或

iCol

来取代

i

及

j

。

VBALesson 8

程序说明∶体会一下

Workshe et_Change()

事件。

Private

Sub

Worksheet_Change(ByVal

Target

As

Range)

Dim

iRow,

iCol

As

Integer

iRow

=

iCol = If iRow >= 2 And iCol = 2 And Target

False

Cells(iRow,

iCol

+

1)

=

Cells(iRow,

iCol)

*

2

Events

=

True

ElseIf

iRow

>=

2 And iCol = 2 And Target =

End

If

End Sub

前几个教程都是用

Worksheet_SelectionChange

事件来举例子，大家应该能体会他

是

怎厶一回事了吧。

这个教程就是要让你来体会什厶是

Worksheet_Chang()

事件。

因为这二个事件在

VBA