Коллеги, добрый день!
Столкнулся с проблемой, никак не могу найти решение.
Есть пользовательская форма, в которой имеются TextBox и CheckBox. Код для соотнесения TextBox получилось написать, помогите пожалуйста дописать код, чтобы галочка CheckBox устанавливала значение истина/ложь в определенном столбце
Столкнулся с проблемой, никак не могу найти решение.
Есть пользовательская форма, в которой имеются TextBox и CheckBox. Код для соотнесения TextBox получилось написать, помогите пожалуйста дописать код, чтобы галочка CheckBox устанавливала значение истина/ложь в определенном столбце
| Код |
|---|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then Cancel = True With UserForm1 .TextBox2 = Target 'Фамилия Имя Отчество .TextBox6 = Target.Offset(0, 2) 'Дата рождения .TextBox1 = Target.Offset(0, -1) '№ п/п .TextBox3 = Target.Offset(0, 3) 'Положение .TextBox5 = Target.Offset(0, 4) 'Должность .TextBox7 = Target.Offset(0, 5) '№ УПФТ .TextBox8 = Target.Offset(0, 6) '№ Исследования .TextBox9 = Target.Offset(0, 7) .TextBox10 = Target.Offset(0, 8) .TextBox11 = Target.Offset(0, 9) .TextBox12 = Target.Offset(0, 11) .TextBox13 = Target.Offset(0, 15) .TextBox14 = Target.Offset(0, 19) .TextBox15 = Target.Offset(0, 12) .TextBox16 = Target.Offset(0, 16) .TextBox17 = Target.Offset(0, 20) .TextBox18 = Target.Offset(0, 13) .TextBox19 = Target.Offset(0, 17) .TextBox20 = Target.Offset(0, 21) .TextBox21 = Target.Offset(0, 14) .TextBox22 = Target.Offset(0, 18) .TextBox23 = Target.Offset(0, 22) .TextBox24 = Target.Offset(0, 23) .TextBox25 = Target.Offset(0, 24) .TextBox26 = Target.Offset(0, 27) .TextBox27 = Target.Offset(0, 28) .TextBox28 = Target.Offset(0, 29) .TextBox29 = Target.Offset(0, 30) .TextBox30 = Target.Offset(0, 32) .TextBox31 = Target.Offset(0, 33) .TextBox32 = Target.Offset(0, 31) .TextBox33 = Target.Offset(0, 41) .TextBox34 = Target.Offset(0, 39) .TextBox35 = Target.Offset(0, 40) .TextBox36 = Target.Offset(0, 42) .TextBox37 = Target.Offset(0, 46) .TextBox38 = Target.Offset(0, 45) .TextBox39 = Target.Offset(0, 43) .TextBox40 = Target.Offset(0, 44) .TextBox41 = Target.Offset(0, 48) 'Жалобы .TextBox42 = Target.Offset(0, 49) 'Хронические заболевания .TextBox43 = Target.Offset(0, 50) 'Примечание .TextBox44 = Target.Offset(0, 51) 'Рост .TextBox45 = Target.Offset(0, 52) 'Вес .TextBox46 = Target.Offset(0, 53) 'САД .TextBox47 = Target.Offset(0, 54) 'ДАД .TextBox48 = Target.Offset(0, 55) 'ЧСС .TextBox49 = Target.Offset(0, 56) 'SpO2 .TextBox50 = Target.Offset(0, 61) 'Рекомендации .TextBox51 = Target.Offset(0, 60) 'Риск .ComboBox2 = Target.Offset(0, 58) 'Группа риска .ComboBox3 = Target.Offset(0, 59) 'ПВК .Show End With End If End Sub |
Изменено: - 07.11.2025 09:56:51
(Изменил название темы. Она должна отражать СУТЬ задачи, а не быть просто названием контрола. На будущее)
