你怎么去另一个对象的线标签？

Question

例如,给定表1包含:

Ref: Do things

如何将模块1中的代码指向GoTo Ref？如果我在Sheet1代码moduke中,那么我可以简单地使用a Goto Ref

但这不适用于不同的模块

Answer 1

你的问题不明确,你没有提供任何代码,所以这是猜测.

GoTo用于跳转到同一子/函数内的不同位置.你不能用它来跳转到其他子程序或函数的部分,这听起来像你可能试图做的那样.

此外,"NapDone:"不称为参考,它正式称为线标签.:)

Answer 2

为了帮助扩展其他答案..就像他们说的那样，除了错误处理之外，您不应该在 VBA 中使用 GoTo 进行任何操作。

您应该做的是从另一个模块调用公共子/函数。例如，在模块 1 中，您将拥有以下内容

Sub TestMod1()
Dim MyNumber As Integer

MyNumber = GetSquare(6)
'MyNumber returns from the function with a value of 36
End Sub

在模块 2 上你有

Public Function GetSquare(ByVal MyNumber As Integer)

GetSquare = MyNumber * MyNumber

End Function

所以现在你知道如何避免它了。GoTo 不是很好的编程实践，因为你会到处乱飞。尝试将您重复的代码分解为多个 Sub 并在需要时调用它们，或者在任何情况下运行。然后你将进入类，这些类只是被包装起来代表一个对象，它会为那个对象做所有的工作。

这应该让你走上正轨。