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

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

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