Отобразить строку текста в текстовом поле на основе множественного флажка в пользовательской форме

Я создал простую пользовательскую форму с 4 флажками и 1 текстовым полем.

введите описание изображения здесь

Я хочу, чтобы иметь возможность отображать предложения на основе щелчка. если checkboxSwimming пул проверяется, я хочу отобразить эту строку: вызывающий абонент упомянул о плавающем бассейне.

если checkbox бассейн и checkbox баллон, проверьте, я хочу отобразить эту строку.

Звонящий упомянул о бассейне. Звонящий упомянул о балконе.

и сын.

вот мой код:

Private Sub CommandButton1_Click() 'If chkPool.Value = True Then 'txtComment.Text = "The caller asked about Swimming Pool." 'ElseIf chkBalcony.Value = True Then 'txtComment.Text = "The caller asked about Balcony and Patio." 'End If Select Case test_test Case chkPool.Value = True txtComment.Text = "The caller asked about Swimming Pool." Case chkPool.Value = True & chkBalcony.Value = True txtComment.Text = "The caller asked about Swimming Pool." txtComment.Text = "The caller asked about balcony." End Select End Sub 

Это то, что вы ищите?

 Private Sub CommandButton1_Click() txtComment.Text = "" If chkPool.Value = True Then txtComment.Text = txtComment.Text & "The caller asked about Swimming Pool." & Chr(10) End If If chkBalcony.Value = True Then txtComment.Text = txtComment.Text & "The caller asked about Balcony and Patio." & Chr(10) End If '... add more IF clauses for the other check boxes here... End Sub 

Просто убедитесь, что текстовое поле MultiLine = True .

  • Excel начал сбой на нескольких компьютерах и несколько версий пользовательской формы
  • Ссылка на самый недавно добавленный рабочий лист
  • Проверка данных Excel
  • Назначьте функцию VBA с нажатием кнопки динамически созданной кнопки в Excel Userform
  • Измените форму пользователя с помощью защищенных паролем надстроек
  • Excel VBA Userform, обновить и удалить базу данных,
  • Excel VBA UserForm - если не IsEmpty Then
  • Загрузка различных пользовательских форм последовательно
  • Пользовательский календарь календаря Excel
  • Форма входа в Excel VBA с сохраненными паролями в базе данных Access
  • Передача данных между UserForms
  • Interesting Posts

    Формула периода возврата Excel Excel для отображения Year / Compare Cumulative Totals в отдельных строках

    Unicode Ошибка в Windows при записи в Microsoft Excel

    Мне нужно показать данные Excel на презентабельной веб-странице или документе doc?

    Q: VBA – форматировать несколько ярлыков данных диаграммы сразу?

    Оптимизация кода макроса VBA / Excel (поиск дубликатов и сортировка большого набора данных)

    COUNTIF с несколькими OR-критериями в разных столбцах

    Чтение и анализ файлов Excel в C #

    Случайное присвоение данных

    Excel создает отметку даты при обновлении ячейки

    Вызовите различные пользовательские формы в программе

    Чтение с использованием XSSF SAX и передача данных с помощью SXSSF – POI

    Сделать пользовательскую функцию VBA вернуть ничего – не 0, а не пустую строку, но ничего

    Формула Excel: перекрывающиеся даты в таблице

    import named range от excel для доступа

    Имейте список значений excel cell, за исключением случаев, когда значение равно null

    Давайте будем гением компьютера.