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

Вход

Регистрация

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

 

= Мир MS Excel/Разница между текущим значением и вводимым - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разница между текущим значением и вводимым (Формулы/Formulas)
Разница между текущим значением и вводимым
serega26 Дата: Воскресенье, 12.09.2021, 09:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010
Здравствуйте, необходимо автоматизировать процесс, в ячейке А2 есть наработка агрегата измеряема в часах и минутах (10:20), которое со временем поменяется, станет к примеру (11:30), это значение вводим в А2 и необходимо что бы автоматически посчиталась разница (11:30-10:20=1:10) и прибавилась к значению B2 и С2
К сообщению приложен файл: _Microsoft_Exce.xlsx (9.5 Kb)
 
Ответить
СообщениеЗдравствуйте, необходимо автоматизировать процесс, в ячейке А2 есть наработка агрегата измеряема в часах и минутах (10:20), которое со временем поменяется, станет к примеру (11:30), это значение вводим в А2 и необходимо что бы автоматически посчиталась разница (11:30-10:20=1:10) и прибавилась к значению B2 и С2

Автор - serega26
Дата добавления - 12.09.2021 в 09:34
serega26 Дата: Воскресенье, 12.09.2021, 11:51 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010
[vba]
Код
Private Previous_Value
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Address(0, 0) = "A2" Then Previous_Value = [A2]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Address(0, 0) = "A2" Then [D2] = Previous_Value
End Sub
[/vba]Нашел такой код, но он только запоминает предыдущее значение и копирует его в D2, вставляем потом формулу в E2=A2-D2 получили разницу, как теперь ее добавить к B2 и С2? можно ли обойтись без этой доп формулы? можно ли вообще сделать это без макроса? если нет, то как быть с тем когда в ячейку ввел неправельное значение и надо его исправить
К сообщению приложен файл: _Microsoft_Exce.xlsm (15.8 Kb)


Сообщение отредактировал Serge_007 - Понедельник, 13.09.2021, 09:50
 
Ответить
Сообщение[vba]
Код
Private Previous_Value
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Address(0, 0) = "A2" Then Previous_Value = [A2]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Address(0, 0) = "A2" Then [D2] = Previous_Value
End Sub
[/vba]Нашел такой код, но он только запоминает предыдущее значение и копирует его в D2, вставляем потом формулу в E2=A2-D2 получили разницу, как теперь ее добавить к B2 и С2? можно ли обойтись без этой доп формулы? можно ли вообще сделать это без макроса? если нет, то как быть с тем когда в ячейку ввел неправельное значение и надо его исправить

Автор - serega26
Дата добавления - 12.09.2021 в 11:51
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разница между текущим значением и вводимым (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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