Если значение = true, тогда добавьте 1 или 0 в VBA

Question

Я не уверен, что это возможно, но я решил спросить и посмотреть, есть ли у кого-нибудь яркие решения.

Я создаю форму VBA, которую люди будут использовать для сборки SQLstring: «Отметьте этот флажок, чтобы этот параметр был истинным».

Очевидный способ реализовать это будет

If Checkbox.Value Then
    string = string + "@parameter = 1, "
Else
    string = string + "@parameter = 0, "
End If

Раздражает то, что это довольно многословно.Было бы хорошо, если бы я мог сделать что-то вроде этого:

string = string + "@parameter = " + Checkbox.value + ", "

Но я не уверен, возможно ли это.Возможно ли это?

Answer 1

Рассматривали ли вы использование IIf?

string = string + "@parameter = " + IIf(Checkbox.value, "1", "0") + ", "

Подробнее о функции можно узнать здесь .

Answer 2

В VBA True равен -1, а False равен 0, что отличается от собственно Excel (True равно 1).

string = string + "@parameter = " & CLng(Abs(Checkbox.Value)) & ", "

Это приведет к преобразованию False в ноль и True в положительное значение.Abs, вероятно, преобразует его в число, поэтому CLng может быть излишним.Но я прошу читабельности.

Answer 3

Еще более коротким решением будет:

string = string + "@parameter = " & -1 * Checkbox.Value & ", "