Архив форумов ЦИТФорума

[KorkAnt]

Всем привет!

Помогите, пожалуйста, решить следующую задачу в Excel:

На листе две ячейки и две автофигуры (надписи). В первую ячейку введен какой-то текст, во вторую другой. Необходимо, чтобы при щелчке мышью по тексту в первой ячейке выделялась (активизировалась, фокусировалась) 1-ая автофигура, а при щелчке мышью по второй - 2-ая автофигура.

Заранее спасибо!

[Mytilus Galloprovincialis]

Итак... Возьмем две ячейки. Пусть это будет А1 и А2. Возьмем две автофигуры. Звать их будут "Freeform 1" и "Freeform 2". Создаем событие Worksheet_SelectionChange. В нем узнаем, какая ячейка выделена А1, А2 или какая-нить другая. В последнем случае выходим из обработчика события. Если А1, то ActiveSheet.Shapes("Freeform 1").Select. Если А2 - ActiveSheet.Shapes("Freeform 2").Select.

Удачи!

[KorkAnt]

Спасибо, работает!
На всякий случай приведу текст проги, вдруг кому-нибудь пригодится.
+ Переключение между листами;
+ Выделяемый объкт располагается в центре окна.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim fgr As String
fgr = ActiveCell.Value

Select Case fgr
Case "Первый"
Sheets("List1").Select
ActiveSheet.Shapes("Freeform 1").TopLeftCell.Activate
ActiveSheet.Shapes("Freeform 1").Select
Case "Второй"
Sheets("List2").Select
ActiveSheet.Shapes("Freeform 2").TopLeftCell.Activate
ActiveSheet.Shapes("Freeform 2").Select
Case Else
End Select
End Sub