Связь числа в названии фигуры и другой фигуры

Старая форма входа

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

Связь числа в названии фигуры и другой фигуры (Макросы/Sub)

DimOzerov

Дата: Пятница, 17.05.2019, 09:37 | Сообщение № 1

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

Ранг: Участник

Сообщений: 68

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

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

Excel 2013

Добрый день.

На листе есть фигуры линии.
В их названии присутствуют числа.
Название линий примерно такое: "Линия1-Число(265)"
Также есть другие фигуры, чье название такое: "Лейбл (Линия1)"

Как эти числа вписать в соответствующие фигуры, которые имеют в своем названии - часть названия линий ?
Иными словами из "Линия1-Число(265)" будет извлечено число 265 и вписано в фигуру "Лейбл (Линия1)".

К сообщению приложен файл: 9811798.xls (38.5 Kb)

Ответить

RAN

Дата: Пятница, 17.05.2019, 16:49 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Sub Мяу()
    Dim Shp1 As Shape, Shp2 As Shape
    Dim N$, Cp$
    For Each Shp1 In ActiveSheet.Shapes
        If Shp1.Type = msoLine Then
            N = Split(Shp1.Name, "-", 2)(0)
            Cp = CStr(Val(Split(Shp1.Name, "(", 2)(1)))
            For Each Shp2 In ActiveSheet.Shapes
                If Shp2.Type <> msoLine Then
                    If InStr(Shp2.Name, N) > 0 Then
                        Shp2.DrawingObject.Caption = Cp
                     Exit For
                    End If
                End If
            Next
        End If
    Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

DimOzerov

Дата: Пятница, 17.05.2019, 20:10 | Сообщение № 3

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

Ранг: Участник

Сообщений: 68

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

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

Excel 2013

RAN, спасибо.
Заработало !

Ответить

Связь числа в названии фигуры и другой фигуры (Макросы/Sub)

Страница 1 из 1
1