как изменить цвет связей между ячейками.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » как изменить цвет связей между ячейками. (Макросы/Sub)

cerber412

Дата: Среда, 25.01.2017, 10:42 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 131

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

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

Excel 2013

Добрый день, форумчане.
Хотел задать сложный для меня вопрос, который сам не могу решить.

В экселе есть такая функция - как отображение связей.
В файле - нужно выделить серую ячейку, затем выбрать меню "ФОРМУЛЫ" - затем "Влияющие ячейки".
И отобразится связь между ячейками - синяя стрелочка.

Как макросом заставить эти "связи" отображаться не синим цветом, а например - красным?

К сообщению приложен файл: 756-921.xls (27.0 Kb)

Сообщение отредактировал cerber412 - Среда, 25.01.2017, 10:42

Ответить

Karataev

Дата: Среда, 25.01.2017, 10:51 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

А как без макросов можно изменить цвет стрелок?

Ответить

cerber412

Дата: Среда, 25.01.2017, 11:13 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 131

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

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

Excel 2013

Karataev, или с макросами или без макросов - я имел ввиду: каким-угодно образом можно изменить цвет стрелок?

Ответить

bmv98rus

Дата: Среда, 25.01.2017, 11:52 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 4107

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

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

Excel 2013/2016

cerber412,

Смею предположить, что никак, так как это всеж не совсем функционал книги, а скорее оболочки и если не зашито жестко в её код, то зарыто глубоко.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

nilem

Дата: Среда, 25.01.2017, 14:43 | Сообщение № 5

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

cerber412,
наверное, можно использовать автофигуры - любых цветов и форм. Только непонятно зачем?

Яндекс.Деньги 4100159601573

Ответить

Alex_ST

Дата: Среда, 25.01.2017, 14:47 | Сообщение № 6

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

Ранг: Участник клуба

Сообщений: 3206

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

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

2003

К цвету стрелочек отношения не имеет, но очень удобно сделать так:
1. В ЭтаКнига прописать
[vba]

Код

Public bShowArrows As Boolean
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   If Not bShowArrows Then Exit Sub
   On Error Resume Next
   Sh.ClearArrows
   Target.ShowPrecedents   ' показать влияющие ячейки
   Target.ShowDependents   ' показать зависимые ячейки
End Sub

[/vba]
2. В стандартном модуле (но можно и там же, в ЭтаКнига) прописать процедуру[vba]

Код

Sub Show_Hide_Depends()
bShowArrows = Not (bShowArrows)
End Sub

[/vba]и сделать на панели кнопочку для её вызова.