Добрый день, подскажите пожалуйста, мне необходимо сделать следующий макрос: по условию, если один из option button =true, скрыть определенные строки в зависимости от содержимого ячеек A3-A5.
В зависимости от содержимого A5 должен работать option button SelfDevelopment.
В зависимости от содержимого A4 должен работать option button TeamWork.
В зависимости от содержимого A3 должен работать option button AllIndicators.
SelfDevelopment, AllIndicators, TeamWork - наименования option button.
Вот мой код, у меня выполняется только первая часть:
В зависимости от содержимого A5 должен работать option button SelfDevelopment.
В зависимости от содержимого A4 должен работать option button TeamWork.
В зависимости от содержимого A3 должен работать option button AllIndicators.
SelfDevelopment, AllIndicators, TeamWork - наименования option button.
Вот мой код, у меня выполняется только первая часть:
Код |
---|
If SelfDevelopment.Value = True Then ElseIf Worksheets("Профиль сотрудника").Range("A5") = "Вид1" Then Rows("3:13").Hidden = True End If If AllIndicators.Value = True Then ElseIf Worksheets("Профиль сотрудника").Range("A3") = "Вид1" Then Rows("3:63").Hidden = False ElseIf Worksheets("Профиль сотрудника").Range("A3") = "Вид2" Then Rows("3:7").Hidden = True ElseIf Worksheets("Профиль сотрудника").Range("A3") = "Вид3" Then Rows("3:13").Hidden = True End If If TeamWork.Value = True Then ElseIf Worksheets("Профиль сотрудника").Range("A4") = "Вид1" Then Rows("14:63").Hidden = True ElseIf Worksheets("Профиль сотрудника").Range("A4") = "Вид2" Then Rows("3:7").Hidden = True Rows("9:63").Hidden = True ElseIf Worksheets("Профиль сотрудника").Range("A4") = "Вид3" Then Rows("3:63").Hidden = True MsgBox ("Не имеет показателей работы с командой") 'для ошибки End If |