как без вставки кнопки и не используя гиперссылку получить

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
kazan
Сообщения: 1
Зарегистрирован: 21 окт 2004, 11:47

21 окт 2004, 12:09

как без вставки кнопки и не используя гиперссылку получить такое же действие, т.е выполнялась какая нибудь команда, в моем случае это поле скопировалось на другой лист в определенное поле. Возможно ли это? Как можно исхитриться? :?:
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

25 окт 2004, 00:18

в моем случае это поле скопировалось на другой лист в определенное поле.
Обработать именно копирование ячеек (я так понял, что о кпировании содержимого ячеек идет речь) неудастся. Можно только изменение содержимого ячейки.

См. событие Change рабочего листа. Аргумент Target - это только что измененный диапазон.
Аватара пользователя
Ser Artur
Сообщения: 82
Зарегистрирован: 24 май 2005, 16:32

27 май 2005, 16:09

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg
If Target.Address = "$A$1" Then
MsgBox "Holliday" & WeekdayName(Weekday(Now, vbUseSystem), , vbUseSystem)
End If
End Sub
Ser Artur
Аватара пользователя
Ser Artur
Сообщения: 82
Зарегистрирован: 24 май 2005, 16:32

27 май 2005, 16:13

Вставь код в VBE>Sheet1 и изумляйся
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg
If Target.Address = "$A$1" Then
Range("A2") = Range("A3")*Range("A4")/Range("A5")
End If
End Sub

Ser Artur
Ser Artur
Ответить