VBA excel传回参数

好的，我想添加一些东西给这个macros

Sub Search() Inputbox myInput found = false loop Call getInput (myInput) '~> check multiple files end loop If found = false 'DO something End if End sub Sub getInput(ByVal inputVar As String, ByVal Input as Boolean) If a = inputVar Then found = true '~> I want to pass this parameter back to search End If End sub 

---

这种情况是，我希望我的子传递查找参数从search（）getInput（），然后getInput（）返回find的参数search（）

我应该添加像search（ByVal发现布尔）？

Answer 1

如果你想返回一个值，那么你应该把getInput Sub改成一个函数，因为它们可以返回值。

 Sub Search() Dim found As Boolean InputBox myInput found = checkInput(myInput) If found = False Then 'DO something End If End Sub Function checkInput(inputVar As String) As Boolean Dim result As Boolean 'do your checking here and set result 'return the result checkInput = result End Function