Порядок соединения квадратиков в цепочке

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

Порядок соединения квадратиков в цепочке (Макросы/Sub)

ВасилисаЛукьянчикова

Дата: Пятница, 16.02.2018, 21:30 | Сообщение № 1

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

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

Сообщений: 64

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

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

Excel 2016

Доброго вечера, всем форумчанам.
Подскажите как решить задачу.

Суть ее вот в чем:
На листе экселя - находятся квадратики с различным текстом.
Эти квадратики соединены в цепочку - линиями.

Как макросом - вывести в таблицу B3:C12 - порядок соединения этих квадратиков начиная с квадрата в котором текст "1" ?

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

Ответить

Апострофф

Дата: Суббота, 17.02.2018, 01:15 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 468

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

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

Excel 1997

ВасилисаЛукьянчикова, получите список соединенных линиями "квадратиков".
[vba]

Код

Sub asd()
Dim ws As Worksheet, s As Shape, c As Range, r As Long
Set c = [a15:c30]
Set ws = ActiveSheet
For Each s In ws.Shapes
    If s.Connector = msoTrue Then
      r = r + 1
      c(r, 1) = s.ConnectorFormat.BeginConnectedShape.DrawingObject.Caption
      c(r, 2) = s.ConnectorFormat.EndConnectedShape.DrawingObject.Caption
    End If
Next
End Sub

[/vba]Остатки "хотелки" ни трудностей, ни интереса не представляют.

Ответить

ВасилисаЛукьянчикова

Дата: Суббота, 17.02.2018, 13:26 | Сообщение № 3

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

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

Сообщений: 64

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

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

Excel 2016

Апострофф, ясно

Ответить

Порядок соединения квадратиков в цепочке (Макросы/Sub)

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