使用引号将参数模拟为字符串(vba)

时间:2016-02-13 02:18:41

标签: string excel-vba vba excel

我的功能是期待这样的参数:

myFunc(var as string) as boolean
   'code
end function

通常会传递类似:"978123qq123"的内容 但是,如果它传递的是同一个没有“”含义的变量:978123qq123,它就会失败。如何模拟使用引号传入的相同行为?

我尝试了以下某些操作:var = " " & varvar = " " & var & " "var = cstr(var)但我似乎无法获取参数来模拟使用引号传递给函数的效果标记到位。

1 个答案:

答案 0 :(得分:0)

用引号传递调用这样的函数:

trait Summable[A] {
  def +(a: A, b: A): A
}

object Summable {
  implicit object SummableBoolean extends Summable[Boolean] {
    override def +(a: Boolean, b: Boolean) = !a
  }
  implicit object SummableInt extends Summable[Int] {
    override def +(a: Int, b: Int) = a + b
  }
  implicit object SummableDouble extends Summable[Double] {
    override def +(a: Double, b: Double) = a + b
  }
}

def fun[A](a: A, b: A)(implicit ev: Summable[A]) =
  ev.+(a, b)

val res1 = fun(true, true) // returns false
val res2 = fun(1, 3) // returns 4
val res3 = fun(1.5, 4.3) // returns "5.8"

VariableA = MyFunc( chr(34) & var & chr(34) )