Question

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

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

Sub d()
Dim wsadd As Worksheet
Set wsadd = ActiveWorkbook.Worksheets.Add
End Sub
我只是在赋值时使用了add方法而已，又没让它去干，可它却真的去干了。
有什么方法能既为它赋值，又不让它干呢？

Answer 1

如果你希望以后输入wsadd就能增加工作表,唯一的方法就是在模块里新建一个自定义函数,函数名是wsadd,函数的内容则是ActiveWorkbook.Worksheets.Add
但是我觉得这毫无意义,降低程序可读性.

追问

因为我想，如果要增加100个工作表，输入100次wsadd显然更容易些。

追答

增加100个工作表，还是用个循环更容易些。
如果非要简写，那么就做个自定义函数。

Answer 2

Set wsadd = ActiveWorkbook.Worksheets.Add 这句的意思本来就是新建一个工作表并赋给变量wsadd。而不是简单的赋值。你所要的只赋值而不干是要给它赋什么值？

追问

我希望以后输入wsadd就能增加工作表，而不需要输入ActiveWorkbook.Worksheets.Add这么长的一段代码。

追答

你不至于吧，写代码还想偷懒。。。。。