使用TextBox值重命名工作表

Question

我有一张表格，我想重命名表格。实际上，程序正确地执行了，但是当我想使用.Activate函数时，我收到一个错误：类型不匹配

Worksheets.Add().name = UserForm1.txtNameSur

Worksheets(UserForm1.txtNameSur).Activate

我也试过

Worksheets("&UserForm1.txtNameSur&").Activate

还是一样。

谢谢！

Answer 1

GD Stefan，

Worksheets的.Activate方法期望索引（整数或长整数）或字符串，标识要激活的页面。您正在以TextBox的形式将对象传递给.Activate方法。尝试传递值，而不是整个对象，因为VBA对如何处理TextBox只会是String或Integer或Long变量感到困惑。

即：

Worksheets.Add().Name = UserForm1.txtNameSur.Value
Worksheets(UserForm1.txtNameSur.Value).Activate

这应该有用！