Есть ли способ отображения текста на основе значения?
Я использую программное обеспечение, в котором есть VBA, оно имеет полную библиотеку ссылок VBA плюс свои собственные пользовательские материалы.
Так что мой вопрос связан с частью VBA, которая должна быть одинаковой везде, я предполагаю.
У меня есть 5 переменных, которые кто-то может выбрать в качестве заданного значения (по одной за раз), у меня также есть сигнал обратной связи для каждой из переменных, который показывает, включен он или выключен.
на дисплее в форме у меня есть текстовая строка, которую я хочу отобразить независимо от того, какая из переменных выбрана.
так есть ли способ написать код, который говорит: "Если эта переменная истинна, отобразите ее"?
Спасибо вам, ребята,
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
Если сигнал собирается включаться и выключаться сам по себе, то вы можете добавить таймер и установить его в своем таймауте.