Всем Доброго дня! Большая просьба помочь с вопросом: Как сделать чтобы при обнулении ячейки старое её значение суммировалось со значением в другой ячейке? Заранее всем спасибо. (очень не силён в Excel)
Всем Доброго дня! Большая просьба помочь с вопросом: Как сделать чтобы при обнулении ячейки старое её значение суммировалось со значением в другой ячейке? Заранее всем спасибо. (очень не силён в Excel)PIPkin_s
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count = 1 And Target.Address(0, 0) = "C4" Then Previous_Value = [C4] End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 And Target.Address(0, 0) = "C4" Then [F4] = [F4] + Previous_Value End Sub
[/vba]
Код в модуле листа[vba]
Код
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count = 1 And Target.Address(0, 0) = "C4" Then Previous_Value = [C4] End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 And Target.Address(0, 0) = "C4" Then [F4] = [F4] + Previous_Value End Sub
AlexM, Спасибо! Возможно я не совсем полностью сформулировал вопрос, а если несколько ячеек обнуляются в разном порядке, а их старые значения заносятся в одну ячейку? (из ячеек колонки C в колонку F) Заранее спасибо.
AlexM, Спасибо! Возможно я не совсем полностью сформулировал вопрос, а если несколько ячеек обнуляются в разном порядке, а их старые значения заносятся в одну ячейку? (из ячеек колонки C в колонку F) Заранее спасибо.PIPkin_s
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then Previous_Value = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then [F4] = [F4] + Previous_Value End Sub
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then Previous_Value = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then [F4] = [F4] + Previous_Value End Sub
Пробую добавить ещё одну группу обнуляемых ячеек и одну суммарную - не получается (из ячеек колонки D в ячейку G)
[vba]
Код
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then Previous_Value = Target.Value If Not Intersect(Range("D8:D10"), Target) Is Nothing Then Previous_Value = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then [F4] = [F4] + Previous_Value If Not Intersect(Range("D8:D10"), Target) Is Nothing Then [G8] = [G8] + Previous_Value End Sub
[/vba]
Где моя ошибка? подскажите... Заранее спасибо.
Большое спасибо!
Пробую добавить ещё одну группу обнуляемых ячеек и одну суммарную - не получается (из ячеек колонки D в ячейку G)
[vba]
Код
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then Previous_Value = Target.Value If Not Intersect(Range("D8:D10"), Target) Is Nothing Then Previous_Value = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then [F4] = [F4] + Previous_Value If Not Intersect(Range("D8:D10"), Target) Is Nothing Then [G8] = [G8] + Previous_Value End Sub
[/vba]
Где моя ошибка? подскажите... Заранее спасибо.PIPkin_s
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6,D8:D10"), Target) Is Nothing Then Previous_Value = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then [F4] = [F4] + Previous_Value If Not Intersect(Range("D8:D10"), Target) Is Nothing Then [G8] = [G8] + Previous_Value End Sub
[/vba]
Нет ошибок, но можно короче[vba]
Код
Private Previous_Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6,D8:D10"), Target) Is Nothing Then Previous_Value = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("C4:C6"), Target) Is Nothing Then [F4] = [F4] + Previous_Value If Not Intersect(Range("D8:D10"), Target) Is Nothing Then [G8] = [G8] + Previous_Value End Sub
Если можно разъясните мне для этой же таблицы ещё один момент: мне нужно, чтобы в одну ячейку заносилось значение, а из другой это значение вычиталось. Заранее спасибо...
Спасибо за помощь!!!
Если можно разъясните мне для этой же таблицы ещё один момент: мне нужно, чтобы в одну ячейку заносилось значение, а из другой это значение вычиталось. Заранее спасибо...PIPkin_s
Доброго дня. Не стал создавать новую тему ввиду схожести вопроса. Но изменились условия) сумма предыдущих значений должна быть в соседней ячейке. Макрос должен распространяться на весь столбец.то есть во втором столбце выводится сумма ранее вводимых значений в предыдущем столбце по строкам
Доброго дня. Не стал создавать новую тему ввиду схожести вопроса. Но изменились условия) сумма предыдущих значений должна быть в соседней ячейке. Макрос должен распространяться на весь столбец.то есть во втором столбце выводится сумма ранее вводимых значений в предыдущем столбце по строкамGigo
AlexM, огромная просьба!!! Помогите прописать код по обнулению, и переносу значений. J5 при значении "0", переносить значение в К5. По этой строке получилось, а дальше затык!(
AlexM, огромная просьба!!! Помогите прописать код по обнулению, и переносу значений. J5 при значении "0", переносить значение в К5. По этой строке получилось, а дальше затык!(maximus878908
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
