Страницы: 1
RSS
Поменять формулы в фигурах
 
Excel-2010
на листе порядка 90 фигур (скругленных прямоугольников)
в этих прямоугольниках - текст, формируемый в рассчетной таблице на другом листе. (В примере - источник текста находится по адресу =Сводные!K5)

На листе "сводные" - таблица, для каждой колонки которой, нужен лист этими клятыми 90 прямоугольниками
скопировал лист с фигурами, с тем чтобы поиском/заменой поменять колонки в формулах прямоугольников
(например вместо "=Сводные!J5" вместо ="Сводные!K5")

не тут то было. поиск/замена не видит этих формул. Видит тока полученный с их помощьё текст.

попробовал vba - тоже пока неудача - до текста"1.1.1. маржинальная прибыль блаблабла" доступаюсь без проблем,
а именно до формулы "=Сводные!K5"... ну нет у объекта Shape свойства formula

толи к нему подругому както доступатся надо...
толи я проосто не вижу...
толи формулу эту вообще не в том объекте ищу....

Буду благодарен любой помощи. Даже направлению поиска)))

пс. в файле на листе "Сводные" - данные для отображения в дереве целей.
на страницах "Производство...." - деревья целей для разной продукции

кнопка "Раскрасить" аналог условного форматирования

Собственно по этому макросу и пытался найти свойство formula или чтото подобное для объекта Shape
 
Доброе время суток
Формулы можно поискать так
Код
Public Sub test()
    Dim pShape As Shape
    For Each pShape In ActiveSheet.Shapes
        Debug.Print pShape.OLEFormat.Object.Formula
    Next
End Sub
 
Вариант.
Цитата
С. Петров написал:
Даже направлению поиска
Поищите в файле, может что то и найдете.
 
Андрей VG, СПАСИБО!!!!
 
gling,, счпасибо за идею реализации)
подкручу к раскраске
Изменено: С. Петров - 13.11.2019 16:17:26
Страницы: 1
Наверх