Ввести значение в ячейку и в нейже получить сумму
Keeper80
Дата: Пятница, 09.06.2017, 12:28 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Здравствуйте вот возможен ли такой вариант? Суть такова: А1=150,B1=10,C1=A1+B1 Можно ли A1=150 B1(игнорировать) С1=ввожу значение B1 а эксел считает по формуле A1+B1 За ранее спасибо.
Здравствуйте вот возможен ли такой вариант? Суть такова: А1=150,B1=10,C1=A1+B1 Можно ли A1=150 B1(игнорировать) С1=ввожу значение B1 а эксел считает по формуле A1+B1 За ранее спасибо. Keeper80
Ответить
Сообщение Здравствуйте вот возможен ли такой вариант? Суть такова: А1=150,B1=10,C1=A1+B1 Можно ли A1=150 B1(игнорировать) С1=ввожу значение B1 а эксел считает по формуле A1+B1 За ранее спасибо. Автор - Keeper80 Дата добавления - 09.06.2017 в 12:28
vikttur
Дата: Пятница, 09.06.2017, 12:42 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Значение и формула в одной ячейке не уживаются. Только макросом: [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("C1"), Target) Is Nothing Then If Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False With Target .Value = .Value + Cells(.Row, 1).Value End With Application.EnableEvents = True End If End Sub
[/vba] Код разместить в модуле листа.
Значение и формула в одной ячейке не уживаются. Только макросом: [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("C1"), Target) Is Nothing Then If Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False With Target .Value = .Value + Cells(.Row, 1).Value End With Application.EnableEvents = True End If End Sub
[/vba] Код разместить в модуле листа. vikttur
Ответить
Сообщение Значение и формула в одной ячейке не уживаются. Только макросом: [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("C1"), Target) Is Nothing Then If Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False With Target .Value = .Value + Cells(.Row, 1).Value End With Application.EnableEvents = True End If End Sub
[/vba] Код разместить в модуле листа. Автор - vikttur Дата добавления - 09.06.2017 в 12:42
Keeper80
Дата: Пятница, 09.06.2017, 13:08 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Дико извиняюсь расскажите где именно разместить,т.е. где находиться этот "модуль листа"?
Дико извиняюсь расскажите где именно разместить,т.е. где находиться этот "модуль листа"? Keeper80
Ответить
Сообщение Дико извиняюсь расскажите где именно разместить,т.е. где находиться этот "модуль листа"? Автор - Keeper80 Дата добавления - 09.06.2017 в 13:08
Pelena
Дата: Пятница, 09.06.2017, 13:15 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Alt+F11 и в левой части окна дважды кликнуть по названию листа. Подробнее можно почитать здесь
Alt+F11 и в левой части окна дважды кликнуть по названию листа. Подробнее можно почитать здесь Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Alt+F11 и в левой части окна дважды кликнуть по названию листа. Подробнее можно почитать здесь Автор - Pelena Дата добавления - 09.06.2017 в 13:15
Keeper80
Дата: Пятница, 09.06.2017, 13:35 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Эмм... а можно по строкам что ли рассказать что каждая строчка означает а то ошибку в первой строке выдает!(((
Эмм... а можно по строкам что ли рассказать что каждая строчка означает а то ошибку в первой строке выдает!((( Keeper80
Ответить
Сообщение Эмм... а можно по строкам что ли рассказать что каждая строчка означает а то ошибку в первой строке выдает!((( Автор - Keeper80 Дата добавления - 09.06.2017 в 13:35
Keeper80
Дата: Пятница, 09.06.2017, 17:09 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Блин,модуль заработал,НО появились вопросы 1.Я так понимаю нужно редактировать нужна не абсолютная а относительная ссылка 2. With Target .Value = .Value + Cells(.Row, 1).Value-если тут он считает тогда как его заставить умножать? 2.1 и как сделать что бы считал по формуле A1*B1/100? За ранее спасибо З.Ы. Баха прочел,но ответов так и не нашел,буду почитать еще конечно повнимательнее может что то упустил!
Блин,модуль заработал,НО появились вопросы 1.Я так понимаю нужно редактировать нужна не абсолютная а относительная ссылка 2. With Target .Value = .Value + Cells(.Row, 1).Value-если тут он считает тогда как его заставить умножать? 2.1 и как сделать что бы считал по формуле A1*B1/100? За ранее спасибо З.Ы. Баха прочел,но ответов так и не нашел,буду почитать еще конечно повнимательнее может что то упустил! Keeper80
Ответить
Сообщение Блин,модуль заработал,НО появились вопросы 1.Я так понимаю нужно редактировать нужна не абсолютная а относительная ссылка 2. With Target .Value = .Value + Cells(.Row, 1).Value-если тут он считает тогда как его заставить умножать? 2.1 и как сделать что бы считал по формуле A1*B1/100? За ранее спасибо З.Ы. Баха прочел,но ответов так и не нашел,буду почитать еще конечно повнимательнее может что то упустил! Автор - Keeper80 Дата добавления - 09.06.2017 в 17:09
Udik
Дата: Пятница, 09.06.2017, 17:23 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Сейчас макрос будет работать только в С1, Вам именно это нужно?
Сейчас макрос будет работать только в С1, Вам именно это нужно? Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Сейчас макрос будет работать только в С1, Вам именно это нужно? Автор - Udik Дата добавления - 09.06.2017 в 17:23
Keeper80
Дата: Пятница, 09.06.2017, 17:28 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
нет, надо что бы работал в дипазоне "С" если так можно сказать или точнее в столбце "С"
нет, надо что бы работал в дипазоне "С" если так можно сказать или точнее в столбце "С" Keeper80
Ответить
Сообщение нет, надо что бы работал в дипазоне "С" если так можно сказать или точнее в столбце "С" Автор - Keeper80 Дата добавления - 09.06.2017 в 17:28
Udik
Дата: Пятница, 09.06.2017, 17:36 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Тогда вместо [vba]Код
If Not Application.Intersect(Range("C1"), Target) Is Nothing Then
[/vba] что-то такое [vba]Код
If (Target.Count=1) and (Target.Column=3) Then
[/vba]
Тогда вместо [vba]Код
If Not Application.Intersect(Range("C1"), Target) Is Nothing Then
[/vba] что-то такое [vba]Код
If (Target.Count=1) and (Target.Column=3) Then
[/vba] Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Тогда вместо [vba]Код
If Not Application.Intersect(Range("C1"), Target) Is Nothing Then
[/vba] что-то такое [vba]Код
If (Target.Count=1) and (Target.Column=3) Then
[/vba] Автор - Udik Дата добавления - 09.06.2017 в 17:36
Keeper80
Дата: Пятница, 09.06.2017, 17:41 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
что то не так, ваше сообщение с указанием что изменено- пустое либо ни чего не отображает!(((
что то не так, ваше сообщение с указанием что изменено- пустое либо ни чего не отображает!((( Keeper80
Ответить
Сообщение что то не так, ваше сообщение с указанием что изменено- пустое либо ни чего не отображает!((( Автор - Keeper80 Дата добавления - 09.06.2017 в 17:41
Udik
Дата: Пятница, 09.06.2017, 17:58 |
Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Ну не знаю что Вы умудрились испортить У меня всё работает. В данном примере получаем сумму А и С
Ну не знаю что Вы умудрились испортить У меня всё работает. В данном примере получаем сумму А и С Udik
К сообщению приложен файл:
0t.xlsm
(13.8 Kb)
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Ну не знаю что Вы умудрились испортить У меня всё работает. В данном примере получаем сумму А и С Автор - Udik Дата добавления - 09.06.2017 в 17:58
vikttur
Дата: Пятница, 09.06.2017, 23:22 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Для всего столбца С изменить вторую строчку на [vba]Код
If Not Application.Intersect(Range("C:C"), Target) Is Nothing Then
[/vba] [offtop]За какое-такое ранее Вы постоянно пишете "Спасибо"?[/offtop]
Для всего столбца С изменить вторую строчку на [vba]Код
If Not Application.Intersect(Range("C:C"), Target) Is Nothing Then
[/vba] [offtop]За какое-такое ранее Вы постоянно пишете "Спасибо"?[/offtop] vikttur
Сообщение отредактировал vikttur - Пятница, 09.06.2017, 23:24
Ответить
Сообщение Для всего столбца С изменить вторую строчку на [vba]Код
If Not Application.Intersect(Range("C:C"), Target) Is Nothing Then
[/vba] [offtop]За какое-такое ранее Вы постоянно пишете "Спасибо"?[/offtop] Автор - vikttur Дата добавления - 09.06.2017 в 23:22
Keeper80
Дата: Вторник, 13.06.2017, 10:08 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
With Target .Value = .Value + Cells(.Row, 1).Value так понимаю именно это строчка отвечает за расчет? а если мне нужно не сложение а умножение или формула, например(A1*B1/100), в общем хотелось бы расшифровки,прочитав Баха по отдельности команды худо бедно понял,но вот КАК они в куче работают не понимаю!(((
With Target .Value = .Value + Cells(.Row, 1).Value так понимаю именно это строчка отвечает за расчет? а если мне нужно не сложение а умножение или формула, например(A1*B1/100), в общем хотелось бы расшифровки,прочитав Баха по отдельности команды худо бедно понял,но вот КАК они в куче работают не понимаю!((( Keeper80
Ответить
Сообщение With Target .Value = .Value + Cells(.Row, 1).Value так понимаю именно это строчка отвечает за расчет? а если мне нужно не сложение а умножение или формула, например(A1*B1/100), в общем хотелось бы расшифровки,прочитав Баха по отдельности команды худо бедно понял,но вот КАК они в куче работают не понимаю!((( Автор - Keeper80 Дата добавления - 13.06.2017 в 10:08