[Капитан]

Опишу суть проблемы: допустим у меня есть две ячейки, в одну из которых я ввожу даные, скажем от 2 до 4. В другой ячейке я хочу проверять следующие условие: если значение в 1-й ячейке меньше 4, то выводить автоматически какой-либо текст( например n<4), а если значение равно 4 то вводить туда любое значение вручную.
Возмжно ли это сделать не прибегая к написанию макросов? Если да то подскажите как это сделать.
p.s. Незнал в какую ветку написать, так что прошу прощения если не туда.

[KronSerg]

Эт как? Нуж написать формулу штатными средствами чтобы она не затиралась при вводе в её ячейку значения вручную?

Как-то так
Function myecli(ucl as boolean;text as string) as string
if ucl then
myecli=text
else
myecli=inputbox('tytle')
end if
end funcntion

[Капитан]

2 bahil
Скажите пожалуйста как применить то, что вы написали...дело в том, что до сего дня в эксель использовал так сказать не на 100 проц)

[KronSerg]

Капитан, это макрос, нужно зайти в редактор макросов, создать модуль и вписать туда код, правда из №3 не заработает, там ошибки, после исправления:

Function myecli(ucl As Boolean, text As String) As String If ucl Then myecli = text Else myecli = InputBox("tytle") End If End Function

Но растягивать эту функцию по ячейкам не рекомендую, заколебаешься значения вводить.
Может ты хотел просто =ЕСЛИ(B14<4;"n<4";"")

[Капитан]

Может ты хотел просто =ЕСЛИ(B14<4;"n<4";"")[/quote]
Так я делал. Дело в том, что такая функция не работае в обратную сторону. Т.е. я забил значение 4 в одну ячейку значит в другую я ввожу данные, если я забил в первую ячейку скажем 3 то во второй ячейке появлялась надпись N<4, если же я опять забиваю в первой 4, то снова могу вводить данные.
Про макросы: а как мне назначить макрос определенной ячейке? Макрос выполняется по нажатию на кнопку?

Сообщение от KronSerg Капитан, это макрос, нужно зайти в редактор макросов, создать модуль и вписать туда код, правда из №3 не заработает, там ошибки, после исправления:

Нет под рукой екселя, поэтому проверить не могу.
После того, как функция написана, она появится в разделе "Определенные пользователем" и вставляется в ячейку как обычная функция.
Порядок тавкой сервис-макрос-редактор VBA.
в редакторе: Insert-modul. Вбиваем текст, закрываем редактор. Полученная функция работает как и любая стандартная. При копировании ссылки автоматически изменяются.
Можно попробовать вставить inputbox в Если.

[Капитан]

Если нетрудно, можете мне последовательно написать как сделать подобную функцию?
Я делаю так: СЕРВИС - МАКРОС - РЕДАКТОР ВИЗУАл БЕЙСК. Там открывается окно, в окно копирую то, что вы мне написали. Далее сохряняю. Выделяю ячейку и вставляю туда эту функцию. Дальше каковы мои действия?

[РастОК]

Да зачем вы мучаетесь. Выкрутитесь обычными методами. Если функция не удовлетворяет функции (меньше 4-х) то не вводите текст прям в данную ячейку, а назначьте в этом случае значение присваивающее этой ячейки равным значению другой ячейки в которой и пишите нужный текст.

[Олег (jr.)]

Сообщение от Капитан Опишу суть проблемы: допустим у меня есть две ячейки, в одну из которых я ввожу даные, скажем от 2 до 4. В другой ячейке я хочу проверять следующие условие: если значение в 1-й ячейке меньше 4, то выводить автоматически какой-либо текст( например n<4), а если значение равно 4 то вводить туда любое значение вручную. Возмжно ли это сделать не прибегая к написанию макросов? Если да то подскажите как это сделать. p.s. Незнал в какую ветку написать, так что прошу прощения если не туда.

Не надо нимкаких функций, чего вы тут замутили
Открой книгу, если запуск макросов отключен включи в параметрах
кнопку "Включить это содержимое"
Alt+F11 откроется редактор
Двойной клик в Project Explorer на иконке нужного листа и вставь
в открывшийся модуль этого листа код:

Код:

[Выделить все]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then
        Select Case Target.Value
        Case Is < 4
          Range("B1").Value = "<4"

        Case Is >= 4

            Range("B1").Value = InputBox(vbCrLf & "Enter value:", "Worksheet_Change Event", "Blah-blah")
        End Select
    End If

End Sub

Будет автоматом обрабатываться событие изменениия
данной ячейки, для простоты примера А1

[Капитан]

Спасибо, в ближайшее время попробую сделать так как вы говорите.

[Олег (jr.)]

Сообщение от Капитан Спасибо, в ближайшее время попробую сделать так как вы говорите.

При последующих открываниях книги не забудь включать макросы как описано выше иначе не будет работать

[Капитан]

Все получилось, но возник вопрос...возможно ли делать все это без всплывающего окна? т.е. вводить значение непосредственно в ячейку если значение равно 4.