Блог

Моя цель-скрыть флажки в поле выбора со списком, если пользователь выбирает элемент из поля со списком, то размеры этого конкретного элемента будут отображаться в качестве флажка для выбора. у меня есть 6 доступных размеров в качестве флажка. но если какой-либо предмет имеет только 3 доступных размера, то остальные три должны быть скрыты. с помощью приведенного ниже кода я пытаюсь получить подписи для всех флажков с листа и пытаюсь скрыть все флажки в поле выбора со списком.

 For i = 2 To 1000
 If Me.TextBox3.Value = th.ListObjects("table3").ListColumns(2).Range(i, 1).Value Then

 Me.CheckBoxSmall.Caption = th.ListObjects("table3").ListColumns(4).Range(i, 1).Value
 i = i   1
 Me.CheckBoxMedium.Caption = th.ListObjects("table3").ListColumns(4).Range(i, 1).Value
 i = i   1
 Me.CheckBoxLarge.Caption = th.ListObjects("table3").ListColumns(4).Range(i, 1).Value
 i = i   1
 Me.CheckBoXL.Caption = th.ListObjects("table3").ListColumns(4).Range(i, 1).Value
 i = i   1
 Me.CheckBoXXL.Caption = th.ListObjects("table3").ListColumns(4).Range(i, 1).Value
 i = i   1
 Me.CheckBoXXXL.Caption = th.ListObjects("table3").ListColumns(4).Range(i, 1).Value
 i = i   1
 
 Else
 
 Me.CheckBoxSmall.Visible = False
 Me.CheckBoxSmall.Visible = False
 Me.CheckBoxMedium.Visible = False
 Me.CheckBoxLarge.Visible = False
 Me.CheckBoXL.Visible = False
 Me.CheckBoXXL.Visible = False
 Me.CheckBoXXXL.Visible = False
    
 End If
 Next i
 

В результате приведенного выше кода я получаю подписи для флажков, если удалить код после того, как он будет удален, он не сможет скрыть флажок.
Я набираю этот код в событии изменения выпадающего списка.

Пожалуйста, помогите решить эту проблему.

ваш любезный ответ будет высоко оценен.