Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Связь числа в названии фигуры и другой фигуры - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связь числа в названии фигуры и другой фигуры (Макросы/Sub)
Связь числа в названии фигуры и другой фигуры
DimOzerov Дата: Пятница, 17.05.2019, 09:37 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.

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

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

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

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

Автор - DimOzerov
Дата добавления - 17.05.2019 в 09:37
RAN Дата: Пятница, 17.05.2019, 16:49 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5055
Репутация: 1005 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[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]

Автор - RAN
Дата добавления - 17.05.2019 в 16:49
DimOzerov Дата: Пятница, 17.05.2019, 20:10 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, спасибо.
Заработало !
 
Ответить
СообщениеRAN, спасибо.
Заработало !

Автор - DimOzerov
Дата добавления - 17.05.2019 в 20:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связь числа в названии фигуры и другой фигуры (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!