Нажал -> скопировал

= Мир MS Excel/Нажал -> скопировал - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Нажал -> скопировал

Дата: Пятница, 22.11.2013, 14:20 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 40

Репутация: 0 ±

Замечаний: 0% ±

2013

Можно ли как-то сделать, что бы при нажатии на ячейку в диапазоне "E2:E8" её значение копировалось в ячейку "B5"? Но что бы только в этом диапазоне.

Дата: Пятница, 22.11.2013, 14:44 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

В модуль листа:[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [e2:e8]) Is Nothing Then Exit Sub
[b5].Value = Target.Value
End Sub

[/vba]

skypro1111@gmail.com

Дата: Пятница, 22.11.2013, 15:01 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 40

Репутация: 0 ±

Замечаний: 0% ±

2013

SkyPro, огромное спасибо!