Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Формула-невидимка
 
#1
18.02.2016 18:17:32
Добрый день всем!

Пример привести, к сожалению, не могу - запрещено копировать файлы. Поэтому объясню на словах. Есть файл xls, в котором в ячейке С1 есть простейшая формула, например, =А1-В1. Интерес в том, что эту формулу в ячейке С1 не видно до тех пор, пока не заполнены ячейки А1 и В1. Когда они заполняются, С1 заполняется автоматически и формула видна. Как так можно сделать, подскажите?
 
 
 
#2
18.02.2016 18:20:02
Условное форматирование, цвет шрифта - белый
 
 
 
#3
18.02.2016 18:22:27
нет-нет, не видно не только в ячейке, но и строке, где пишутся формулы (не знаю, как она называется правильно), вверху, короче.
 
 
 
#4
18.02.2016 18:23:12
А если отключить макросы - феномен повторится? :)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
18.02.2016 18:24:38
Макрос в код листа.
Код
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Union(Range("A1"), Range("B1"))) Is Nothing Then
        Application.EnableEvents = False
        If Len(Range("A1")) > 0 And Len(Range("B1")) > 0 Then
            Range("C1").Formula = "=A1-B1"
        Else
            Range("C1").Value = Empty
        End If
        Application.EnableEvents = True
    End If
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
18.02.2016 18:32:34
завтра проверю. тут еще один нюанс - если вручную исправить одно из последних значений в колонке С (забыл сказать, что эта история длится по всей колонке С), то формула уже не работает. Макрос?
 
 
 
#7
18.02.2016 18:34:02
Johnsonbl4, не понял. Перефразируйте.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#8
18.02.2016 18:41:14
перефразирую.

Заполняю ячейки А1 и В1. В ячейке С1 появляется формула  =А1-В1 и результат, естественно. Результат мне не нравится, и я руками вбиваю туда другую цифру. После этого заполняю ячейки А2 и В2, но ячейка С2 остается пустой. Если бы я не менял вручную значение С1, то формула бы срабатывала. Макрос?
 
 
 
#9
18.02.2016 18:47:35
Johnsonbl4, изначально надо задачу чётко формулировать. Решение согласно примера работает на трёх ячейках.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target(1), Union(Range("A:A"), Range("B:B"))) Is Nothing Then
        Application.EnableEvents = False
        With Target(1)
            If Len(Range("A" & .Row)) > 0 And Len(Range("B" & .Row)) > 0 Then
                Range("C" & .Row).Formula = "=A" & .Row & "-B" & .Row
            Else
                Range("C" & .Row).Value = Empty
            End If
        End With
        Application.EnableEvents = True
    End If
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#10
18.02.2016 18:48:40
ага, понял. спасибо
 
 
 
Страницы: 1
Читают тему
Наверх