Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Зафиксировать значения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зафиксировать значения (Формулы/Formulas)
Зафиксировать значения
Yarikon Дата: Пятница, 28.10.2016, 21:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, у меня есть поле Ставка ( I14 ) Вся колонка E берет значения из этого поля. Проблема вот в чем : я сделал несколько ставок со значением 250, они записались в историю и отразились на балансе, а теперь я к примеру хочу ставить по 300, но те прошлые ставки ( которые были по 250 ) тоже изменят свое значение, как сделать так чтобы предыдущие ставки остались фиксированы ( по 250 ), а все последующие брали значение из поля ставка ( I14 ), в котором я напишу 300 ?
К сообщению приложен файл: 0941749.xlsx(36Kb)
 
Ответить
СообщениеЗдравствуйте, у меня есть поле Ставка ( I14 ) Вся колонка E берет значения из этого поля. Проблема вот в чем : я сделал несколько ставок со значением 250, они записались в историю и отразились на балансе, а теперь я к примеру хочу ставить по 300, но те прошлые ставки ( которые были по 250 ) тоже изменят свое значение, как сделать так чтобы предыдущие ставки остались фиксированы ( по 250 ), а все последующие брали значение из поля ставка ( I14 ), в котором я напишу 300 ?

Автор - Yarikon
Дата добавления - 28.10.2016 в 21:58
Nic70y Дата: Пятница, 28.10.2016, 22:07 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3471
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
Так что ли?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d2:d200")) Is Nothing Then
    Target.Offset(0, 1) = [i14]
End If
End Sub
[/vba]

или так
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d2:d200")) Is Nothing Then
    If Target <> "" And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = [i14]
End If
End Sub
[/vba]
К сообщению приложен файл: 0941749.xlsm(35Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Пятница, 28.10.2016, 22:12
 
Ответить
СообщениеТак что ли?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d2:d200")) Is Nothing Then
    Target.Offset(0, 1) = [i14]
End If
End Sub
[/vba]

или так
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d2:d200")) Is Nothing Then
    If Target <> "" And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = [i14]
End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 28.10.2016 в 22:07
Yarikon Дата: Пятница, 28.10.2016, 22:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Так что ли?

Да, именно так. Благодарю за помощь
 
Ответить
Сообщение
Так что ли?

Да, именно так. Благодарю за помощь

Автор - Yarikon
Дата добавления - 28.10.2016 в 22:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зафиксировать значения (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!