Страницы: 1
RSS
В одной ячейке или формула, или значение (в зависимости от условия)
 
Здравствуйте!

Не могу найти ответ на свой вопрос, скорее всего я не правильно его формулирую, помогите пожалуйста с формулировкой или решением.

Есть ячейка А1, необходимо сделать так, чтобы при отсутствии какого либо значения (пустой ячейке) или наличии в ячейке значения 0, эта ячейка использовала формулу (Например:=H14*2+H15), а если в ячейке любое число кроме 0, то использовалось и отображалось это число.

Заранее спасибо!
 
Формула и константа в ячейке не уживаются. Т.е. если нужно иметь или формулу, или вписанное значение в зависимости от условий - нет, нельзя.
Если не так - покажите пример. Объяснение хромает, возможно, не так понял и по примеру станет понятна задача
 
Попробую сформулировать по другому.

В ячейке А1 есть формула (=H14*2+H15), если в ячейку А1 внести значение, то формула исчезнет, можно ли сделать так, чтобы при удалении значения из ячейки, формула вернулась?
 
Нет
Создайте тему по решаемой задаче, опишите задачу, прикрепите небольшой пример - возможно, получите решение проблемы.
 
Спасибо!
 
Цитата
Алексей Владимиров написал:
если в ячейку А1 внести значение, то формула исчезнет
Цитата
vikttur написал:
Формула и константа в ячейке не уживаются
По сути можно написать макрос на изменение ячейки А1, который будет возвращать формулу, если значение из ячейки удаляется. Правая кнопка мыши на ярлыке листа -Исходный текст(или Просмотреть код). Вставляете код ниже:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1, 1).Address(0, 0) = "A1" Then
        If Target.Value = "" Then
            Application.EnableEvents = 0
            Target.Formula = "=H14*2+H15"
            Application.EnableEvents = 1
        End If
    End If
End Sub
Макросы должны быть разрешены.
Изменено: Дмитрий(The_Prist) Щербаков - 02.02.2021 11:06:16
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо огромное, то что нужно. Премного благодарен!
Изменено: Алексей Владимиров - 02.02.2021 11:24:33
 
Цитата
Алексей Владимиров написал:
то что нужно
только цитату уберите из сообщения - смотрится ужасно и лишнее совершенно. И модераторы не похвалят. И название темы не мешало бы именно Вам придумать :)
Название темы: И формула и значение в одной ячейке
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Не могу изменить название темы.
 
и не сможете. Заменил уже
 
Цитата
написал:
По сути можно написать макрос
Доброго дня! Подскажите а возможно изменить макрос чтоб он действовал не на одну ячейку а на весь столбец? Например “D”
ну и в 5 строке указать свою формулу?
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rr As Range
    If Target.Rows.Count = ActiveSheet.Rows.Count Then
        On Error Resume Next
        Set Target = Intersect(Target, ActiveSheet.UsedRange)
        On Error GoTo 0
    End If
    
    Dim cTarget As Range
    For Each cTarget In Intersect(Target, Columns("D:D"))
        If cTarget.Value = "" Then
            If cTarget.Address(0, 0, xlA1) <> "D5" Then
                Application.EnableEvents = 0
                cTarget.Formula = Range("D5").Formula
                Application.EnableEvents = 1
            End If
        End If
    Next
End Sub

Страницы: 1
Наверх