Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для равертывания строк под плюсом (Макросы/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
 
Ответить
СообщениеРешил пойти другим путем. Как в макросе можно вычленить само значение, если в ячейке формула. В ячейке 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:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для равертывания строк под плюсом (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!