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

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

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

[复制链接]

84

主题

59

听众

3088

积分

测试体验团员

系统分析师

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

该用户从未签到

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

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

发表于 2012-10-25 17:48 |显示全部楼层
分享到: 新浪微博 腾讯微博
本帖最后由 天远 于 2012-10-25 17:49 编辑 + i$ K; ]$ T) T" n" J, g) x( H
3 |. X0 S; W9 \' E& O( {9 }: M. t
众所周知,无论是WPS的ET还是微软的Excel都有批量添加工作表的功能,如图:* }# o  e3 R% ?! t" D
$ w9 @4 I$ p3 o, \! R+ G7 m
但是,我找了很久也没有找到对应的批量删除工作的功能,为此,我们再次拿起VBA这把利剑,为ET将这个功能补充上去。
; P. ], A3 S* w3 D1 ]2 e! x) z如图:
/ P; h% t8 m2 T: }# s1 t
; i  R4 l3 Q+ F( m. ~) Y0 y3 F
2 a, P& j7 D6 |
" ]- [  w/ L. t1 g限于篇幅和界面元素的限制,代码就不贴了,我直接将文档共享给大家。有需要的可以打开文档后进入VBA环境查看到所有的代码。我在上面加了比较详尽的注释,满足喜欢研究代码的同学的需求。( I: A, X7 ~2 Q% n& _1 M. q
我相信我的这个解决方案和代码不是最好的,一定有更好的出来,欢迎各位不吝赐教,天远在此先谢谢各位了。
$ L7 i" H8 e3 E3 S& F# h+ A1 l8 X$ w
) f( l' [* l  T* m, X- }( K: U( X8 Z; J* }& U- q6 b' T1 i

: G) ^1 Y! v  _# Y9 Q% m0 ^: c/ n4 |( M. V3 u2 ?

本帖子中包含更多资源

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

已有 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

主题

106

听众

5338

积分

技术分享团长

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

签到天数: 5 天

[LV.2]偶尔看看I

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

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

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

使用道具 举报

84

主题

59

听众

3088

积分

测试体验团员

系统分析师

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

该用户从未签到

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

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

发表于 2012-10-25 20:51 |显示全部楼层
松风水月 发表于 2012-10-25 20:17
) l2 r' g  E: I; O) v* f3 H谢谢天远了!这个功能真不错!

" s1 h& D; \- d' 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分,快没钱了
回复

使用道具 举报

110

主题

18

听众

2万

积分

LV.17

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

签到天数: 1181 天

[LV.10]以坛为家III

金币
2069
威望
66760
帖子
4062
精华
0

优秀会员奖 活跃会员奖

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

使用道具 举报

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

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-20 08:09

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部