wps宏
- 格式：xls
- 大小：159.50 KB
- 文档页数：224
Option
Base 1 ' 指定数组 的第一个 下标为1 (2) On
Error
Resume Next '忽 略错误继 续执行 VBA代 码,避免 出现错误 消息 (3) On
Error
GoTo
ErrorHan dler '当错 误发生时 跳转到过 程中的某 个位置
(4) On
Error
GoTo 0 ' 恢复正常 的错误提 示 (5)
(36) ActiveCe ll.Offset( 1,0).Sele ct '活动 单元格下 移一行， 同理，可 下移一列
(37) Range(“ A1 ”).Offset( Column Offset:=1 )或 Range(“ A1 ”).Offset( ,1) ‘偏移 一列
Range(“
A1
(52) Range(“ Data ”).Count ‘ 单元格区 域Data中 的单元格 数
Range(“ Data”). Columns .Count ‘ 单元格区 域Data中 的列数
Range(“ Data”). Rows.Co unt ‘单元 格区域 Data中的 行数
(53) Selection .Column s.Count ‘ 当前选中 的单元格 区域中的 列数
(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 ‘ 将用户名 放置在活 动工作表 的页脚
单元格/ 单元格区 域 (32) ActiveCe ll.Current Region.S elect
或 Range(A ctiveCell. End(xlUp ),ActiveC ell.End(xl Down)).S elect '选择当 前活动单 元格所包 含的范 围，上下 左右无空 行 (33) Cells.Sel ect ‘选定 当前工作 表的所有 单元格
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)
(13) ActiveW orkbook. name ' 返回活动 工作薄的 名称 (14) ThisWor kbook.N ame ‘返 回当前工 作簿名称
ThisWor kbook.Fu llName ‘ 返回当前 工作簿路 径和名称 (15) ActiveWi ndow.En ableResi ze=False ‘禁止调 整活动工 作簿的大 小(16) Applicati on.Wind ow.Arran ge xlArrang eStyleTil ed ‘将工 作簿以平 铺(17方) 式排 ActiveW orkbook. Window State=xl Maximiz ed ‘将当 前工作簿 最大化
”).Offset(
Rowoffs et:=-1)或 Range(“
A1
”).Offset( -1) ‘向上 偏移一行 (38)
Range(“
A1
”).Copy
Range(“ B1”) '复 制单元格 A1，粘 贴到单元 格B1中 Range(“
A1:D8
”).Copy
Range(“ F1”) '将 单元格区 域复制到 单元格 F1开始 的区域中 Range(“
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区 域的交叉 区域
工作簿
(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 '获 取活动工 作薄中工 作表数
(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 的文本颜 色并返回 颜色索引
Selection .Rows.C ount ‘当 前选中的 单元格区 域中的行 数 (54) Selection .Areas.C ount ‘选 中的单元 格区域所 包含的区 域数
(55) ActiveSh ed Range.R ow ‘获取 单元格区 域中使用 的第一行 的行号
(56) Rng.Col umn ‘获 取单元格 区域Rng 左上角单 元格所在 列编号
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中止宏 运行的功
工作表
(18)
ActiveSh
ed
Range.R
ows.Cou nt ‘当前 工作表中 已使用的 行(19数)
Rows.Co unt ‘获取 工作表的 行数 (注：考 虑向前兼 容(20性) )
Sheets(S
heet1).N ame= “ Sum” '将 Sheet1 命名为 S(2u1m)
Range(“ A1 ”).Interior .ColorInd ex ‘获取 单元格 A1背景 色 (44) cells.cou nt ‘返回 当前工作 表的单元 格数
(45) Selection .Range(“ E4 ”).Select ‘激活当 前活动单 元格下方 3行，向 右4列的 单元格 (46) Cells.Ite m(5,”C”) ‘引单元 格C5
(34) Range(“ A1 ”).ClearC ontents ' 清除活动 工作表上 单元格 A1中的 内容 Selection .ClearCo ntents ' 清除选定 区域内容 Range(“ A1:D4 ”).Clear ' 彻底清除 A1至D4 单元格区 域的内 容，包括 格式 (35) Cells.Cle ar '清除 工作表中 所有单元 格的内容
(23) Workshe ets(Array (“sheet1 ”,”sheet2 ”)).Select '同时选 择工作表 1和工作 表2
(24) Sheets(“ sheet1 ”).Delete 或 Sheets(1 ).Delete ' 删除工作 表1 (25) ActiveW orkbook. Sheets(i) .Name ' 获取工作 表i的名 称
(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 ‘ 取消当前 工作表所 有超链接
A1:D8
”).Cut
Range(“ F1”) '剪 切单元格 区域A1 至D8， 复制到单 元格F1 开始的区 域中
Range(“ A1 ”).Curren tRegion. Copy Sheets(“ Sheet2 ”).Range (“A1”) '复 制包含 A1的单 元格区域 到工作表 2中以A1 起始的单 元格区域 中注： CurrentR egion属 性等价于 定位命 令，由一 个矩形单 元格块组 成，周围 是一个或 多个空行 或列
Base 1 ' 指定数组 的第一个 下标为1 (2) On
Error
Resume Next '忽 略错误继 续执行 VBA代 码,避免 出现错误 消息 (3) On
Error
GoTo
ErrorHan dler '当错 误发生时 跳转到过 程中的某 个位置
(4) On
Error
GoTo 0 ' 恢复正常 的错误提 示 (5)
(36) ActiveCe ll.Offset( 1,0).Sele ct '活动 单元格下 移一行， 同理，可 下移一列
(37) Range(“ A1 ”).Offset( Column Offset:=1 )或 Range(“ A1 ”).Offset( ,1) ‘偏移 一列
Range(“
A1
(52) Range(“ Data ”).Count ‘ 单元格区 域Data中 的单元格 数
Range(“ Data”). Columns .Count ‘ 单元格区 域Data中 的列数
Range(“ Data”). Rows.Co unt ‘单元 格区域 Data中的 行数
(53) Selection .Column s.Count ‘ 当前选中 的单元格 区域中的 列数
(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 ‘ 将用户名 放置在活 动工作表 的页脚
单元格/ 单元格区 域 (32) ActiveCe ll.Current Region.S elect
或 Range(A ctiveCell. End(xlUp ),ActiveC ell.End(xl Down)).S elect '选择当 前活动单 元格所包 含的范 围，上下 左右无空 行 (33) Cells.Sel ect ‘选定 当前工作 表的所有 单元格
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)
(13) ActiveW orkbook. name ' 返回活动 工作薄的 名称 (14) ThisWor kbook.N ame ‘返 回当前工 作簿名称
ThisWor kbook.Fu llName ‘ 返回当前 工作簿路 径和名称 (15) ActiveWi ndow.En ableResi ze=False ‘禁止调 整活动工 作簿的大 小(16) Applicati on.Wind ow.Arran ge xlArrang eStyleTil ed ‘将工 作簿以平 铺(17方) 式排 ActiveW orkbook. Window State=xl Maximiz ed ‘将当 前工作簿 最大化
”).Offset(
Rowoffs et:=-1)或 Range(“
A1
”).Offset( -1) ‘向上 偏移一行 (38)
Range(“
A1
”).Copy
Range(“ B1”) '复 制单元格 A1，粘 贴到单元 格B1中 Range(“
A1:D8
”).Copy
Range(“ F1”) '将 单元格区 域复制到 单元格 F1开始 的区域中 Range(“
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区 域的交叉 区域
工作簿
(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 '获 取活动工 作薄中工 作表数
(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 的文本颜 色并返回 颜色索引
Selection .Rows.C ount ‘当 前选中的 单元格区 域中的行 数 (54) Selection .Areas.C ount ‘选 中的单元 格区域所 包含的区 域数
(55) ActiveSh ed Range.R ow ‘获取 单元格区 域中使用 的第一行 的行号
(56) Rng.Col umn ‘获 取单元格 区域Rng 左上角单 元格所在 列编号
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中止宏 运行的功
工作表
(18)
ActiveSh
ed
Range.R
ows.Cou nt ‘当前 工作表中 已使用的 行(19数)
Rows.Co unt ‘获取 工作表的 行数 (注：考 虑向前兼 容(20性) )
Sheets(S
heet1).N ame= “ Sum” '将 Sheet1 命名为 S(2u1m)
Range(“ A1 ”).Interior .ColorInd ex ‘获取 单元格 A1背景 色 (44) cells.cou nt ‘返回 当前工作 表的单元 格数
(45) Selection .Range(“ E4 ”).Select ‘激活当 前活动单 元格下方 3行，向 右4列的 单元格 (46) Cells.Ite m(5,”C”) ‘引单元 格C5
(34) Range(“ A1 ”).ClearC ontents ' 清除活动 工作表上 单元格 A1中的 内容 Selection .ClearCo ntents ' 清除选定 区域内容 Range(“ A1:D4 ”).Clear ' 彻底清除 A1至D4 单元格区 域的内 容，包括 格式 (35) Cells.Cle ar '清除 工作表中 所有单元 格的内容
(23) Workshe ets(Array (“sheet1 ”,”sheet2 ”)).Select '同时选 择工作表 1和工作 表2
(24) Sheets(“ sheet1 ”).Delete 或 Sheets(1 ).Delete ' 删除工作 表1 (25) ActiveW orkbook. Sheets(i) .Name ' 获取工作 表i的名 称
(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 ‘ 取消当前 工作表所 有超链接
A1:D8
”).Cut
Range(“ F1”) '剪 切单元格 区域A1 至D8， 复制到单 元格F1 开始的区 域中
Range(“ A1 ”).Curren tRegion. Copy Sheets(“ Sheet2 ”).Range (“A1”) '复 制包含 A1的单 元格区域 到工作表 2中以A1 起始的单 元格区域 中注： CurrentR egion属 性等价于 定位命 令，由一 个矩形单 元格块组 成，周围 是一个或 多个空行 或列
