Есть ли способ отображения текста на основе значения?

Question

Я использую программное обеспечение, в котором есть VBA, оно имеет полную библиотеку ссылок VBA плюс свои собственные пользовательские материалы.

Так что мой вопрос связан с частью VBA, которая должна быть одинаковой везде, я предполагаю.

У меня есть 5 переменных, которые кто-то может выбрать в качестве заданного значения (по одной за раз), у меня также есть сигнал обратной связи для каждой из переменных, который показывает, включен он или выключен.

на дисплее в форме у меня есть текстовая строка, которую я хочу отобразить независимо от того, какая из переменных выбрана.

так есть ли способ написать код, который говорит: "Если эта переменная истинна, отобразите ее"?

Спасибо вам, ребята,

Answer 1

Закончив свой предыдущий ответ, я вернулся, чтобы перечитать ваш вопрос еще раз и понял, что я написал, вероятно, не то, что вы пытались сделать.

Как сказал Тим, если сигнал обратной связи не используется ни для чего другого, вместо того, чтобы устанавливать переменную для каждого параметра, выделите текст.

Private Sub Selection1CommandButton_OnClick()

  Userform1.textdisplaybox.caption = "option1"

End Sub

Или, возможно, проверьте комбинированные окна, выпадающие меню выбора. Это может иметь все, что вы ищете все в одном.

Оригинальный ответ следует.

Я немного не уверен в том, что вы спрашиваете, но я думаю, что вы хотите, чтобы ранее выбранная опция отображалась в тексте только тогда, когда она имеет сигнал. Я не знаю, где вы храните выделение, сейчас я просто предположу, что это глобальная переменная с именем selectedOption, в которой выбраны option1, option2 и т.д.

Примерно так может быть то, что вы пытаетесь:

Private sub

'If both the selected option is the first and the feedback signal
'is true, then set the display to that option
If selectedOption = option1 and variableSignal1 = True Then
       Userform1.textdisplaybox.caption = option1

'Option is the second and signal is true
ElseIf selectedOption = option2 and variableSignal2 = True Then
       Userform1.textdisplaybox.caption = option2
'However many else ifs you need, then if the signal is not true,
'blank the textbox
Else
       Userform1.textdisplaybox.caption = ""
Endif

End sub

Если сигнал собирается включаться и выключаться сам по себе, то вы можете добавить таймер и установить его в своем таймауте.