VBA 为什么只是赋值,运行就会增加工作表??

我只是为wsadd赋值,只不过赋值的内容里有add方法而已。为什么运行就会增加工作表?我的理解是,不会增加工作表,只在我单独使用wsadd时才增加工作表。.Subd()D... 我只是为wsadd赋值,只不过赋值的内容里有add方法而已。为什么运行就会增加工作表?
我的理解是,不会增加工作表,只在我单独使用wsadd时才增加工作表。.

Sub d()
Dim wsadd As Worksheet
Set wsadd = ActiveWorkbook.Worksheets.Add
End Sub
我只是在赋值时使用了add方法而已,又没让它去干,可它却真的去干了。
有什么方法能既为它赋值,又不让它干呢?
展开
 我来答
feiyun
2012-08-19 · 知道合伙人教育行家
feiyun
知道合伙人教育行家
采纳数:2687 获赞数:7902
从事培训工作12年 中级经济师

向TA提问 私信TA
展开全部
如果你希望以后输入wsadd就能增加工作表,唯一的方法就是在模块里新建一个自定义函数,函数名是wsadd,函数的内容则是ActiveWorkbook.Worksheets.Add
但是我觉得这毫无意义,降低程序可读性.
追问
因为我想,如果要增加100个工作表,输入100次wsadd显然更容易些。
追答
增加100个工作表,还是用个循环更容易些。
如果非要简写,那么就做个自定义函数。
yangliu0512
2012-08-19 · TA获得超过544个赞
知道小有建树答主
回答量:891
采纳率:0%
帮助的人:428万
展开全部
Set wsadd = ActiveWorkbook.Worksheets.Add 这句的意思本来就是新建一个工作表并赋给变量wsadd。而不是简单的赋值。你所要的只赋值而不干是要给它赋什么值?
追问
我希望以后输入wsadd就能增加工作表,而不需要输入ActiveWorkbook.Worksheets.Add这么长的一段代码。
追答
你不至于吧,写代码还想偷懒。。。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式