Добрый день. Имеется юзерформ с 5 чекбоксами. В работе их может быть заполнено от 1 до 5. Задача в следующем:
Если есть заполненные чекбоксы, то как вывести их значение в ячейку? Мой код ниже:
Конкретно интересует, как вывести в Cells(fr,2)= значение заполненного чекбокса?
Если есть заполненные чекбоксы, то как вывести их значение в ячейку? Мой код ниже:
Код |
---|
Public sub cb() Dim cb As Integer cb = 0 If FlowSwitcherForm.cat_fr_1 <> "" Then cb = cb + 1 End If If FlowSwitcherForm.cat_sh_1 <> "" Then cb = cb + 1 End If If FlowSwitcherForm.cat_alc_1 <> "" Then cb = cb + 1 End If If FlowSwitcherForm.cat_of_1 <> "" Then cb = cb + 1 End If If FlowSwitcherForm.cat_z_1 <> "" Then cb = cb + 1 End If With Worksheets("Расчет") fr = Range("A1").End(xlDown) If cb = 1 Then Cells(fr, 1) = FlowSwitcherForm.frmKust1 And Cells(fr, 3) = FlowSwitcherForm.rcNow1 And Cells(fr, 3) = FlowSwitcherForm.rcTo1 And Cells(fr, 2) = cb.Value End If End With |