VBA 访问参数传递值

Question

访问 2013

我正在调用一个公式来修改一个字符串，它正在更改父子中的值。

例子：

Debug.Print Str 'Hello World my name is bob
BOBexists = InStringChceck(Str,"bob")
Debug.Print Str 'HELLO WORLD MY NAME IS BOB
Debug.Print BOBexists 'TRUE

我以前在 Excel VBA 中使用过这个函数 InStringCheck（这只是一个例子，我所有的字符串工具现在都在做同样的事情，我不知道为什么）

Function InStringCheck(Phrase as string, Term as string) as Boolean
    Phrase = UCase(Phrase)
    Term = UCase(Term)
    if instr(1, Phrase, Term) then InStringCheck = True else InStringCheck = False
end function

在我的几个函数中，我操纵输入变量，以得出一个解决方案，但我不希望这些操作在函数之外持续存在，除非我将它们传回——有些是如何传递的，但它们“再没有银币作为公共变量

Answer 1

VBA 参数通过引用 ( ByRef)隐式传递。这意味着您传递的是对值的引用，而不是值本身：在过程中改变该值将导致该改变的值对调用代码可见。

这通常用作从函数/过程返回多个值的技巧：

Public Sub DoSomething(ByVal inValue1 As Integer, ByRef outResult1 As Integer, ...)

您有两个选择：

• 按值传递参数 ( ByVal)
• 引入局部变量并改变它们而不是改变参数（见鬼，ByRef显式传递参数）

如果您ByRef在项目中隐式传递了大量参数，那么在任何地方修复它们很容易变得乏味。使用Rubberduck，您可以轻松定位所有事件，导航到那里，并应用适当的修复：

免责声明：我积极参与了 Rubberduck 项目。