делаю таблицу для автоматического составления таблицы истинности
расчет по данному уравнению ( меняя xyz ) получается определить автоматически, но для изменения действия ( оранжевая заливка ячейки ) не могу подобрать формулу
многие форумы пролистала, думаю ответ прост, но не нахожу его, кто сможет помочь с данной проблемой?
Здравствуйте, такая проблема
делаю таблицу для автоматического составления таблицы истинности
расчет по данному уравнению ( меняя xyz ) получается определить автоматически, но для изменения действия ( оранжевая заливка ячейки ) не могу подобрать формулу
многие форумы пролистала, думаю ответ прост, но не нахожу его, кто сможет помочь с данной проблемой?Шустик
Похоже автор хочет, чтобы формулы распознавали логические знаки и заменяли их на функции НЕ, И, ИЛИ и в придачу ещё вычисляли результат. Шустик, я угадала?
Если да, то можно попробовать заменить И на умножение, ИЛИ на сложение и потом как-то через ВЫЧИСЛИТЬ...
Похоже автор хочет, чтобы формулы распознавали логические знаки и заменяли их на функции НЕ, И, ИЛИ и в придачу ещё вычисляли результат. Шустик, я угадала?
Если да, то можно попробовать заменить И на умножение, ИЛИ на сложение и потом как-то через ВЫЧИСЛИТЬ...Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Похоже автор хочет, чтобы формулы распознавали логические знаки и заменяли их на функции НЕ, И, ИЛИ и в придачу ещё вычисляли результат. Шустик, я угадала?
Если да, то можно попробовать заменить И на умножение, ИЛИ на сложение и потом как-то через ВЫЧИСЛИТЬ...
Добрый день, все верно, да бывает, немного не правильно формулирую то, что необходимо.
Похоже автор хочет, чтобы формулы распознавали логические знаки и заменяли их на функции НЕ, И, ИЛИ и в придачу ещё вычисляли результат. Шустик, я угадала?
Если да, то можно попробовать заменить И на умножение, ИЛИ на сложение и потом как-то через ВЫЧИСЛИТЬ...
Добрый день, все верно, да бывает, немного не правильно формулирую то, что необходимо.
Function fx$(expr$, arg As Variant) With CreateObject("scriptcontrol") expr = Replace(Replace(Replace(expr, ChrW(923), "&&"), "V", "||"), "¬", "!") .Language = "JScript": fx = .Eval(Join(arg, ",") & "," & expr & "?1:0") End With End Function
Function fx$(expr$, arg As Variant) With CreateObject("scriptcontrol") expr = Replace(Replace(Replace(expr, ChrW(923), "&&"), "V", "||"), "¬", "!") .Language = "JScript": fx = .Eval(Join(arg, ",") & "," & expr & "?1:0") End With End Function