Вопрос про правильное написание функции

[AndreichSB]

Господа ,подскажите плз как правильно записать логическую функцию.например Если D10=10 и C8=1 то F12 принимает значение 1 если один из аргументов ложный то ничего.

[zetrix]

=ЕСЛИ(И(D10=10;C8=1);1;) - формула для ячейки F12.

Надеюсь что помог.

[AndreichSB]

да спасибо ,работает.а как сделать чтобы F12 не принимала значение 1 а плюсовала к уже существующему своему значению?

[zetrix]

Хм... Здесь я затрудняюсь... Я попробовал сделать, но пишет типа циклическая ссылка. Т.е. Формула ячейки ссылается на значение этой же ячейки, а чтоб узнать значение, надол считать формулу и т.д.
Я думаю так делать нельзя.

[pashulka]

Можно, вот выдержка из офисной справки :

Циклические ссылки в формулах

Циклической ссылкой называется последовательность ссылок, при которой формула ссылается (через другие ссылки), сама на себя. Чтобы обработать такую формулу, необходимо вычислить значение каждой ячейки, включенной в замкнутую последовательность, используя результаты предыдущих итераций. По умолчанию, до тех пор пока не будут изменены соответствующие параметры, вычисления прекращаются после выполнения 100 итераций или после того, как изменение каждой величины не будет превышать 0,001 за одну итерацию.
Обработать формулы с циклическими ссылками в режиме обычных вычислений нельзя. Когда вводится формула с циклической ссылкой, появляется предупреждающее сообщение. Если циклическая последовательность ссылок образовалась случайно, нажмите кнопку OK. На экране появится панель инструментов Циклические ссылки и стрелки зависимостей, указывающие на каждую ячейку циклической ссылки. С помощью панели инструментов Циклические ссылки можно провести анализ циклической ссылки и изменить ссылки так, чтобы циклическая ссылка исчезла. Циклические ссылки часто используются в научных и инженерных расчетах.
При создании формул с циклическими ссылками может возникнуть необходимость изменить число итераций. Чтобы изменить число итераций, выберите команду Параметры в меню Сервис, а затем — вкладку Вычисления. Установите флажок Итерации. Далее введите максимальное число итераций и относительную погрешность вычислений.

Впрочем, иногда для решения аналогичных задач, можно воспользоваться и макросами, например, событием рабочего листа Worksheet_Change(ByVal Target As Excel.Range)

[AndreichSB]

а по понятней ?

[pashulka]

Вот здесь можно найти пример, где используются итерации. Если же Вы захотите использовать макросы, что вполне об'яснимо, то можно сделать следующее : кликните левой кнопкой мышки на ярлычке рабочего листа, в котором Вы планируете организовать счётчик и в появившемся контекстном меню выберите команду Исходный текст. Затем скопируйте любой из нижеопубликованных вариантов в модуль листа и сохраните изменения.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, [C8,D10]) Is Nothing Then
       If Not IsNumeric([C8]) Or Not IsNumeric([D10]) Then
          MsgBox "Ячейки C8 и D10 должны содержать только числовые значения", vbCritical, ""
          Exit Sub
       End If
       If [C8] = 1 And [D10] = 10 Then
          If [F12].Locked = True And Me.ProtectContents = True Then
             MsgBox "Ячейка F12 защищена от изменений", vbCritical, ""
             Exit Sub
          End If
          If IsNumeric([F12]) = True Then
             [F12] = [F12] + 1
          Else
             [F12] = 1
             'Если ячейка F12 содержит нечисловое значение, то счётчик "обнуляется"
          End If
       End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, [C8,D10]) Is Nothing Then
       If CStr([C8]) = "1" And CStr([D10]) = "10" Then
          If [F12].Locked = True And Me.ProtectContents = True Then
             MsgBox "Ячейка F12 защищена от изменений", vbCritical, ""
             Exit Sub
          End If
          If IsNumeric([F12]) = True Then
             [F12] = [F12] + 1
          Else
             [F12] = 1
             'Если ячейка F12 содержит нечисловое значение, то счётчик "обнуляется"
          End If
       End If
    End If
End Sub

На всякий случай прилагается пример, там наличествует три варианта использования вышеупомянутого события.