Как зафиксировать значение ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как зафиксировать значение ячейки (Формулы/Formulas)

Nik12

Дата: Понедельник, 25.05.2015, 14:43 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый день!
В файле прикреплен пример, что надо:
В ячейке А1 храниться какая то цифра, которая меняется
В ячейке С1 условие, что если в А1 цифра 1, то выводит "правильно", в противном случае "не правильно"
Надо сделать так, что если хоть один раз в ячейке А1 была записана цифра 1, то значение в ячейке С1 остановилось на "правильно" и больше не менялось, как бы не менялось значение ячейки А1.
Как это сделать??

К сообщению приложен файл: 4857358.xlsx (8.7 Kb)

Ответить

Samaretz

Дата: Понедельник, 25.05.2015, 14:51 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 223

Репутация: 63 ±

Замечаний: 0% ±

Excel 2010; 2013; 2016

Только макросом.

К сообщению приложен файл: 4857358.xlsm (14.7 Kb)

Ответить

Nik12

Дата: Понедельник, 25.05.2015, 15:14 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

Ответить

Manyasha

Дата: Понедельник, 25.05.2015, 15:31 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Nik12, здравствуйте. Макрос в модуле листа (срабатывает при событии Change).
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets(1).Cells(1, 1).Text = 1 Then
     Sheets(1).Cells(1, 3).Formula = "правильно"
     Application.EnableEvents = False
Else
     Sheets(1).Cells(1, 3).Formula = "не правильно"
End If
End Sub

[/vba]
После установки в ячейку значения "правильно", отслеживание событий отключается, для того, чтобы его опять включить, выполните макрос:[vba]

Код

Sub Enable_events()
Application.EnableEvents = True
End Sub

[/vba](можно повесить на кнопку)

К сообщению приложен файл: 4857358_2.xlsm (15.1 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Samaretz

Дата: Понедельник, 25.05.2015, 15:33 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 223

Репутация: 63 ±

Замечаний: 0% ±

Excel 2010; 2013; 2016

Nik12, откройте файлик в моем предыдущем сообщении, когда Excel скажет, что выполнение макросов отключено (в верхней части книги под лентой всплывет желтая строка), нажимаете кнопку "разрешить" и тестируете файлик - там уже все есть :-)

Ответить

Nik12

Дата: Понедельник, 25.05.2015, 15:34 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Спасибо большое!

Ответить

МВТ

Дата: Понедельник, 25.05.2015, 18:59 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Manyasha, возможно лучше сделать так, чтобы не отключать - включать события?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
if Sheets(1).Cells(1, 3).Formula = "правильно" then Exit Sub
If Sheets(1).Cells(1, 1).Text = 1 Then Sheets(1).Cells(1, 3).Formula = "правильно" _
Else Sheets(1).Cells(1, 3).Formula = "не правильно"
End Sub

[/vba]