Помоћу доле наведених макроа можете пронаћи и избрисати формуле у ћелијама које се односе на друге радне свеске.
Макрои не налазе све спољне референце јер гледају само у формуле радног листа.
Суб ДелетеОрЛистЛинкс () Дим и Ас Интегер Ако АцтивеВоркбоок није ништа Затим изађите из Суб и = МсгБок ("ИЕС: Избриши спољне референце формула" & Цхр (13) & _ "НО: Листа спољних референци формула", _ вбКуестион + вбИесНоЦанцел, "Делете" или наведите спољашње референце формула ") Изаберите Цасе и Цасе вбДа ДелетеЕктерналФормулаРеференцес Цасе вбНо ЛистЕктерналФормулаРеференцес Енд Селецт Енд Суб Суб ДелетеЕктерналФормулаРеференцес () Дим вс Ас Ворксхеет, АВС Ас Стринг, ЦонфирмРеплаце Ас Боолеан Дим и Као Интегер, ОК Боок Суб и = МсгБок ("Потврдите све замене спољашњих референци формула вредностима?", _ ВбКуестион + вбИесНоЦанцел, "Претвори спољне референце формула") ЦонфирмРеплаце = Фалсе Ако је и = вбЦанцел Затим изађите из Суб Ако је и = вбДа Затим ПотврдитеРеплаце = Истина АВС = АцтивеСхеет.Наме Апплицатион.СцреенУпдатинг = Нетачно За сваки вс У АцтивеВоркбоок.Ворксхеетс ОК = ДелетеЛинксИнВС (ЦонфирмРеплаце, вс) Ако није у реду, онда изађите за следећи вс Сет вс = Ништа листова (А ВС) .Одаберите Апплицатион.СцреенУпдатинг = Труе Енд Суб Приватна функција ДелетеЛинксИнВС (ПотврдиРеплаце ас Боолеан, _ вс Ас Ворксхеет) Као Боолеан Дим цл Ас Ранге, цФормула Ас Стринг, и Ас Интегер ДелетеЛинксИнВС = Тачно Ако вс није ништа Тада изађите из апликације Функција. СтатусБар = "Брисање спољних референци формула у" & _ вс.Наме & "…" вс.Активирај за сваки цл У вс.УседРанге цФормула = цл.Формула Иф Лен (цФормула)> 0 Тхен Иф Лефт $ (цФормула, 1) = "=" Онда ако је ИнСтр (цФормула, "[")> 1 Онда ако није Потврди Замени Затим цл.Формула = цл.Валуе Елсе Апплицатион.СцреенУпдатинг = Труе цл.Селецт и = МсгБок ("Замените формулу вредношћу?", _ вбКуестион + вбИесНоЦанцел, _ "Замени спољну референцу формуле у" & _цл.Аддресс (Фалсе, Фалсе, клА1) & _ "са вредношћу ћелије?") Апплицатион.СцреенУпдатинг = Фалсе Ако је и = вбЦанцел Затим ДелетеЛинксИнВС = Фалсе Екит Функција Енд Иф Иф и = вбИес тхен Он Еррор Ресуме Нект 'у случају да је радни лист заштићен цл.Формула = цл.Вредност Он Еррор ГоТо 0 Енд Иф Е нд Ако је крај Ако је крај Ако је крај Ако је следеће цл Поставите цл = Ништа Апплицатион.СтатусБар = Фалсе Енд Функција Под ЛистЕктерналФормулаРеференцес () Затамни као радни лист, ТаргетВС као радни лист, СоурцеВБ као радна свеска ако АцтивеВоркбоок није ништа Затим изађите из под апликације.СцреенУпдатинг = Фалсе Витх АцтивеВоркбоок Он Еррор Настави Следећи скуп ТаргетВС = .Радни листови.Додај (Пре: =. Радни листови (1)) Ако ТаргетВС није ништа Тада је „радна свеска заштићена Поставите СоурцеВБ = АцтивеВоркбоок Сет ТаргетВС = Воркбоокс.Адд.Ворксхеетс (1) СоурцеВБ.Ацтивате Подеси СоурцеВБ = Ништа се не завршава ако је са ТаргетВС .Ранге ("А1"). Формула = "Секуенце" .Ранге ("Б1"). Формула = "Целл" .Ранге ("Ц1"). Формула = "Формула" .Ранге ( "А1: Ц1"). Фонт.Болд = Труе Енд Витх За сваки вс У. Радним листовима Ако није вс је ТаргетВС Затим ЛистЛинксИнВС вс, ТаргетВС Енд Иф Нект вс Постави вс = Ништа не завршава са ТаргетВС .Парент.Ацтивате .Ацтивате .Цолумнс ("А: Ц"). Аутоматско подешавање при грешци Настави даље .Наме = "Листа веза" На грешци Иди на 0 Заврши са подешавањем ТаргетВС = Ништа Апплицатион.СцреенУпдати нг = Труе Енд Суб Привате Суб ЛистЛинксИнВС (вс као радни лист, ТаргетВС као радни лист) Дим цл као опсег, цФормула као низ, тРов све док вс није ништа, онда изађите из суб ако ТаргетВС није ништа, изађите из под апликације.СтатусБар = "Проналажење спољног референце формула у "& _ вс.Наме &" … "За сваки цл У вс.УседРанге цФормула = цл.Формула Иф Лен (цФормула)> 0 Тхен Иф Лефт $ (цФормула, 1) =" = "Тхен Иф ИнСтр (цФормула , "[")> 1 Затим са ТаргетВС тРов = .Ранге ("А" & .Ровс.Цоунт) .Енд (клУп) .Ров + 1 .Ранге ("А" & тРов) .Формула = тРов - 1 .Ранге ("Б" & тРов) .Формула = вс.Наме & "!" & _ цл.Аддресс (Фалсе, Фалсе, клА1) .Ранге ("Ц" & тРов) .Формула = "'" & цФормула Енд Витх Енд Иф Енд Иф Енд Иф Нект цл Сет цл = Нотхинг Апплицатион.СтатусБар = Фалсе Енд Суб