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

Вход

Регистрация

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

 

= Мир MS Excel/excel Как присвоить значение ячейке... - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
excel Как присвоить значение ячейке...
London Дата: Воскресенье, 06.04.2014, 22:00 | Сообщение № 1
Группа: Гости
Мне нужно ячейке A1 присвоить значение A1+B1
т.е мне нужно вписывать данные только в B1 , но чтоб А1 сохранялась, и увеличивалось на B1

если написать в ячейку =A1+B1 то работать не будет
может быть кто знает?
 
Ответить
СообщениеМне нужно ячейке A1 присвоить значение A1+B1
т.е мне нужно вписывать данные только в B1 , но чтоб А1 сохранялась, и увеличивалось на B1

если написать в ячейку =A1+B1 то работать не будет
может быть кто знает?

Автор - London
Дата добавления - 06.04.2014 в 22:00
Sniper Дата: Воскресенье, 06.04.2014, 22:23 | Сообщение № 2
Группа: Гости
В excel не знаю как это сделать, а в паскале легко
A1:=A1+B1
 
Ответить
СообщениеВ excel не знаю как это сделать, а в паскале легко
A1:=A1+B1

Автор - Sniper
Дата добавления - 06.04.2014 в 22:23
AlexM Дата: Воскресенье, 06.04.2014, 22:23 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Можно макросом.



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМожно макросом.

Автор - AlexM
Дата добавления - 06.04.2014 в 22:23
London Дата: Воскресенье, 06.04.2014, 22:25 | Сообщение № 4
Группа: Гости
А можно макрос? пожалуйста!
 
Ответить
СообщениеА можно макрос? пожалуйста!

Автор - London
Дата добавления - 06.04.2014 в 22:25
AlexM Дата: Воскресенье, 06.04.2014, 22:28 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then Range("A1") = Range("A1") + Target
End Sub
[/vba]



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then Range("A1") = Range("A1") + Target
End Sub
[/vba]

Автор - AlexM
Дата добавления - 06.04.2014 в 22:28
AlexM Дата: Воскресенье, 06.04.2014, 22:41 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
прочтите правила форума



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщениепрочтите правила форума

Автор - AlexM
Дата добавления - 06.04.2014 в 22:41
  • Страница 1 из 1
  • 1
Поиск:

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