最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 9524|回复: 27

[VBA/VBS教程] 利用VBA实现批量删除工作表功能

[复制链接]

84

主题

61

听众

3088

积分

测试体验团员

系统分析师

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
984
威望
8204
帖子
842
精华
3

WPS粉丝团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 最佳教程奖 优秀会员奖

发表于 2012-10-25 17:48 |显示全部楼层
分享到: 新浪微博 腾讯微博
本帖最后由 天远 于 2012-10-25 17:49 编辑
% u% w- d. y4 C1 _6 |
/ ]7 b+ L! S4 J$ S3 C! K. {众所周知,无论是WPS的ET还是微软的Excel都有批量添加工作表的功能,如图:
+ b' {/ c9 Y" p" G. u& z  x- I0 N3 _& d, h4 O- B6 O9 E
但是,我找了很久也没有找到对应的批量删除工作的功能,为此,我们再次拿起VBA这把利剑,为ET将这个功能补充上去。
; i! l4 o& H1 K% P7 u# i9 ]如图:+ R4 I3 Z7 _- f3 n' r
6 B' W) K1 I3 R* ^0 F* F

: d, m! a4 y: y9 ?( t; y) E. h, a. A% `% v
限于篇幅和界面元素的限制,代码就不贴了,我直接将文档共享给大家。有需要的可以打开文档后进入VBA环境查看到所有的代码。我在上面加了比较详尽的注释,满足喜欢研究代码的同学的需求。, \# }) [5 G- R$ @
我相信我的这个解决方案和代码不是最好的,一定有更好的出来,欢迎各位不吝赐教,天远在此先谢谢各位了。
) e7 f+ n, U- D) T9 m6 s3 f; F0 [% i" T: {9 l# b( y) b
( o2 h0 h$ H. t) G5 ^! V

! P+ c3 h( p7 |* S4 g9 U+ {
. Q1 ]2 I8 Q7 ]+ h- Y) |2 P

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 1 人评分威望 收起 理由
松风水月 + 15 赞一个!

总评分: 威望 + 15   查看全部评分

热爱分享和学习。希望WPS论坛越办越好,WPS软件越做越好。也希望能在这里交到更多志同道合的朋友。我的邮箱:ypr@yprnet.com
我在WPS论坛上的教程帖子合集: http://blog.yprnet.com/wps

68

主题

8

听众

813

积分

LV.6

Rank: 6Rank: 6

该用户从未签到

金币
63
威望
1228
帖子
548
精华
0
发表于 2012-10-25 17:52 |显示全部楼层
谢谢楼主了
任你牛x牛牛风光无数,请不要炫耀大不了干瞪眼
回复

使用道具 举报

19

主题

111

听众

5338

积分

技术分享团长

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

签到天数: 5 天

[LV.2]偶尔看看I

金币
5316
威望
11825
帖子
2334
精华
1

WPS粉丝团 荣誉版主奖 活跃会员奖 技术分享团 解答支持团 重阳节勋章

发表于 2012-10-25 20:17 |显示全部楼层
谢谢天远了!这个功能真不错!
回复

使用道具 举报

84

主题

61

听众

3088

积分

测试体验团员

系统分析师

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
984
威望
8204
帖子
842
精华
3

WPS粉丝团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 最佳教程奖 优秀会员奖

发表于 2012-10-25 20:51 |显示全部楼层
松风水月 发表于 2012-10-25 20:17
, u6 V, `0 X' V( P6 @+ O谢谢天远了!这个功能真不错!

* G+ J+ p$ g- a我也是受到体验版中必备工具箱里预告了这个功能,所以自己也做一个试试看,相信张老师的会更好
回复

使用道具 举报

0

主题

0

听众

7

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
12
帖子
6
精华
0
发表于 2013-4-25 14:12 |显示全部楼层
学习了,谢谢!
回复

使用道具 举报

1

主题

0

听众

7

积分

LV.1

Rank: 1

该用户从未签到

金币
1
威望
11
帖子
8
精华
0
发表于 2013-5-2 03:44 |显示全部楼层
我想下载啊!@!!编辑工具条用!!!!!
回复

使用道具 举报

0

主题

0

听众

1

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
1
帖子
1
精华
0
发表于 2013-5-23 19:13 |显示全部楼层
威望怎么来的
回复

使用道具 举报

0

主题

0

听众

55

积分

LV.2

Rank: 2

该用户从未签到

金币
0
威望
119
帖子
16
精华
0
发表于 2013-10-17 21:57 |显示全部楼层
学习学习,谢谢!
回复

使用道具 举报

0

主题

0

听众

16

积分

LV.1

Rank: 1

该用户从未签到

金币
2
威望
11
帖子
0
精华
0
发表于 2013-12-4 14:27 |显示全部楼层
每次都要扣2分,快没钱了
回复

使用道具 举报

114

主题

20

听众

2万

积分

LV.18

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

签到天数: 1244 天

[LV.10]以坛为家III

金币
2144
威望
69396
帖子
4240
精华
0

优秀会员奖 活跃会员奖

发表于 2014-10-12 16:22 |显示全部楼层
了解一下           
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-22 16:37

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部