vba excel将参数从子传递到子

Question

我想将我的输入传递给其他潜艇，例如：

Sub Search()
  Inputbox myInput   '~> this is the variable I want to pass
  Call getInput      '~> I want to pass the variable to this sub
End sub

Sub getInput()
  if a = myInput     '~> from sub Search()
  DO something
End sub

我搜索解决方案并阅读了有关 ByVal 或 ByRef 的信息，但我很困惑将变量放在哪里，有人可以帮忙吗？

Answer 1

Sub Search()
  Inputbox myInput   '~> this is the variable I want to pass
  Call getInput (myInput)  '~> Note the variable
End sub

Sub getInput(ByVal inputVar As String)  '~> Note:  You need to specify the datatype
  If a = inputVar Then     '~> Use your parameter here
      'DO something
  End If
End sub