Макрос для равертывания строк под плюсом - Страница 2

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос для равертывания строк под плюсом - Страница 2 - Мир MS Excel

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_, DrMini

Макрос для равертывания строк под плюсом (Макросы/Sub)

Макрос для равертывания строк под плюсом

Beleric3380

Дата: Среда, 10.08.2022, 06:53 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Решил пойти другим путем. Как в макросе можно вычленить само значение, если в ячейке формула. В ячейке B3 Yes or No определяются из ячейки I3. Как омжно сделать так, чтобы они так же разворчивались\сворачивались. Попробовал заменить формулу значеием в макросе.
[vba]

Код

Private Sub Worksheet_Change_2(ByVal Target As Range)
    If Target.Cells = "B3" Then
        On Error Resume Next
        If Target.Value = "Yes" Then
            Rows(Target.Row + 1).ShowDetail = Target.Value = "Yes"
        ElseIf Target.Value = "No" Then
            Rows(Target.Row + 1).ShowDetail = Target.Value = "Yes"
        End If
        On Error GoTo 0
    End If
End Sub

[/vba]

Сообщение отредактировал Beleric3380 - Среда, 10.08.2022, 06:54

Ответить

Макрос для равертывания строк под плюсом (Макросы/Sub)

Страница 2 из 2
«
1
2