VPF::Старые Данные в ячейке + новые - Форум программистов

morfiuz

Дата 11.2.2008, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 11.2.2008

Репутация: нет
Всего: нет

Привет всем, честно говоря ранее не занимался программированием в EXcEL помогите осмыслить как создать ячейку такую, что бы старые данные которые там были складывались с новыми (цифры имеется ввиду). Например в ячейке хранится цифра 50, я ее стираю и пишу 20, а там должно появиться 70. Можно ли это сделать? Заранее спасибо большое

bilya

Дата 12.2.2008, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Именно так и нужно - щелкаем на ячейке, в которой значение 50; пишем новое значение 20 и когда нажимаем Enter, то там появляется 70?
Если да, то делайте на событии Worksheet_SelectionChange

Ved

Дата 25.2.2008, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1

morfiuz,
Держи на одну ячейку!

Код


Private vData   
    
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)   
    If Not Intersect(Target, [A1]) Is Nothing Then   
       If IsNumeric([A1]) Then vData = [A1]   
    End If   
End Sub   
    
Private Sub Worksheet_Change(ByVal Target As Excel.Range)   
    If Not Intersect(Target, [A1]) Is Nothing Then   
       Application.EnableEvents = False   
       If IsNumeric([A1]) Then [A1] = [A1] + vData   
       Application.EnableEvents = True   
    End If   
End Sub

--------------------

Я не волшебник, я только учусь! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »