wps宏
- 格式：xls
- 大小：147.00 KB
- 文档页数：112
VBA语句 集400句
VB
A
语
句
集
40
0
句
定制模块 行为 (1) Option Explicit ' 强制对模 块内所有 变量进行 声明
Option Private Module ' 标记模块 为私有， 仅对同一 工程中其 它模块有 用，在宏 对话框中 不显示
Option
Compare Text '字 符串不区 分大小写
(52) Range(“ Data ”).Count ‘ 单元格区 域Data中 的单元格 数
Range(“ Data”). Columns .Count ‘ 单元格区 域Data中 的列数
Range(“ Data”). Rows.Co unt ‘单元 格区域 Data中的 行数
(53) Selection .Column s.Count ‘ 当前选中 的单元格 区域中的 列数
A1:D8
”).Cut
Range(“ F1”) '剪 切单元格 区域A1 至D8， 复制到单 元格F1 开始的区 域中
Range(“ A1 ”).Curren tRegion. Copy Sheets(“ Sheet2 ”).Range (“A1”) '复 制包含 A1的单 元格区域 到工作表 2中以A1 起始的单 元格区域 中注： CurrentR egion属 性等价于 定位命 令，由一 个矩形单 元格块组 成，周围 是一个或 多个空行 或列
Range(“ A1 ”).Interior .ColorInd ex ‘获取 单元格 A1背景 色 (44) cells.cou nt ‘返回 当前工作 表的单元 格数
(45) Selection .Range(“ E4 ”).Select ‘激活当 前活动单 元格下方 3行，向 右4列的 单元格 (46) Cells.Ite m(5,”C”) ‘引单元 格C5
Rnage(“ B3 ”).Resize (11,3) ‘创 建B3： D13区域
(49) Range(“ Data ”).Resize (,2) ‘将 Data区域 扩充2列 (50) Union(R ange(“ Data1 ”),Range (“Data2 ”)) ‘将 Data1和 Data2区 域连接 (51) Intersect (Range(“ Data1 ”),Range (“Data2 ”)) ‘返回 Data1和 Data2区 域的交叉 区域
(30) ActiveSh eet.Page Setup.Or ientation =xlLands cape
或 ActiveSh eet.Page Setup.Or ientation =2 '将页 面设置更 改为横向
(31) ActiveSh eet.Page Setup.Ri ghtFoote r=Active Workboo k.FullNa me ‘在页 面设置的 表尾中输 入文件路 径ActiveSh eet.Page Setup.Le ftFooter= Applicati er Name ‘ 将用户名 放置在活 动工作表 的页脚
(57)
ActiveSh
eet.Cells
.Special
Cells(xlC
ellTypeAl
lFormatC
onditions ) ‘在活动 工作表中 返回所有 符合条件 格式设置 的区域 (58)
Range(“
A1
”).AutoFil
ter
Field:=3,
VisibleDr
opDown:
=False ‘ 关闭由于 执行自动 筛选命令 产生的第 3个字段 的下拉列 表 名称 (59)
Selection .Rows.C ount ‘当 前选中的 单元格区 域中的行 数 (54) Selection .Areas.C ount ‘选 中的单元 格区域所 包含的区 域数
(55) ActiveSh ed Range.R ow ‘获取 单元格区 域中使用 的第一行 的行号
(56) Rng.Col umn ‘获 取单元格 区域Rng 左上角单 元格所在 列编号
Range(“ A1：C3 ”).Name =“
compute r” ‘命名 A1：C3 区或域为 Range(“ D1：E6 ”).Name =“
工作簿
(8) Workboo ks.Add() '创建一 个新的工 作簿 (9) Workboo ks(“ book1.xl s ”).Activat e '激活名 为book1 的工作簿 (10) ThisWor kbook.S ave '保存 工作簿 (11) ThisWor kbook.cl ose '关闭 当前工作 簿 (12) ActiveW orkbook. Sheets.C ount '获 取活动工 作薄中工 作表数
(23) Workshe ets(Array (“sheet1 ”,”sheet2 ”)).Select '同时选 择工作表 1和工作 表2
(24) Sheets(“ sheet1 ”).Delete 或 Sheets(1 ).Delete ' 删除工作 表1 (25) ActiveW orkbook. Sheets(i) .Name ' 获取工作 表i的名 称
Cells.Ite m(5,3) ‘ 引单元格 C5 (47) Range(“ A1 ”).Offset( RowOffs et:=4,Col umnOffs et:=5)
或 Range(“ A1 ”).Offset( 4,5) ‘指 定单元格 F5 (48) Range(“ B3 ”).Resize (RowSiz e:=11,Co lumnSize :=3)
Applicati
on.Displa
yAlerts= False '在 程序执行 过程中使 出现的警 告框不显 示 (6)
Applicati
on.Scree
nUpdatin
g=False ' 关闭屏幕 刷新
Applicati on.Scree nUpdatin g=True ' 打开屏幕 刷(7)新 Applicati on.Enabl e.Cancel Key=xlDi sabled ' 禁用 Ctrl+Bre ak中止宏 运行的功
”).Offset(
Rowoffs et:=-1)或 Range(“
A1
”).Offset( -1) ‘向上 偏移一行 (38)
Range(“
A1
”).Copy
Range(“ B1”) '复 制单元格 A1，粘 贴到单元 格B1中 Range(“
A1:D8
”).Copy
Range(“ F1”) '将 单元格区 域复制到 单元格 F1开始 的区域中 Range(“
tbl.Offset (1, 0).Resiz e(tbl.Ro ws.Count - 1, _
tbl.Colu mns.Cou nt).Selec t
(39) ActiveWi ndow.Ra ngeSele ction.Val ue=XX ' 将值XX 输入到所 选单元格 区(40域) 中 ActiveWi ndow.Ra ngeSele ction.Co unt '活动 窗口中选 择的单元 格数
ThisWor
kbook.S
heets.Ad
d
Before:=
Workshe ets(1) '添 加一个新 工作表在 第一工作 表前 (22)
ActiveSh
eet.Move
After:=A
ctiveWor
kbook. _ Sheets(A
ctiveWor
kbook.S
heets.Co unt) '将 当前工作 表移至工 作表的最 后
(41) Selection .Count ' 当前选中 区域的单 元格数 (42) GetAddr ess=Rep lace(Hyp erlinkcell .Hyperlin ks(1).Ad dress,ma ilto:,””) ‘ 返回单元 格中超级 链接的地 址并赋值 (43) TextColo r=Range (“A1 ”).Font.C olorIndex ‘检查单 元格A1 的文本颜 色并返回 颜色索引
(34) Range(“ A1 ”).ClearC ontents ' 清除活动 工作表上 单元格 A1中的 内容 Selection .ClearCo ntents ' 清除选定 区域内容 Range(“ A1:D4 ”).Clear ' 彻底清除 A1至D4 单元格区 域的内 容，包括 格式 (35) Cells.Cle ar '清除 工作表中 所有单元 格的内容
(26) ActiveWi ndow.Dis playGridli nes=Not ActiveWi ndow.Dis playGridli nes '切换 工作表中 的网格线 显示，这 种方法也 可以用在 其它方面 进行相互 切换，即 相当于开 关按钮
(27) ActiveWi ndow.Dis playHea dings=N ot ActiveWi ndow.Dis playHea dings ‘ 切换工作 表中的行 列(28边) 框显 ActiveSh ed Range.F ormatCo nditions. Delete ‘ 删除当前 工作表中 所有的条 件格式 (29) Cells.Hy perlinks. Delete ‘ 取消当前 工作表所 有超链接
(13) ActiveW orkbook. name ' 返回活动 工作薄的 名称 (14) ThisWor kbook.N ame ‘返 回当前工 作簿名称
VB
A
语
句
集
40
0
句
定制模块 行为 (1) Option Explicit ' 强制对模 块内所有 变量进行 声明
Option Private Module ' 标记模块 为私有， 仅对同一 工程中其 它模块有 用，在宏 对话框中 不显示
Option
Compare Text '字 符串不区 分大小写
(52) Range(“ Data ”).Count ‘ 单元格区 域Data中 的单元格 数
Range(“ Data”). Columns .Count ‘ 单元格区 域Data中 的列数
Range(“ Data”). Rows.Co unt ‘单元 格区域 Data中的 行数
(53) Selection .Column s.Count ‘ 当前选中 的单元格 区域中的 列数
A1:D8
”).Cut
Range(“ F1”) '剪 切单元格 区域A1 至D8， 复制到单 元格F1 开始的区 域中
Range(“ A1 ”).Curren tRegion. Copy Sheets(“ Sheet2 ”).Range (“A1”) '复 制包含 A1的单 元格区域 到工作表 2中以A1 起始的单 元格区域 中注： CurrentR egion属 性等价于 定位命 令，由一 个矩形单 元格块组 成，周围 是一个或 多个空行 或列
Range(“ A1 ”).Interior .ColorInd ex ‘获取 单元格 A1背景 色 (44) cells.cou nt ‘返回 当前工作 表的单元 格数
(45) Selection .Range(“ E4 ”).Select ‘激活当 前活动单 元格下方 3行，向 右4列的 单元格 (46) Cells.Ite m(5,”C”) ‘引单元 格C5
Rnage(“ B3 ”).Resize (11,3) ‘创 建B3： D13区域
(49) Range(“ Data ”).Resize (,2) ‘将 Data区域 扩充2列 (50) Union(R ange(“ Data1 ”),Range (“Data2 ”)) ‘将 Data1和 Data2区 域连接 (51) Intersect (Range(“ Data1 ”),Range (“Data2 ”)) ‘返回 Data1和 Data2区 域的交叉 区域
(30) ActiveSh eet.Page Setup.Or ientation =xlLands cape
或 ActiveSh eet.Page Setup.Or ientation =2 '将页 面设置更 改为横向
(31) ActiveSh eet.Page Setup.Ri ghtFoote r=Active Workboo k.FullNa me ‘在页 面设置的 表尾中输 入文件路 径ActiveSh eet.Page Setup.Le ftFooter= Applicati er Name ‘ 将用户名 放置在活 动工作表 的页脚
(57)
ActiveSh
eet.Cells
.Special
Cells(xlC
ellTypeAl
lFormatC
onditions ) ‘在活动 工作表中 返回所有 符合条件 格式设置 的区域 (58)
Range(“
A1
”).AutoFil
ter
Field:=3,
VisibleDr
opDown:
=False ‘ 关闭由于 执行自动 筛选命令 产生的第 3个字段 的下拉列 表 名称 (59)
Selection .Rows.C ount ‘当 前选中的 单元格区 域中的行 数 (54) Selection .Areas.C ount ‘选 中的单元 格区域所 包含的区 域数
(55) ActiveSh ed Range.R ow ‘获取 单元格区 域中使用 的第一行 的行号
(56) Rng.Col umn ‘获 取单元格 区域Rng 左上角单 元格所在 列编号
Range(“ A1：C3 ”).Name =“
compute r” ‘命名 A1：C3 区或域为 Range(“ D1：E6 ”).Name =“
工作簿
(8) Workboo ks.Add() '创建一 个新的工 作簿 (9) Workboo ks(“ book1.xl s ”).Activat e '激活名 为book1 的工作簿 (10) ThisWor kbook.S ave '保存 工作簿 (11) ThisWor kbook.cl ose '关闭 当前工作 簿 (12) ActiveW orkbook. Sheets.C ount '获 取活动工 作薄中工 作表数
(23) Workshe ets(Array (“sheet1 ”,”sheet2 ”)).Select '同时选 择工作表 1和工作 表2
(24) Sheets(“ sheet1 ”).Delete 或 Sheets(1 ).Delete ' 删除工作 表1 (25) ActiveW orkbook. Sheets(i) .Name ' 获取工作 表i的名 称
Cells.Ite m(5,3) ‘ 引单元格 C5 (47) Range(“ A1 ”).Offset( RowOffs et:=4,Col umnOffs et:=5)
或 Range(“ A1 ”).Offset( 4,5) ‘指 定单元格 F5 (48) Range(“ B3 ”).Resize (RowSiz e:=11,Co lumnSize :=3)
Applicati
on.Displa
yAlerts= False '在 程序执行 过程中使 出现的警 告框不显 示 (6)
Applicati
on.Scree
nUpdatin
g=False ' 关闭屏幕 刷新
Applicati on.Scree nUpdatin g=True ' 打开屏幕 刷(7)新 Applicati on.Enabl e.Cancel Key=xlDi sabled ' 禁用 Ctrl+Bre ak中止宏 运行的功
”).Offset(
Rowoffs et:=-1)或 Range(“
A1
”).Offset( -1) ‘向上 偏移一行 (38)
Range(“
A1
”).Copy
Range(“ B1”) '复 制单元格 A1，粘 贴到单元 格B1中 Range(“
A1:D8
”).Copy
Range(“ F1”) '将 单元格区 域复制到 单元格 F1开始 的区域中 Range(“
tbl.Offset (1, 0).Resiz e(tbl.Ro ws.Count - 1, _
tbl.Colu mns.Cou nt).Selec t
(39) ActiveWi ndow.Ra ngeSele ction.Val ue=XX ' 将值XX 输入到所 选单元格 区(40域) 中 ActiveWi ndow.Ra ngeSele ction.Co unt '活动 窗口中选 择的单元 格数
ThisWor
kbook.S
heets.Ad
d
Before:=
Workshe ets(1) '添 加一个新 工作表在 第一工作 表前 (22)
ActiveSh
eet.Move
After:=A
ctiveWor
kbook. _ Sheets(A
ctiveWor
kbook.S
heets.Co unt) '将 当前工作 表移至工 作表的最 后
(41) Selection .Count ' 当前选中 区域的单 元格数 (42) GetAddr ess=Rep lace(Hyp erlinkcell .Hyperlin ks(1).Ad dress,ma ilto:,””) ‘ 返回单元 格中超级 链接的地 址并赋值 (43) TextColo r=Range (“A1 ”).Font.C olorIndex ‘检查单 元格A1 的文本颜 色并返回 颜色索引
(34) Range(“ A1 ”).ClearC ontents ' 清除活动 工作表上 单元格 A1中的 内容 Selection .ClearCo ntents ' 清除选定 区域内容 Range(“ A1:D4 ”).Clear ' 彻底清除 A1至D4 单元格区 域的内 容，包括 格式 (35) Cells.Cle ar '清除 工作表中 所有单元 格的内容
(26) ActiveWi ndow.Dis playGridli nes=Not ActiveWi ndow.Dis playGridli nes '切换 工作表中 的网格线 显示，这 种方法也 可以用在 其它方面 进行相互 切换，即 相当于开 关按钮
(27) ActiveWi ndow.Dis playHea dings=N ot ActiveWi ndow.Dis playHea dings ‘ 切换工作 表中的行 列(28边) 框显 ActiveSh ed Range.F ormatCo nditions. Delete ‘ 删除当前 工作表中 所有的条 件格式 (29) Cells.Hy perlinks. Delete ‘ 取消当前 工作表所 有超链接
(13) ActiveW orkbook. name ' 返回活动 工作薄的 名称 (14) ThisWor kbook.N ame ‘返 回当前工 作簿名称
