VB语句集200句

VB语句集200句.txt人生重要的不是所站的位置，而是所朝的方向。不要用自己的需求去衡量别人的给予，否则永远是抱怨。VB语句集200句

VB所有语句总结（包括简单功能介绍）

下面对VB的几乎所有语句进行简单的分类和介绍。

需要注意的是这里介绍的几乎都是语句，而不是函数，请大家注意VB语句和函数的区别。

一.数据类型、变量、常量类

Dim 模块级或过程级中声明变量

Global 模块级中声明全局变量，

private 功能与Dim相同

Static 过程级中声明静态变量

Deftype 设置变量缺省类型

Let或= 赋值

Type …End Type 自定义类型

Enum 定义枚举类型

Lset、Rset 左或右对齐变量中的一字符串

Const 声明用于代替文字量的常数

二.程序控制类

End 结束程序运行

Stop 暂停程序执行进入中断模式

Goto 无条件转移

If then else 根据条件选择执行某一分支语句块

Select case 情况选择控制，选择执行某一语句块

Do…loop 循环控制

While wend 循环控制

For…next 计数循环控制

Exit for\exit do 退出循环控件

三.过程类

Declare 语句用于在模块级中声明外部过程的引用

Function 函数过程，文件名可带返回值

Sub 过程

Call 将控制权转移到一个 Sub 过程，

Exit function 退出Funtion过程

Exit sub 退出Sub过程

四.对象操作类

Load 把窗体或控件加载到内存中

Unload 从内存中卸载窗体或控件

Show/Hide 显示或隐藏窗体

With 在一个单一对象或一个用户定义类型上执行一系列的语句

Redim 重新声明数组

五.数组类

Erase 重新初始化数据

Option base 设置数组默认值为0或1

Open 打于或建立文件

六.文件操作类

Close 关闭 (I/O) 文件

Print # 、Write # 写顺序文件

Put# 写随机文件或二进制文件

Input# Line Input# 顺序文件中读出数据并将数据指定给变量

Get# 将一个已打开的磁盘文件读入一个变量之中。

Reset 关闭所有用 Open 语句打开的文件

Seek 设置下一个读/写操作的位置

Chdrive 改变当前的驱动器

Chdir 改变当前的目录或文件夹

Mkdir 建立目录或文件夹

Rmdir 删除目录或文件夹

Kill 删除文件

Lock、unlock 锁定或解锁文件记录

Name 文件得命名

On error 打开错误捕获

七.错误捕捉类

Resume 在错误处理程序结束后，恢复原有的运行

Error 模拟错误的发生

AppActivate 激活一应用程序窗口

八.其它类

Shell 运行其它应用程序

Beep 通过计算机喇叭发出一个声调

Date 语句设置当前系统日期

Time 设置系统时间

Savepicture 将图形保存到文件中

Randomize 初始化随机数生成器。

定制模块行为

(1) Option Explicit ''强制对模块内所有变量进行声明

Option Private Module ''标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示

Option Compare Text ''字符串不区分大小写

Option Base 1 ''指定数组的第一个下标为1

(2) On Error Resume Next ''忽略错误继续执行VBA代码,避免出现错误消息

(3) On Error GoTo ErrorHandler ''当错误发生时跳转到过程中的某个位置

(4) On Error GoTo 0 ''恢复正常的错误提示

(5) Application.DisplayAlerts=False ''在程序执行过程中使出现的警告框不显示

(6) Application.ScreenUpdating=False ''关闭屏幕刷新

Application.ScreenUpdating=True ''打开屏幕刷新

(7) Application.Enable.CancelKey=xlDisabled ''禁用Ctrl+Break中止宏运行的功能

工作簿

(8) Workbooks.Add() ''创建一个新的工作簿

(9) Workbooks(“book1.xls”).Activate ''激活名为book1的工作簿

(10) ThisWorkbook.Save ''保存工作簿

(11) ThisWorkbook.close ''关闭当前工作簿

(12) ActiveWorkbook.Sheets.Count ''获取活动工作薄中工作表数

(13) ''返回活动工作薄的名称

(14) ‘返回当前工作簿名称

ThisWorkbook.FullName ‘返回当前工作簿路径和名称

(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小

(16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列

(17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化

工作表

(18) edRange.Rows.Count ‘当前工作表中已使用的行数

(19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)

(20) Sheets(Sheet1).Name= “Sum” ''将Sheet1命名为Sum

(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ''添加一个新工作表在第一工作表前

(22) ActiveSheet.Move After:=ActiveWorkbook. _

Sheets(ActiveWorkbook.Sheets.Count) ''将当前工作表移至工作表的最后

(23) Worksheets(Array(“sheet1”,”sheet2”)).Select ''同时选择工作表1和工作表2

(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete ''删除工作表1

(25) ActiveWorkbook.Sheets(i).Name ''获取工作表i的名称

(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines ''切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮

(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings ‘切换工作表中的行列边框显示

(28) edRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式

(29) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接

(30) ActiveSheet.PageSetup.Orientation=xlLandscape

或ActiveSheet.PageSetup.Orientation=2 ''将页面设置更改为横向

(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页面设置的表尾中输入文件路径

ActiveSheet.PageSetup.LeftFooter=erName ‘将用户名放置在活动工作表的页脚

单元格/单元格区域

(32) ActiveCell.CurrentRegion.Select

或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select

''选择当前活动单元格所包含的范围，上下左右无空行

(33) Cells.Select ‘选定当前工作表的所有单元格

(34) Range(“A1”).ClearContents ''清除活动工作表上单元格A1中的内容

Selection.ClearContents ''清除选定区域内容

Range(“A1:D4”).Clear ''彻底清除A1至D4单元格区域的内容，包括格式

(35) Cells.Clear ''清除工作表中所有单元格的内容