Суть такая допустим есть ячейка А1 и В1 При вводе числа в ячейку В1 оно суммируется к числу А1, при этом ячейка В1 очищается, до следующего ввода числа. Примерно как калькулятор должна работать ячейка А1. Кароч мне надо после ввода числа в ячейку В1 допустим 31 и нажатия enter, это число суммировалось к А1, а сама ячейка В1 после суммы, очищалась
Суть такая допустим есть ячейка А1 и В1 При вводе числа в ячейку В1 оно суммируется к числу А1, при этом ячейка В1 очищается, до следующего ввода числа. Примерно как калькулятор должна работать ячейка А1. Кароч мне надо после ввода числа в ячейку В1 допустим 31 и нажатия enter, это число суммировалось к А1, а сама ячейка В1 после суммы, очищаласьDr_Perry_Coke
Сообщение отредактировал Dr_Perry_Coke - Вторник, 17.01.2017, 00:24
1. Тему возможно не совсем отражает сути. да простят модераторы меня за ответ. 2. Excel может почти все, если он что-то всеж не может, значит подождите следующей версии :-)
Dr_Perry_Coke,
1. Тему возможно не совсем отражает сути. да простят модераторы меня за ответ. 2. Excel может почти все, если он что-то всеж не может, значит подождите следующей версии :-)bmv98rus
Pelena, [offtop]20 лет с пользователями и поддержкой маюсь, научился их мысли читать, а ведь не всегда отразить мысль кратко удастся, особенно новичкам. Pardon me. Надеялcя, что сменит тему к моменту ответа.
P.S. В ответ на спасибо попросил изменить тему . Результат отрицательный, помощь получена, трава не расти. Исправлюсь.
Pelena, [offtop]20 лет с пользователями и поддержкой маюсь, научился их мысли читать, а ведь не всегда отразить мысль кратко удастся, особенно новичкам. Pardon me. Надеялcя, что сменит тему к моменту ответа.
P.S. В ответ на спасибо попросил изменить тему . Результат отрицательный, помощь получена, трава не расти. Исправлюсь.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Вторник, 17.01.2017, 00:12
Pelena, Доброго времени суток, Вы уж простите меня за не корректное поведение на этом форуме. Тема Excel для меня нова, и мне сложно как-то правильно выразить свою мысль, мало знаком с терминологией так скажем. Если Вас не затруднит помочь мне дать более корректное имя данной теме, помогите пожалуйста. Спасибо за внимание.
Pelena, Доброго времени суток, Вы уж простите меня за не корректное поведение на этом форуме. Тема Excel для меня нова, и мне сложно как-то правильно выразить свою мысль, мало знаком с терминологией так скажем. Если Вас не затруднит помочь мне дать более корректное имя данной теме, помогите пожалуйста. Спасибо за внимание.Dr_Perry_Coke
Dr_Perry_Coke, Да, сейчас нормально Сообщения 8 и 9 не понял вообще. Соббщение 10 - в отдельную тему. Прочитайте Правила форума
Поскольку с Excel, как Вы пишете, пока не очень - код я специально написал в развернутом виде и прокомментировал. Его нужно положить в модуль листа - правой мышью на ярлычок листа - Исходный текст [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then 'если пересечение изменяемого диапазона и В1 не пусто If IsNumeric(Range("B1")) Then 'если в В1 число Application.ScreenUpdating = 0 'отключаем обновление экрана Application.EnableEvents = 0 'отключаем реакцию на события Range("A1") = Range("A1") + Range("B1") 'А1 равно тому, что было в А1 плюс В1 Range("B1").ClearContents 'стираем В1 Range("B1").Select 'выделяем В1 для нового ввода Application.EnableEvents = 1 'включаем реакцию на события Application.ScreenUpdating = 1 'включаем обновление экрана End If End If End Sub
[/vba]
Файл перевложил. Я его по-моему сначала сюда кинул, а потом изменения там кое-какие сделал
Dr_Perry_Coke, Да, сейчас нормально Сообщения 8 и 9 не понял вообще. Соббщение 10 - в отдельную тему. Прочитайте Правила форума
Поскольку с Excel, как Вы пишете, пока не очень - код я специально написал в развернутом виде и прокомментировал. Его нужно положить в модуль листа - правой мышью на ярлычок листа - Исходный текст [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then 'если пересечение изменяемого диапазона и В1 не пусто If IsNumeric(Range("B1")) Then 'если в В1 число Application.ScreenUpdating = 0 'отключаем обновление экрана Application.EnableEvents = 0 'отключаем реакцию на события Range("A1") = Range("A1") + Range("B1") 'А1 равно тому, что было в А1 плюс В1 Range("B1").ClearContents 'стираем В1 Range("B1").Select 'выделяем В1 для нового ввода Application.EnableEvents = 1 'включаем реакцию на события Application.ScreenUpdating = 1 'включаем обновление экрана End If End If End Sub
[/vba]
Файл перевложил. Я его по-моему сначала сюда кинул, а потом изменения там кое-какие сделал_Boroda_