Изменение параметров линий - по определенным критериям

@lixar21 · Регистрация: 02.01.2017

Студворк — интернет-сервис помощи студентам

Добрый день, гуру экселя. Помогите решить проблему.

В определенном диапазоне листа B11:L31 находится множество разноцветных линий.
В ячейку N5 - вписано название первой Линии-образца (которая находится на ячейке выше).
В ячейку R5 - вписано название второй Линии-образца.

В ячейку N9 - вписано название первой сменной Линии-образца (которая находится на ячейке выше).
В ячейку R9 - вписано название второй сменной Линии-образца.

Как макросом, при щелчке на кнопку - сменить параметры линий в диапазоне - на параметры линий-образцов из N9 и R9 ?

То есть при запуске - макрос определяет какие линии изменить - ориентируясь на эталонные линии N5 и R5.
А затем меняет параметры этих линий - ориентируясь на эталонные линии N9 и R9 - создавая их подобие (меняя в конце - также параметры линий из N5 и R5).

@Alex77755 · 29.11.2017, 16:51

Эталонные линии 1-1 и 2-1, нужны для того, чтобы макрос понял - линии с какими параметрами изменять в диапазоне.

Может макрос умней меня и поймёт, но я не понял ничего

сменить параметры линий в диапазоне - на параметры линий-образцов из N9 и R9 ?

Сразу на оба образца????

@lixar21 · 29.11.2017, 17:06 **[ТС]**

Сообщение от Alex77755

сменить параметры линий в диапазоне - на параметры линий-образцов из N9 и R9 ?
Сразу на оба образца????

Да - сразу на оба образца.

Те линии в диапазоне - которые являются копиями Линии из ячейки N5 - должны сменится на копии Линии из ячейки N9.
Те линии в диапазоне - которые являются копиями Линии из ячейки R5 - должны сменится на копии Линии из ячейки R9.

@Казанский · 30.11.2017, 01:05

lixar21, задача на ShapeRange, PickUp, Apply.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub lixar()
Static shSet1 As ShapeRange, shSet2 As ShapeRange, et11 As Shape, et12 As Shape, et21 As Shape, et22 As Shape
Dim s As Shape, s1$, s2$, w!
  If et11 Is Nothing Then 'создание объектов при первом вызове
    Set et11 = ActiveSheet.Shapes([N5])
    Set et21 = ActiveSheet.Shapes([R5])
    Set et12 = ActiveSheet.Shapes([N9])
    Set et22 = ActiveSheet.Shapes([R9])
    w = et11.Line.Weight
    For Each s In ActiveSheet.Shapes
      If s.Type = msoLine Then
        If Not Intersect([B11:L31], Range(s.TopLeftCell, s.BottomRightCell)) Is Nothing Then
          If s.Line.Weight = w Then s1 = s1 & "|" & s.Name Else s2 = s2 & "|" & s.Name
        End If
      End If
    Next
    Set shSet1 = ActiveSheet.Shapes.Range(Split(Mid(s1, 2), "|"))
    Set shSet2 = ActiveSheet.Shapes.Range(Split(Mid(s2, 2), "|"))
  End If
'собственно изменение параметров линий
  et12.PickUp
  shSet1.Apply
  et11.PickUp
  et12.Apply
  shSet1(1).PickUp
  et11.Apply
 
  et22.PickUp
  shSet2.Apply
  et21.PickUp
  et22.Apply
  shSet2(1).PickUp
  et21.Apply
End Sub

@lixar21 · 30.11.2017, 04:02 **[ТС]**

Казанский, ого-го....
Ну что я могу сказать - мощно !!!

Большое спасибо.

Вы - реально - выдающийся программист нашей эпохи.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@lixar21 0 / 0 / 0 Регистрация: 02.01.2017 Сообщений: 123
	30.11.2017, 04:02 [ТС]
	Казанский, ого-го.... Ну что я могу сказать - мощно !!! Большое спасибо. Вы - реально - выдающийся программист нашей эпохи. 0

Изменение параметров линий - по определенным критериям

Решение