VBA для включения флажков в пользовательскую форму, которая проверяется / снимается в зависимости от значения таблицы

Запрос: включить флажок в моей пользовательской форме, который будет отмечен / снят в зависимости от значения True / False в столбце таблицы

Текущее состояние:

У меня есть пользовательская форма, которая используется для добавления редактирования или удаления записей в таблице. В частности, редактирование работает таким образом, что у меня есть поле со списком, которое соответствует адресам электронной почты в столбце A, и текстовые поля для каждого столбца таблицы.

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

VBA для включения флажков в пользовательскую форму, которая проверяется / снимается в зависимости от значения таблицы

Для примера я хотел бы добавить флажок, который говорит "в браке" и соответствует столбцу в таблице, который имеет значения «True» или «False». Теперь этот флажок должен быть установлен / снят автоматически в зависимости от значения в соответствующем столбце.

Мой код:

Private Sub c_01_Change()

' c_01 is the combo box
   With c_01
   ' B_02 is the delete button
   ' B_03 is the save button
        B_02.Visible = .ListIndex > -1
        B_03.Visible = True
        If .ListIndex = -1 Then Exit Sub

        ' T_0X are the text boxes
        For j = 0 To UBound(.List, 2)
            Me("T_" & Format(j, "00")).Text = .Column(j)
            Me("T_" & Format(j, "00")).Locked = False
            If j > 2 Then Me("T_" & Format(j, "00")).Text = Format(.Column(j), "0.00")
        Next
    End With
End Sub

Private Sub T_00_Change()
    M_text 0
    B_02.Visible = T_00.Text <> ""
End Sub
Private Sub T_01_Change()
    M_text 1
End Sub
Private Sub T_02_Change()
    M_text 2
End Sub
Private Sub T_03_Change()
    M_text 3
End Sub
Private Sub T_04_Change()
    M_text 4
End Sub
Sub M_text(y)
    If c_01.ListIndex > -1 Then c_01.Column(y) = Me("T_" & Format(y, "00")).Text
End Sub
Стоит ли изучать PHP в 2023-2024 годах?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
0
0
62
1

Ответы 1

  1. Добавьте флажок.
  2. Затем проверьте значение в ячейке. В моем примере это Cells(1,1):
  3. Напишите это:

CheckBox1.Value = CBool(Cells(1, 1))

Другие вопросы по теме