Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Еще…Меньше
Важно:
-
При разрыве связи с исходной книгой (внешним источником) все формулы, использующие значения в этой книге, преобразуются в свои текущие значения. Например, если разорвать связь с внешней ссылкой =СУММ([Budget.xls]Годовой! C10:C25), формула СУММ заменяется вычисляемой величиной, каким бы ни была формула. Кроме того, так как это действие нельзяотменить, вы можете сохранить версию конечной книги в качестве резервной копии.
-
Если используется диапазон внешних данных, параметр в запросе может использовать данные из другой книги. Может потребоваться проверить и удалить эти типы связей.
Разрыв связи
-
На вкладке Данные в группе Подключения нажмите кнопку Изменить связи.
Примечание: Отсутствие команды Изменить связи означает, что файл не содержит связанных данных.
-
В списке Источник выберите связь, которую требуется разорвать.
-
Чтобы выбрать несколько связанных объектов, щелкните каждый из них, удерживая нажатой клавишу CTRL.
-
Чтобы выделить все связи, нажмите клавиши CTRL+A.
-
-
Щелкните элемент Разорвать.
Удаление имени определенной ссылки
Если для ссылки использовался определенный имя, имя не удаляется автоматически. Чтобы удалить имя, с помощью следующих действий:
-
На вкладке Формулы в группе Определенные имена нажмите кнопку Диспетчер имен.
-
В диалоговом окне Диспетчер имен щелкните имя, которое нужно изменить.
-
Щелкните имя, чтобы выделить его.
-
Нажмите кнопку Удалить.
-
Нажмите кнопку ОК.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Нужна дополнительная помощь?
В Excel мы обычно создаем некоторые внешние ссылки для некоторых целей, однако после завершения конкретной цели вы можете найти и разорвать все внешние ссылки. Здесь я расскажу вам о способах быстрого поиска и взлома внешних ссылок.
Находите и разрушайте внешние ссылки с помощью функции редактирования ссылки
Найти и удалить внешние ссылки с помощью Kutools for Excel
Находите и разрушайте внешние ссылки с помощью функции редактирования ссылки
Если вы хотите найти и разорвать внешние ссылки, вы можете применить функцию «Редактировать ссылку».
1. Нажмите Данные > Редактировать ссылки. Смотрите скриншот:
2. в Редактировать ссылки выберите книгу, внешние ссылки которой вы хотите разорвать, а затем щелкните Разорвать ссылку. Смотрите скриншот:
3. В появившемся диалоговом окне с предупреждением щелкните значок Разрыв ссылок кнопка. Смотрите скриншот:
4. Затем повторите шаг 2, чтобы разорвать все внешние ссылки из всей книги. После удаления всех внешних ссылок закройте Редактировать ссылки диалоговое окно.
Найти и удалить внешние ссылки с помощью Kutools for Excel
С помощью вышеуказанного метода вы сломаете все внешние ссылки из одной и той же книги, но иногда вам может потребоваться сломать некоторые внешние ссылки с разных листов, в этом случае вы можете использовать Kutools for ExcelАвтора Найдите и сломайте неработающие ссылки функция для решения.
После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:
1. Нажмите Кутулс > Ссылка > Найдите и сломайте неработающие ссылки. Смотрите скриншот:
2. в Найдите и сломайте неработающие ссылки вы можете увидеть, что все внешние ссылки перечислены в диалоговом окне, и отметьте ссылки, которые вы хотите разорвать, а затем нажмите Разорвать ссылку чтобы разорвать все отмеченные ссылки.
Наконечник:
1. в Найдите и сломайте неработающие ссылки В диалоговом окне вы можете фильтровать ссылки на основе связанного листа, выбрав имя листа из раскрывающегося списка Фильтр.
2. Вы также можете просмотреть ячейку в реальном времени, щелкнув ссылку в Найдите и сломайте неработающие ссылки диалог после проверки Просмотр ячейки опцию.
Относительные статьи:
- Как разделить дату и время из ячейки на две ячейки в Excel?
- Как быстро добавить часы / минуты / секунды к дате и времени в Excel?
- Как преобразовать гиперссылки в простой текст в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (0)
Оценок пока нет. Оцените первым!
Хитрости »
30 Декабрь 2018 78830 просмотров
Невозможно разорвать связи с другой книгой
Прежде чем разобрать причины ошибки разрыва связей, не лишним будет разобраться что такое вообще связи в Excel и откуда они берутся. Если все это Вам известно — можете пропустить этот раздел
- Что такое связи в Excel и как их создать
- Как разорвать/удалить связи
- Что делать, если связи не разрываются
Иногда при работе с различными отчетами приходится создавать связи с другими книгами(отчетами). Чаще всего это используется в функциях вроде ВПР(VLOOKUP) для получения данных по критерию из таблицы, расположенной в другой книге. Так же это может быть и простая ссылка на ячейки другой книги. В итоге ссылки в таких ячейках выглядят следующим образом:
=ВПР(A2;'[Продажи 2018.xlsx]Отчет’!$A:$F;4;0)
или
='[Продажи 2018.xlsx]Отчет’!$A1
- [Продажи 2018.xlsx] — обозначает книгу, в которой итоговое значение. Такие книги так же называют источниками
- Отчет — имя листа в этой книге
- $A:$F и $A1 — непосредственно ячейка или диапазон со значениями
Если закрыть книгу, на которую была создана такая ссылка, то ссылка сразу изменяется и принимает более «длинный» вид:
=ВПР(A2;’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A:$F;4;0)
=’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A1
Предположу, что большинство такими ссылками не удивишь. Такие ссылки так же принято называть связыванием книг. Поэтому как только создается такая ссылка на вкладке Данные(Data) в группе Запросы и подключения(Queries & Coonections) активируется кнопка Изменить связи(Edit Links). Там же, как несложно догадаться, их можно изменить. В большинстве случаев ни использование связей, ни их изменение не доставляет особых проблем. Даже если в книге источники были изменены значения ячеек, то при открытии книги со связью эти изменения будут так же автоматом обновлены. Но если книгу-источник переместили или переименовали — при следующем открытии книги со ссылками на неё Excel покажет сообщение о недоступных связях в книге и запрос на обновление этих ссылок:
Если нажать Продолжить, то ссылки обновлены не будут и в ячейках будут оставлены значения на момент последнего сохранения. Происходит это потому, что ссылки хранятся внутри самой книги и так же там хранятся значения этих ссылок. Если же нажать Изменить связи(Change Source), то появится окно изменения связей, где можно будет выбрать каждую связь и указать правильное расположение нужного файла:
Так же изменение связей доступно непосредственно из вкладки Данные(Data)
Как разорвать связи
Как правило связи редко нужны на продолжительное время, т.к. они неизбежно увеличивают размер файла, особенно, если связей много. Поэтому чаще всего связь создается только для единовременно получения данных из другой книги. Исключениями являются случаи, когда связи делаются на общий файл, который ежедневного изменяется и дополняется различными сотрудниками и подразделениями, а в итоговом файле необходимо использовать именно актуальные данные этого файла.
Если решили разорвать связь, необходимо перейти на вкладку
Данные(Data)
-группа
Запросы и подключения(Queries & Coonections)
—
Изменить связи(Edit Links)
:
Выделить нужные связи и нажать
Разорвать связь(Break Link)
. При этом все ячейки с формулами, содержащими связи, будут преобразованы в значения вычисленные этой формулой при последнем обновлении. Данное действие нельзя будет отменить — только закрытием книги без сохранения.
Так же связи внутри формул разрываются, если формулы просто заменить значениями -выделяем нужные ячейки -копируем их -не снимая выделения жмем
Правую кнопку мыши
—
Специальная вставка(Paste Special)
—
Значения(Values)
. Формулы в ячейках будут заменены результатами их вычислений, а все связи будут удалены.
Более подробно про замену формул значениями можно узнать из статьи: Как удалить в ячейке формулу, оставив значения?
Что делать, если связи не разрываются
Но иногда возникают ситуации, когда вроде все формулы во всех ячейках уже заменены на значения, но запрос на обновление каких-то связей все равно появляется. В этом случае есть парочка рекомендаций для поиска и удаления этих мифических связей:
- проверьте нет ли каких-либо связей в именованных диапазонах:
нажмите сочетание клавиш Ctrl+F3 или перейдите на вкладку Формулы(Formulas) —Диспетчер имен(Name Manager)
Читать подробнее про именованные диапазоны
Если в каком-либо имени есть ссылка с полным путем к какой-то книге(вроде такого ‘[Продажи 2018.xlsx]Отчет’!$A1), то такое имя надо либо изменить, либо удалить. Кстати, некоторые имена в итоге могут выдавать ошибку #ССЫЛКА!(#REF!) — к ним тоже стоит присмотреться. Имена с ошибками ничего хорошего как правило не делают.
Настоятельно рекомендую перед удалением имен создать резервную копию файла, т.к. неверное удаление таких имен может повлечь неправильную работу файла даже в случае, если сами ссылки возвращали в итоге ошибочное значение. - если удаление лишних имен не дает эффекта — проверьте условное форматирование:
вкладка Главная(Home) —Условное форматирование(Conditional formatting) —Управление правилами(Manage Rules). В выпадающем списке проверить каждый лист и условия в нем:
Может случиться так, что условие было создано с использованием ссылки на другие книги. Как правило Excel запрещает это делать, но если ссылка будет внутри какого-то именованного диапазона — то диапазон такой можно будет применить в УФ, но после его удаления в самом УФ это имя все равно остается и генерирует ссылку на файл-источник. Такие условия можно удалять без сомнений — они все равно уже не выполняются как положено и лишь создают «пустую» связь. - Так же не помешает проверить наличие лишних ссылок и среди проверки данных(Что такое проверка данных). Как правило связи могут быть в проверке данных с типом Список. Но как их отыскать, если проверка данных распространена на множество ячеек?
Находим все ячейки с проверкой данных: выделяем одну любую ячейку на листе -вкладка Главная(Home) -группа Редактирование(Editing) —Найти и выделить(Find & Select) —Выделить группу ячеек(Go to Special). Отмечаем Проверка данных(Data validation) —Всех(All). Жмем Ок. После этого можно выделить все эти ячейки каким-либо цветом, чтобы удобнее было потом просматривать. Но такой метод выделит ВСЕ ячейки с проверками данных, а не только ошибочные.
Конечно, если вариантов кроме как найти руками нет и ячеек немного – просто заходим в проверку данных каждой ячейки(выделяем эту ячейку -вкладка Данные(Data) —Проверка данных(Data validation)) и смотрим, есть ли там проблемная формула со ссылками на другие книги.
Можно поступить более кардинально – после того как выделили все ячейки с проверкой данных идем на вкладку Данные(Data) —Проверка данных(Data validation) и для всех ячеек в поле Тип данных(Allow) выбираем Любое значение(Any value). Это удалит все формулы из проверки данных всех ячеек.
Но если ни удаление всех проверок данных, ни проверка каждой ячейки не подходит — я предлагаю коротенький код, который отыщет все такие ссылки быстрее и сэкономит время:Option Explicit '--------------------------------------------------------------------------------------- ' Author : The_Prist(Щербаков Дмитрий) ' Профессиональная разработка приложений для MS Office любой сложности ' Проведение тренингов по MS Excel ' https://www.excel-vba.ru ' info@excel-vba.ru ' WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 ' Purpose: '--------------------------------------------------------------------------------------- Sub FindErrLink() 'надо посмотреть в Данные -Изменить связи ссылку на файл-иточник 'и записать сюда ключевые слова в нижнем регистре(часть имени файла) 'звездочка просто заменяет любое кол-во символов, чтобы не париться с точным названием Const sToFndLink$ = "*продажи 2018*" Dim rr As Range, rc As Range, rres As Range, s$ 'определяем все ячейки с проверкой данных On Error Resume Next Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation) If rr Is Nothing Then MsgBox "На активном листе нет ячеек с проверкой данных", vbInformation, "www.excel-vba.ru" Exit Sub End If On Error GoTo 0 'проверяем каждую ячейку на предмет наличия связей For Each rc In rr 'на всякий случай пропускаем ошибки - такое тоже может быть 'но наши связи должны быть без них и они точно отыщутся s = "" On Error Resume Next s = rc.Validation.Formula1 On Error GoTo 0 'нашли - собираем все в отдельный диапазон If LCase(s) Like sToFndLink Then If rres Is Nothing Then Set rres = rc Else Set rres = Union(rc, rres) End If End If Next 'если связь есть - выделяем все ячейки с такими проверками данных If Not rres Is Nothing Then rres.Select ' rres.Interior.Color = vbRed 'если надо выделить еще и цветом End If End Sub
Чтобы правильно использовать приведенный код, необходимо скопировать текст кода выше, перейти в редактор VBA(Alt+F11) -создать стандартный модуль(Insert —Module) и в него вставить скопированный текст. После чего вызвать макросы(Alt+F8 или вкладка Разработчик —Макросы), выбрать FindErrLink и нажать выполнить.
Есть пара нюансов:- Прежде чем искать ненужную связь необходимо определить её ссылку: Данные(Data) -группа Запросы и подключения(Queries & Coonections) —Изменить связи(Edit Links). Запомнить имя файла и записать в этой строке внутри кавычек:
Const sToFndLink$ = «*продажи 2018*»
Имя файла можно записать не полностью, все пробелы и другие символы можно заменить звездочкой дабы не ошибиться. Текст внутри кавычек должен быть в нижнем регистре. Например, на картинках выше есть связь с файлом «Продажи 2018.xlsx», но я внутри кода записал «*продажи 2018*» — будет найдена любая связь, в имени которой есть «продажи 2018». - Код ищет проверки данных только на активном листе
- Код только выделяет все найденные ячейки(обычное выделение), он ничего сам не удаляет
- Если надо подсветить ячейки цветом — достаточно убрать апостроф(‘) перед строкой
rres.Interior.Color = vbRed ‘если надо выделить еще и цветом
- Прежде чем искать ненужную связь необходимо определить её ссылку: Данные(Data) -группа Запросы и подключения(Queries & Coonections) —Изменить связи(Edit Links). Запомнить имя файла и записать в этой строке внутри кавычек:
Как правило после описанных выше действий лишних связей остаться не должно. Но если вдруг связи остались и найти Вы их никак не можете или по каким-то причинам разорвать связи не получается(например, лист со связью защищен)- можно пойти совершенно иным путем. Действует этот рецепт только для файлов новых форматов Excel 2007 и выше (если проблема с файлом более старого формата — можно пересохранить в новый формат):
- Обязательно делаем резервную копию файла, связи в котором никак не хотят разрываться
- Открываем файл при помощи любого архиватора(WinRAR отлично справляется, но это может быть и другой, работающий с форматом ZIP)
- В архиве перейти в папку xl -> externalLinks
- Сколько связей содержится в файле, столько файлов вида externalLink1.xml и будет внутри. Файлы просто пронумерованы и никаких сведений о том, к какому конкретному файлу относится эта связь на поверхности нет. Чтобы узнать какой файл .xml к какой связи относится надо зайти в папку «_rels» и открыть там каждый из имеющихся файлов вида externalLink1.xml.rels. Там и будет содержаться имя файла-источника.
- Если надо удалить только связь на конкретный файл — удаляем только те externalLink1.xml.rels и externalLink1.xml, которые относятся к нему. Если удалить надо все связи — удаляем все содержимое папки externalLinks
- Закрываем архив
- Открываем файл в Excel. Появится сообщение об ошибке вроде «Ошибка в части содержимого в Книге …». Соглашаемся. Появится еще одно окно с перечислением ошибочного содержимого. Нажимаем закрыть.
После этого связи должны быть удалены.
Если и это не помогло — скорее всего «битая» связь связана с ошибкой самого файла и лучшим решением будет перенести все данные в новый файл.
Так же см.:
Найти скрытые связи
Оптимизировать книгу
Статья помогла? Поделись ссылкой с друзьями!
Видеоуроки
Поиск по меткам
Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика
Связь – это очень полезная возможность Excel. Ведь очень часто пользователям приходится использовать информацию из других файлов. Но в некоторых ситуациях они способны скорее нанести вред, чем принести пользу. Ведь, к примеру, если отправлять эти файлы по почте, ссылки оказываются нерабочими. Сегодня мы более подробно поговорим о том, что сделать для избежания такой проблемы.
Содержание
- Что такое связи в Excel
- Суть проблемы
- Как разорвать связь в Эксель
- Как разорвать связь со всеми книгами
- Код на VBA
- Как разорвать связи только в выделенном диапазоне
- Что делать, если связи не разрываются
Что такое связи в Excel
Связи в Excel очень часто используются вместе с такими функциями, как ВПР, чтобы получить информацию из другой книги. Она может иметь вид специальной ссылки, которая содержит адрес не только ячейки, но и книги, в которой данные расположены. В результате, такая ссылка имеет приблизительно такой вид: =ВПР(A2;'[Продажи 2018.xlsx]Отчет’!$A:$F;4;0). Или же, для более простого представления, представить адрес в следующем виде: ='[Продажи 2018.xlsx]Отчет’!$A1. Разберем каждый из элементов ссылки этого типа:
- [Продажи 2018.xlsx]. Этот фрагмент содержит ссылку на файл, из которого нужно достать информацию. Его также называют источником.
- Отчет. Это мы использовали следующее имя, но это не название, которое должно обязательно быть. В этом блоке содержится название листа, в каком надо находить информацию.
- $A:$F и $A1 – адрес ячейки или диапазона с данными, которые содержатся в этом документе.
Собственно, процесс создания ссылки на внешний документ и называется связыванием. После того, как мы прописали адрес ячейки, содержащейся в другом файле, изменяется содержимое вкладки «Данные». А именно – становится активной кнопка «Изменить связи», с помощью которой пользователь может отредактировать имеющиеся связи.
Суть проблемы
Как правило, никаких дополнительных трудностей с тем, чтобы использовать связи, не возникает. Даже если возникает ситуация, в которой ячейки изменяются, то все связи автоматически обновляются. А вот если уже переименовать саму книгу или же переместить ее по другому адресу, Excel становится бессилен. Поэтому выдает следующее сообщение.
Тут перед пользователем появляется два возможных варианта, как действовать этой ситуации. Он может нажать «Продолжить» и тогда изменения не обновятся, или же нажать кнопку «Изменить связи», с помощью которой он может обновить их вручную. После того, как мы нажмем эту кнопку, появится дополнительное окно, в котором можно будет изменить связи, указав, где находится правильный файл в данный момент и как он называется.
Кроме этого, можно отредактировать связи через соответствующую кнопку, расположенную на вкладке «Данные». О том, что связь нарушена, пользователь может также узнать по ошибке #ССЫЛКА, которая появляется тогда, когда эксель не может получить доступ к информации, расположенной по определенному адресу из-за того, что сам адрес недействительный.
Как разорвать связь в Эксель
Один из самых простых методов решения описанной выше ситуации в случае, если не получается обновить местонахождение связанного файла самостоятельно – удалить саму связь. Особенно просто это сделать, если в документе содержится только одна связь. Для этого надо выполнить следующую последовательность шагов:
- Открываем меню «Данные».
- Находим раздел «Подключения», и там – опцию «Изменить связи».
- После этого нажимаем на «Разорвать связь».
Если собираетесь отправлять эту книгу по почте другому человеку, настоятельно рекомендуется это сделать до этого. Ведь после удаления связей все значения, которые содержатся в другом документе, будут автоматически загружены в файл, использованы в формулах, и вместо адреса ячейки информация в соответствующих ячейках будет просто трансформирована в значения.
Как разорвать связь со всеми книгами
Но если количество связей становится слишком большим, вручную их удалять может занять немало времени. Чтобы решить эту проблему за один раз, можно воспользоваться специальным макросом. Он находится в аддоне VBA-Excel. Нужно его активировать и перейти на одноименную вкладку. Там будет находиться раздел «Связи», в котором нам надо нажать на кнопку «Разорвать все связи».
Код на VBA
Если же нет возможности активировать это дополнение, можно создать макрос самостоятельно. Для этого необходимо открыть редактор Visual Basic, нажав на клавиши Alt + F11, и в поле ввода кода записать следующие строки.
Sub UnlinkWorkBooks()
Dim WbLinks
Dim i As Long
Select Case MsgBox(«Все ссылки на другие книги будут удалены из этого файла, а формулы, ссылающиеся на другие книги будут заменены на значения.» & vbCrLf & «Вы уверены, что хотите продолжить?», 36, «Разорвать связь?»)
Case 7 ‘ Нет
Exit Sub
End Select
WbLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(WbLinks) Then
For i = 1 To UBound(WbLinks)
ActiveWorkbook.BreakLink Name:=WbLinks(i), Type:=xlLinkTypeExcelLinks
Next
Else
MsgBox «В данном файле отсутствуют ссылки на другие книги.», 64, «Связи с другими книгами»
End If
End Sub
Как разорвать связи только в выделенном диапазоне
Время от времени количество связей очень большое, и пользователь боится, что после удаления какой-то из них не получится вернуть все назад, если какая-то была лишней. Но это проблема, которую легко не допустить. Для этого нужно выбрать диапазон, в котором осуществить удаление связей, а потом удалить их. Для этого надо выполнить следующую последовательность действий:
- Выделить тот набор данных, в котором надо вносить изменения.
- Устанавливаем дополнение VBA-Excel, после чего переходим на соответствующую вкладку.
- Далее находим меню «Связи» и нажимаем на кнопку «Разорвать связи в выделенных диапазонах».
После этого все связи в выделенном наборе ячеек будут удалены.
Что делать, если связи не разрываются
Все описанное выше звучит хорошо, но на практике всегда возникают какие-то нюансы. Например, может случиться ситуация, когда связи не разрываются. В этом случае все равно появляется диалоговое окно, что не получается автоматически обновить связи. Что же делать в этой ситуации?
- Сначала надо проверить, не содержится ли какая-то информация в именованных диапазонах. Для этого надо нажать на комбинацию клавиш Ctrl + F3 или же открыть вкладку «Формулы» – «Диспетчер имен». Если же имя к файлу указано полное, то нужно просто его отредактировать или же вовсе убрать. Перед тем, как удалять именованные диапазоны, необходимо скопировать файл в какое-то другое место, чтобы можно было вернуться к изначальному варианту, если были совершены неправильные действия.
- Если не получается решить проблему с помощью удаления имен, то можно проверить условное форматирование. Ссылка на ячейки в другой таблице может содержаться в правилах условного форматирования. Для этого надо найти соответствующий пункт на вкладке «Главная», а потом нажать на кнопку «Управление файлами».
Обычно Excel не дает возможности давать адрес других книг в условном форматировании, но это делается, если ссылаться на именованный диапазон с отсылкой на другой файл. Обычно даже после удаления связи ссылка остается. Нет никакой проблемы в том, чтобы убрать такую связь, потому что связь по факту нерабочая. Следовательно, ничего плохого не произойдет, если убрать ее.
Также можно воспользоваться функцией «Проверка данных», чтобы узнать, нет ли ненужных ссылок. Обычно связи остаются, если используется тип проверки данных «Список». Но что же делать, если ячеек много? Неужели необходимо последовательно проверять каждую из них? Конечно, нет. Ведь это займет очень много времени. Поэтому нужно воспользоваться специальным кодом, чтобы значительно сэкономить его.
Option Explicit
‘—————————————————————————————
‘ Author : The_Prist(Щербаков Дмитрий)
‘ Профессиональная разработка приложений для MS Office любой сложности
‘ Проведение тренингов по MS Excel
‘ https://www.excel-vba.ru
‘ info@excel-vba.ru
‘ WebMoney — R298726502453; Яндекс.Деньги — 41001332272872
‘ Purpose:
‘—————————————————————————————
Sub FindErrLink()
‘надо посмотреть в Данные -Изменить связи ссылку на файл-иточник
‘и записать сюда ключевые слова в нижнем регистре(часть имени файла)
‘звездочка просто заменяет любое кол-во символов, чтобы не париться с точным названием
Const sToFndLink$ = «*продажи 2018*»
Dim rr As Range, rc As Range, rres As Range, s$
‘определяем все ячейки с проверкой данных
On Error Resume Next
Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If rr Is Nothing Then
MsgBox «На активном листе нет ячеек с проверкой данных», vbInformation, «www.excel-vba.ru»
Exit Sub
End If
On Error GoTo 0
‘проверяем каждую ячейку на предмет наличия связей
For Each rc In rr
‘на всякий случай пропускаем ошибки — такое тоже может быть
‘но наши связи должны быть без них и они точно отыщутся
s = «»
On Error Resume Next
s = rc.Validation.Formula1
On Error GoTo 0
‘нашли — собираем все в отдельный диапазон
If LCase(s) Like sToFndLink Then
If rres Is Nothing Then
Set rres = rc
Else
Set rres = Union(rc, rres)
End If
End If
Next
‘если связь есть — выделяем все ячейки с такими проверками данных
If Not rres Is Nothing Then
rres.Select
‘ rres.Interior.Color = vbRed ‘если надо выделить еще и цветом
End If
End Sub
Необходимо в редакторе макросов сделать стандартный модуль, а потом туда вставить этот текст. После этого вызвать окно макросов с помощью комбинации клавиш Alt + F8, а потом выбрать наш макрос и кликнуть по кнопке «Выполнить». При использовании этого кода есть несколько моментов, которые надо учитывать:
- Перед тем, как осуществлять поиск связи, которая уже не актуальна, нужно перед этим определить, как выглядит ссылка, через которую она создается. Для этого надо перейти в меню «Данные» и там найти пункт «Изменить связи». После этого надо посмотреть имя файла, и указать его в кавычках. Например, так: Const sToFndLink$ = «*продажи 2018*»
- Возможна запись имени не в полном виде, а просто заменить ненужные знаки звездочкой. А в кавычках записывать имя файла обязательно маленькими буквами. В этом случае Эксель найдет все файлы, которые содержат такую строку в конце.
- Этот код способен проверять наличие ссылок только в том листе, который сейчас активный.
- С помощью этого макроса можно лишь выделить ячейки, которые он обнаружил. Удалять придется все вручную. Это и плюс, потому что можно еще раз все перепроверить.
- Также можно сделать так, чтобы ячейки подсвечивались специальным цветом. Для этого нужно убрать знак апострофа перед этой строчкой. rres.Interior.Color = vbRed
Обычно после того, как выполнить действия, описанные в вышеприведенной инструкции, ненужных связей уже не должно оставаться. Но в случае наличия некоторых из них в документе и вашей неспособности по тем или иным причинам их убрать (типичный пример – защищенность данных в листе), то можно воспользоваться другой последовательностью действий. Эта инструкция справедлива лишь для версий 2007 и выше.
- Создаем резервную копию документа.
- Открываем этот документ с помощью архиватора. Можно воспользоваться любым, который поддерживает ZIP формат, но также подойдет и WinRar, а также встроенный в Windows.
- В появившемся архиве необходимо найти папку xl, а там открыть externalLinks.
- В этой папке находятся все внешние связи, каждая из которых соответствует файлу вида externalLink1.xml. Все они лишь пронумерованы, и поэтому пользователь не имеет возможности понять, какая именно эта связь. Чтобы понять, какая именно связь, надо открыть папку _rels, и там посмотреть его.
- После этого убираем все или конкретные связи, исходя из того, что мы узнаем в файле externalLinkX.xml.rels.
- После этого открываем наш файл средствами Excel. Там будет информация об ошибке типа «Ошибка в части содержимого в Книге». Даем согласие. После этого появится еще один диалог. Закрываем его.
После этого все связи должны быть удалены.
Оцените качество статьи. Нам важно ваше мнение:
Разрыв связи с внешним ресурсом в Excel
Смотрите также как умудриться оставить If FormulaNew = CLL.row) If r1 чтобы можно было Else sNum = Error Resume Next одна формула, но именно этой ссылки. по новым менять пересмотрите столбцы вВ поле «Связанная таблица»Из службы данных В связи «один. может также использовать всех связей безПримечание: в этой ячейке FormulaNew & LinkNumber = 0 Then выбрать конкретный внешний
sNum & s For Each Sh
-
опять же неСложности в том и так далее. ней, чтобы определить выберите > ко многим» этаВыберите нужный режим. данные из другой вывода запроса. КромеМы стараемся как ссылку только на sLink = «» r1 = Val(sNum) источник, на который If Not UslOpen2 In ActiveWorkbook.Worksheets For на константу. А что не все Но в Excel содержит ли другой
-
On_Time_PerformanceИз Microsoft Azure Marketplace таблица должна бытьПримечание: книги. Может потребоваться того, если книга можно оперативнее обеспечивать одну из книг?
Разрыв связи
-
End If Sboy + CLL.row Else надо удалить ссылки. Then LinkPostFix2 = Each c In на =C2*B2, других функции поддерживают формула
2000 я не столбец в другом, а в поле. В мастере импорта частью с несколькими При наличии разорванных связей
-
проверить и удалить содержит несколько связей, вас актуальными справочными желательно чтобы это
-
= True ElseIf r2 = Val(sNum)С уважением, Гульмира LinkPostFix2 & s Sh.UsedRange.Cells If c.HasFormula
-
измененении не заметила. массивов. Т.е. если
-
-
нашел функции разрыва месте модели соответствующие «Связанный столбец (первичный
Удаление имени определенной ссылки
таблиц откроется домашняя элементами. В примере будет появляться оповещение эти типы связей. можно обновлять только материалами на вашем
-
была ссылка на Status = 0 + CLL.row EndKoGG End If End Then Call Links_To_Constants(c)То, что получилось
-
формула не поддерживает связи :(. Может значения. ключ)» —
-
страница Microsoft Azure с клиентами и
-
об этом.В Excel формула удаляется некоторые из них.
-
языке. Эта страница книгу, а не Then FormulaNew =
support.office.com
Управление обновлением внешних ссылок (связей)
If UslR =: Sub Заменить_ссылки_на_книгу_константами_в_активной_книге() Dim Select If sNum End If Next в результате выполнения формула массива - подскажет кто вПредположим, у вас естьFlightDate Marketplace. логикой операций со
Дополнительные сведения о внешних ссылках
Нажмите кнопку при замене наЗакройте все книги. Если переведена автоматически, поэтому значение. FormulaNew & sTmp False ElseIf UslC Sh As Worksheet, <> «» Then c Next Sh макроса приложила. то она должна чем тут загвозка? модель, которая содержит.
В разделе временем необходимо сначала
Обновить возвращаемое значение. Чтобы одна книга-источник будет ее текст может
kristina S ElseIf Status < Then LinkSuffix2 = c As Range,
Управление связями с другими книгами
Usl2 = False End Sub SubKoGG заменятся полностью значением, Может другие варианты продажи продукции поВ поле «Таблица» выберитеPrice выбрать таблицу продаж. Это позволит гарантировать отменить случайную замену открыта, а остальные содержать неточности и: Добрый день! Не 4 Then sLink LinkSuffix2 & Format(Val(sNum) MyFileName$, Arr With If j = Links_To_Constants(CLL As Range)
Ручное обновление всех (или никаких) связей в книге
-
: Макрос был рассчитан а если поддерживает какие есть? территории, и выBasicCalendarUS
-
(Цена) нажмите
-
клиентов, потому что наличие в книге формулы ее значением, закрыты, обновления не грамматические ошибки. Для понятно, что Вы = sLink & + CLL.Column) If
Частичное обновление связей с другими книгами вручную
-
Application.FileDialog(msoFileDialogFilePicker) .Title =
-
Len(LinkPostFix) Then Usl2
-
Dim FormulaOld$, FormulaNew$, на минимальное понимание — то массивом.Другой Excel ставить впоследствии импортируете демографические, а в полеFree
-
каждый день, скорее самых последних данных. немедленно после ввода будут одинаковыми.
нас важно, чтобы спрашиваете, может Вам sTmp ElseIf Status c1 = 0
«Укажите файл, связи = True Else
-
s$, sNum$, sTmp$, ситуации, что напримерПри этом необходимо
Управление выдачей запроса на обновление всех связей
в офисе нельзя, данные, чтобы узнать, «Столбец (чужой)» —
Отключение выдачи запроса на обновление связей данной книги и обновление связей вручную
(Бесплатно). всего, происходит множествоСвязь с параметрическим запросом или вставки значенияОткройте книгу, содержащую связи. эта статья была поможет настройка для = 4 Then Then c1 =
-
на который будут Select Case s sLink$, LinkPostFix$, LinkPostFix2$ нельзя использовать в чтобы ссылки на как мне объяснили есть ли корреляция
-
DateKeyВ разделе продаж.
-
нельзя обновить без
нажмите кнопкуЧтобы обновить связи, нажмите вам полезна. Просим панели быстрого доступа If InStr(1, sLink, Val(sNum) + CLL.Column заменены константами в Case «R», «C»,
Настройка обновления связей по запросу при открытии файла
Dim LinkNumber, i%, именах файлов, папок другие книги - лицензия есть только
Если никакие связи не создавались
-
между продажами и. НажмитеCategoryДля элемента открытия книги-источника.Отменить кнопку
-
вас уделить пару «разорвать связи» Прикрепленные MyFileName) > 0
-
Else c2 = формулах:» .InitialFileName = «:» Usl2 = j%, k%, n%, и листов пробелы
так и оставались на этот… демографическими тенденциями наОК(Категория) нажмитеСтолбец (чужой)Нажмите кнопку.Параметры секунд и сообщить, файлы Разорвать связь.jpg
Разрыв связей с источником
Then sLink = Val(sNum) + CLL.Column ActiveWorkbook.Path & «» True End Select r1&, r2&, c1&, и символы математических ссылками.Лузер каждой территории. Такдля создания связи.Science & Statisticsвыберите столбец, который
-
Не обновлятьВыделите ячейку с формулой.в области сведений помогла ли она (27.53 КБ) sLink & sTmp End If UslC
-
.AllowMultiSelect = False End If If c2&, rOffset&, cOffset&, операций. Сейчас адаптировал
-
Возможно нужно записать: Она там же, как демографические данныеОбратите внимание, что время
-
(Наука и статистика). содержит данные, относящиеся
-
-
.Если формула является о документе, а
-
вам, с помощьюbedvit Else Sboy =
= False End
-
.ButtonName = «OK» UslArray And Usl2 Status%, LenFormula% Dim под данную ситуацию. текущие значения ссылок где и в поступают из различных
-
задержки в настоящееНайдите к элементуЗакройте конечную книгу. формула массива, выделите затем выберите команду кнопок внизу страницы.
-
: Разорвать связи с True End If If sNum = .Filters.Add Description:=»Файлы Microsoft Then If UslR Usl As Boolean,Заменяются ссылки на
Замена одной формулы ее вычисляемым значением
в массив, а других офисах: Правка источников, то их время отличается дляDateStreamСвязанный столбец (первичный ключ)Откройте книгу-источник. диапазон ячеек, содержащихВключить это содержимое Для удобства также
-
нужными файлами -
Else LinkSuffix = «» Case «R» Excel», _ Extensions:=»*.xls; Then If r1
Usl2 As Boolean, все внешние книги.-
потом заменить эти — Связи -
-
таблицы первоначально изолированы каждого месяца.и выберите команду. Например, при наличииОткройте конечную книгу. формулу массива.. приводим ссылку на сохранятся нужные данные
-
LinkSuffix & sTmp UslR = True *.xl*» If .Show = 0 Then Sboy As Boolean,
-
-
В случае использования ссылки их текущими разорвать связь от остальной частиВ таблицеподписаться столбца даты в
-
Нажмите кнопкуВыбор диапазона, содержащего массив Закройте все книги.
-
оригинал (на английском в значениях, другие End If End LinkSuffix2 = LinkSuffix2 = 0 Then r1 = Val(sNum) UslArray As Boolean,
Если известно, что подключение к исходному файлу отсутствует
российского регионального разделителя значениями.Если имелся ввиду модели. Для интеграцииBasicCalendarUS. обеих таблицах необходимоОбновить
Если требуется работать с имеющимися данными, а не заменять их новыми
Откройте книгу, содержащую связи. языке) . (не разорванные) останутся
Если обновление в последний раз заняло слишком много времени
If If Sboy & s Case Exit Sub End Else r2 = _ UslOpen As дробной части [,]К сожалению не VBA, то демографических данных сперетащитеВведите свои учетные данные выбрать этот столбец.Щелкните любую ячейку вНа вкладкеВажно: на ссылках.
Если эта книга создана другим пользователем и вы не знаете, почему появился этот запрос
Then FormulaNew = «C» UslC = If MyFileName = Val(sNum) End If Boolean, UslOpen2 As неправильно обрабатывалась дробная смыслю в программировании.ActiveWorkbook.BreakLink Name:=»связанная_книга.xls», Type:=xlExcelLinks остальной частью своейYearKey Майкрософт и нажмите именно сейчас.Примечание:
Если вы каждый раз одинаково отвечаете на этот запрос и хотите, чтобы он больше не отображался
диапазоне массив.Данные KoDeX
FormulaNew & sLink True LinkSuffix2 = .SelectedItems(1) End With
UslR = False Boolean, UslR As часть — теперь И к томуАлексей модели вам нужнов область строк
-
Sign inВ полеМы стараемся какНа вкладкев группеКогда разорвать связь в: При разрыве одной
& sTmp Usl LinkSuffix2 & s Arr = Split(MyFileName, ElseIf UslC Then Boolean, UslC As правильно. же наверное это
-
: В том то будет найти столбец над пунктом(Вход). Откроется окноСвязанная таблица можно оперативнее обеспечиватьГлавнаяПодключения исходную книгу внешних
связи остается общее = False UslArray Case «:» LinkSuffix2
«») MyFileName = If c1 = Boolean FormulaOld =Со ссылками на очень сложная задача и дело, что в одной изMonthInCalendar предварительного просмотра данных.
-
выберите таблицу, содержащую вас актуальными справочнымив группенажмите кнопку ссылок, все формулы, значение в ячейке, = False Sboy
-
= LinkSuffix2 & «[» & Arr(UBound(Arr, 0 Then c1
-
CLL.FormulaR1C1 ‘ Стиль
диапазоны ячеек все раз разработчики Excel в Excel 2000 демографических таблиц, соответствующий
Если известно, что исходный файл доступен для подключения к нему
.Прокрутите вниз и нажмите хотя бы один материалами на вашемРедактирование
Если используется параметрический запрос
Изменить связи используйте значение из а я спрашиваю
-
= False Status s Case Else 1)) & «]»
-
= Val(sNum) Else
-
формул R1C1 FormulaNew
-
еще намного сложнее
-
не воплотили ее нет такого пункта тому, который вы
support.office.com
Создание связи между двумя таблицами в Excel
Теперь вы можете разделитьSelect Query столбец данных, которые языке. Эта страницанажмите кнопку. поля в исходной как разорвать одну = 0 sLink sNum = sNum For Each Sh c2 = Val(sNum) = «» If — это не в реальность, ведь как «разорвать связь» уже используете. Например, задержки прибытия по(Запрос на выборку). связаны с таблицей, переведена автоматически, поэтомуНайти и выделить
Из списка книге преобразуются в (две…, три…) связи, = «» LinkSuffix & s If In ActiveWorkbook.Worksheets For End If UslC InStr(1, FormulaOld, «.xl») обрабатывается. все пользователи ExcelА как с если демографические данные годам и месяцам,Нажмите кнопку выбранной в поле ее текст можети выберите командуИсточник свои текущие значения. но при этом = «» End Not UslOpen2 Then Each c In = False End > 0 ThenSub Заменить_ссылки_константами_в_активной_книге() Dim были бы рады VBA работать я организованы по регионам а также другим
ДалееТаблица содержать неточности иВыделить группу ячеек
выберите связанный объект, Например, если разорвать чтобы другая, допустим If Next i LinkSuffix2 = LinkSuffix2 Sh.UsedRange.Cells If c.HasFormula If sNum = LenFormula = Len(FormulaOld) Sh As Worksheet,
-
такой дополнительной опции не в курсе… и ваши данные значениям в календаре... грамматические ошибки. Для.
-
который необходимо изменить. связь с внешней
четвертая связь осталась Else FormulaNew = & s End
-
Then Call Links_To_Constants2(c, «» End If For i = c As Range, программы.slan о продажах определяютСоветы:Чтобы импортировать данные, выберите
-
В поле нас важно, чтобыВ диалоговом окнеДля выделения нескольких связей ссылкой = сумм ссылкой, а остальные FormulaOld End If If End Select MyFileName) End If
End If Next 1 To LenFormula Formula On LocalНигде в интернете: а у меня область продажи, то По умолчанию месяцы перечисленыBasicCalendarUSСвязанный столбец (первичный ключ) эта статья былаВыделить группу ячеек щелкните каждый связанный ([бюджет.xls] Годовой! C10: были значениями либо
-
If Trim(FormulaNew) = If sNum <> Next c Next j LinkPostFix = sTmp = Mid(FormulaOld,
Error Resume Next не смогла найти нет 2000го вы могли бы в алфавитном порядке.
-
и нажмитевыберите столбец, содержащий вам полезна. Просимустановите флажок объект, удерживая нажатой
-
C25), формула СУММ вообще их небыло. «=» Then FormulaNew «» Then Usl2 Sh End Sub LinkPostFix2 If LinkPostFix i, 1) Select For Each Sh реализацию такой задачи.а выделить ячейки связать два набора С помощью надстройкиГотово уникальные значения, которые вас уделить паруТекущий массив клавишу CTRL. заменяется вычисленное значениеkristina S = «» CLL.FormulaR1C1
-
= False If Sub Links_To_Constants2(CLL As Like «RC:R*» Then Case sTmp Case In ActiveWorkbook.Worksheets For На данном форуме со связими можете? данных, найдя общие Power Pivot вы. При быстром подключении соответствуют значениям в
-
секунд и сообщить,.Чтобы выделить все связи, — объекты, которые: непонятно, выборочно связи = FormulaNew End j = Len(LinkSuffix) Range, MyFileName$) Dim If r2 =
-
«‘» If Status Each c In есть ссылки наАлексей столбцы, такие как можете изменить порядок к Интернету импорт столбце, выбранном в помогла ли она
-
На вкладке нажмите клавиши CTRL+A. могут быть. Кроме
Дополнительные сведения о связях между таблицами в Excel
разрывать?
Sub Then Usl2 = FormulaOld$, FormulaNew$, s$, 0 Then r2
= 0 Then Sh.UsedRange.Cells If c.HasFormula
поиск подобных ячеек: ячейки выделяются, копируются,
государство, почтовый индекс сортировки так, чтобы займет около минуты. поле вам, с помощью
Примечания о связях
-
ГлавнаяНажмите кнопку того поскольку этойKoDeXГульмира True Else Select sNum$, sTmp$, sLink$, = r1 If Usl = True Then c.Formula = со ссылками на
-
я даже уже или регион, чтобы они отображались в После выполнения выСтолбец кнопок внизу страницы.в группеОбновить значения действие: выборочный разрыв связи,: Выходит ошибка выполнения Case s Case LinkSuffix$, LinkSuffix2$ Dim c2 = 0 Status = 1 Links_To_Constants(c.Formula) End If
-
внешние источники данных. все формулы убрал, обеспечить подстановку. хронологическом порядке. увидите отчет о. Для удобства такжеБуфер обмена.нельзя отменить пример во вложении. «1004» «R», «C», «:» LinkNumber, i%, j%, Then c2 = End If Case Next c NextОчень надеюсь на Вашу вставив только значения,Кроме совпадающих значений естьТаблица состоянии перемещения 73 414Нажмите кнопку приводим ссылку нанажмите кнопкуМожно настроить автоматическое обновление, рекомендуется сохранить версиюKoDeXApplication-defined or object-defined Usl2 = True k%, n%, r1&, c1 r1 = «[» If Not Sh End Sub
-
помощь. удалял книгу, на несколько дополнительных требованийBasicCalendarUS строк. НажмитеОК
-
оригинал (на английскомКопировать связей при запуске конечной книги в: неужели ни у error End Select End r2&, c1&, c2&, CLL.row: c1 =
Пример. Связывание данных логики операций со временем с данными по рейсам авиакомпании
Usl Then If Function Links_To_Constants(FormulaOld) AsПример в приложениях. которую этот лист для создания связей.должна быть открытаЗакрыть. языке) .. или после запуска. качестве резервной копии. кого нет никаких
-
Выполнение макроса останавливается If If UslArray rOffset&, cOffset&, Status%, CLL.Column ElseIf LinkPostFix
-
Status = 0 String Dim FormulaNew$,Заранее спасибо, ссылается. Проблема вЗначения данных в столбце в окне Power.Примечания о связяхВы применяли функцию ВПР,Нажмите кнопку
-
Предупреждение:Если вы используете диапазона идей??? на строке And Usl2 Then
-
LenFormula% Dim Usl Like «R*C:*» Then Then Status = sTmp$, sLink$ DimС уважением,Гульмира
-
том, что он подстановки должны быть Pivot.Чтобы импортировать второй наборПример. Связывание данных логики
-
чтобы переместить данныеВставить Этот режим влияет на внешних данных, параметраvikttur
-
CLL.FormulaR1C1 = FormulaNew If UslR Then As Boolean, Usl2
-
If c2 = 1 End If LinkNumber, i%, Usl
-
KoGG все равно постоянно уникальными. Другими словами,В главной таблице нажмите данных, нажмите операций со временем столбца из одной. всех пользователей книги. в запросе могут: Есть. Но неНа формуле =СЧЁТЕСЛИ(‘D:Мои If r1 =
-
As Boolean, Sboy 0 Then c2 If Status > As Boolean, Sboy: Sub Заменить_ссылки_константами_в_активной_книге() Dim спрашивает обновление, можно столбец не можетСортировка по столбцу
-
Получение внешних данных с данными по таблицы в другой?Нажмите стрелку рядом с Если отключить обновление
-
использовать данные из по теме. документы[Книга на которую 0 Then r1 As Boolean, UslArray
-
= c1 c1 3 Then UslOpen As Boolean, Status%, Sh As Worksheet, от него отказаться, содержать дубликаты. В
-
. > рейсам авиакомпании
-
Так как в кнопкой связей и выдачу
-
другой книги. ВыИз правил: ссылки.xls]Лист1′!$B$3:$B$8;»>1″) = Val(sNum) Else As Boolean, _ = CLL.Column ElseIf = True End LenFormula% FormulaNew = c As Range, но все равно модели данных нулиВ поле «Сортировать» выберитеИз службы данных»Могут потребоваться связи между Excel теперь естьПараметры вставки запроса, пользователи этой
-
можете обнаружить иkodexНаверное нужно чтобы r2 = Val(sNum) UslOpen As Boolean, LinkPostFix Like «RC*:*» If Case «.» «» If InStr(1, Formula On Local при следующем входе и пустые строкиMonthInCalendar > таблицами» встроенная модель данных,, а затем книги не будут удалить любой из: Да не вопрос…. выполнение макроса продолжалось End If UslR UslOpen2 As Boolean, Then If r2 If Status = FormulaOld, «[«) > Error Resume Next
-
он опять его эквивалентны пустому полю,.Из Microsoft Azure MarketplaceШаг 1. Определите, какие таблицы функция ВПР устарела.
-
выберите команду знать, что данные этих типов связей.и все же, пропуская подобные формулы = False ElseIf UslR As Boolean, = 0 Then 1 Then Status 0 Then Usl For Each Sh
-
запрашивает… которое является самостоятельнымВ поле «По» выберите. указать в связи Вы можете создать
-
Значения устарели.На вкладке какое-нить решение есть (оставляя их как UslC Then If UslC As Boolean
-
r2 = r1 = 2 End = False Status In ActiveWorkbook.Worksheets ForGuest значением данных. Это
-
MonthOfYearВ разделеШаг 2. Найдите столбцы, которые связь между двумя.На вкладкеДанные частичного (выборочного) разрыва
-
есть). c1 = 0 FormulaOld = CLL.FormulaR1C1 r1 = CLL.row If Case «]» = 0 Sboy Each c In: Принеси файл к
-
означает, что не.Type могут быть использованы
-
таблицами на основеНажмите кнопкуДанныев группе связей в ЭКСЕЛЬ????Подобные пропущенные формулы Then c1 = ‘ Стиль формул
End If If If Status = = False LenFormula Sh.UsedRange.Cells If c.HasFormula тому у кого
может быть несколькоСводная таблица теперь сортирует(Тип) нажмите для создания пути совпадающих данных вНе обновлятьв группеПодключенияXXXXXL
-
можно будет потом Val(sNum) Else c2 R1C1 FormulaNew = LinkPostFix Like «*:RC» 2 Then Status
-
= Len(FormulaOld) For Then c.FormulaR1C1 = есть Excel 2003-2007
-
нулей в столбце каждую комбинацию «месяцData
-
от одной таблицы них. Затем можно. Обновление из источника
Подключениянажмите кнопку: Всем доброго дня. заменить вручную. = Val(sNum) End «» If InStr(1, Then r2 = = 3 Else i = 1 Links_To_Constants(c.FormulaR1C1) End If удали связи сохрани подстановок. и год» (октябрьДанные). к другой создать листы Power при отсутствии подключения
«Могут потребоваться связи между таблицами»
нажмите кнопкуИзменить связи Админ, точно такуюС уважением, Гульмира If UslC = FormulaOld, MyFileName) > CLL.row: c2 = Sboy = True
To LenFormula sTmp Next c Next и бегом обратноТипы данных столбца подстановок 2011, ноябрь 2011)В разделеВы узнаете, существуют ли View или сводные к нему невозможно.Изменить связи.
Шаг 1. Определите, какие таблицы указать в связи
же тему разместилAlenaZ False End If 0 Then LenFormula CLL.Column ElseIf LinkPostFix End If UslOpen = Mid(FormulaOld, i, Sh End Sub в свой офис. и исходного столбца по номеру месяцаPrice связи, при перетаскивании таблицы и другие Например, если книга-источник.Примечание: у формулистов, предполагаю: Добрый день форумчане! sNum = «»
= Len(FormulaOld) For Like «*:R*C» Then = False Case 1) Select Case Function Links_To_Constants(FormulaOld) As Думаю должно получиться! должны быть совместимы. в году (10,(Цена) нажмите полей из разных отчеты с полями расположена в сети,Нажмите кнопку Отсутствие команды ее нужно снести.Нужна ваша помощь. End If End i = 1 c2 = CLL.Column «!» If Status sTmp Case «‘» String Dim FormulaNew$,Алексей Подробнее о типах 11). Изменить порядокFree таблиц в список из каждой таблицы, а подключение кЗапрос на обновление связейИзменить связиу кого какие Есть много файлов. If Next j To LenFormula sTmp ElseIf LinkPostFix Like = 3 Then If Status = sTmp$, sLink$ Dim
Шаг 2. Найдите столбцы, которые могут быть использованы для создания пути от одной таблице к другой
: Уже проверял - данных см. в сортировки несложно, потому(Бесплатно). полей сводной таблицы. даже если они сети отсутствует..означает, что файл есть соображения по
В них есть LinkSuffix = LinkSuffix2 = Mid(FormulaOld, i, «*:RC*» Then r2 Status = 4 0 Then Usl LinkNumber, i%, Usl этот вариант работает, статье Типы данных что каналНайдите Если вам не получены из различныхНажмите кнопкуВыберите нужный режим. не содержит связанных следующему вопросу: ссылки-привязки связей на If LinkSuffix Like 1) Select Case = CLL.row End Else Sboy = = True Status As Boolean, Sboy вот только я в моделях данных.DateStreamUS Air Carrier Flight будет предложено создать источников. Например, еслиНе обновлятьПримечание: данных.Условие: В одну другие книги. Раньше «RC:R*» Then If
sTmp Case «‘» If If UslArray True End If
-
= 1 End As Boolean, Status%, создал этот файлПодробнее о связях таблицпредоставляет все необходимые Delays связь, то в у вас есть. Даже если запретить ExcelВ списке ячейку, допустим B3 эти связи были r2 = 0
-
If Status = Then FormulaNew = Case «R» If If Case «[« LenFormula% FormulaNew = для дальнейших работ см. в статье
столбцы для работыи нажмите Excel уже есть данные о продажах
Нажмите кнопку
support.office.com
Excel не разрывает связь с внешней книгой (Формулы/Formulas)
выдавать запрос наИсточник идут связи с нужны. А теперь Then r2 = 0 Then Usl FormulaNew & «{« Status = 4 If Not Usl «» If InStr(1, и перспектива каждый Связи между таблицами этого сценария. ЕслиSelect сведения, необходимые для
клиентам, вам можетНе обновлять обновление связей, пользовательвыберите связь, которую
трех книг, при часть книг были r1 If c2
= True Status If r2 < Then Status =
Then Status = FormulaOld, «[«) >
раз выбегать из в модели данных. вы используете другую(Выбрать). связи данных. потребоваться импортировать и. Если не требуется будет получать сообщения
требуется разорвать. разрыве связи хотя
удалены(т.к. перестали быть
= 0 Then
= 1 End r1 Then k 5 End If
1 End If 0 Then Usl офиса для обработки
К началу страницы
таблицу логики операцийПрокрутите вниз и нажмите
Создание связей подобно использованию связать данные логики
получение текущих данных,
о наличии разорванныхДля выделения нескольких связанных
бы одной из нужными данные из c2 = c1
If Case «[« = r2: r1
Case «C» If Case «]» If = False Status ведет к потереrogert со временем, вашиSelect Query команд vlookup. Необходимы операций со временем,
можно сэкономить время, связей объектов, удерживайте нажатой
excelworld.ru
Как в Excel 2000 можно разорвать связь с листом?
этих книг, в них). И теперь r1 = CLL.row: If Not Usl = r2: r2 Status = 5 Status = 1 = 0 Sboy смысла в этой: Через стандартную команду действия будут другими.(Запрос на выборку). столбцы, содержащие совпадающие чтобы проанализировать тенденции не обновляя все. клавишу CTRL и ячейке В3 остается при открытии файла c1 = CLL.Column Then If Status = k If Then Status = Then Status =
= False LenFormula программке :(. «Разорвать связь» вПо мере добавления полейНажмите кнопку
данные, так что продаж по годам связи. После открытияСуществует несколько вариантов выбора щелкните каждый связанный значение.
выдаёт ошибку при ElseIf LinkSuffix Like
= 0 Then
c2 < c1 6 End If 2 End If = Len(FormulaOld) ForМожет кто знает меню данные, ничего
в сводную таблицуДалее Excel может создавать
и месяцам. книги нажмите на в диалоговом окне
объект.Вопрос: Как разорвать
обновлении связей. И «R*C:*» Then If Status = 1 Then k = Case «:» If Case «!» If i = 1 вариант попроще? не происходит, связь вы получите уведомление. перекрестные ссылки дляВсе таблицы в книге вкладкеЗапрос на обновление связейЧтобы выделить все связи,
одну (две, …) приходится в ручную c2 = 0 End If If c2: c1 = Status = 6 Status = 2 To LenFormula sTmp
slan с внешней книгой о необходимости связиНажмите строк из одной указываются в спискахДанные. нажмите клавиши CTRL+A. связи, при этом разрывать связи с Then c2 =
Status > 3 c2: c2 =
Then UslArray = Then Status = = Mid(FormulaOld, i,
: выбегать — это как висела так между таблицами, чтобы
Готово таблицы на строки
полей сводной таблицыв группеНа вкладке
Щелкните элемент в ячейке В3
теми книгами , c1 c1 = Then UslOpen =
k For k True End If 3 Else Sboy 1) Select Case
надеюсь образно? и висит. И разобраться с полями,для импорта данных. другой таблицы. В
и Power View.ПодключенияДанныеРазорвать
1)_осталась ссылка на которые были удалены, CLL.Column ElseIf LinkSuffix True End If
= r1 To Case «-» If = True End sTmp Case «‘»Алексей
из списка связей выбранными в сводной При быстром подключении
примере с логикойПри импорте связанных таблицкнопку
в группе.
книгу не разорванной
и теперь не
Like «RC*:*» Then Case «.» If
r2 For n Not UslOpen Then
If Case «:»
If Status =
: {quote}{login=slan}{date=30.01.2008 03:49}{thema=}{post}выбегать - в том же таблице. к Интернету импорт операций со временем
из реляционной базыИзменить связиПодключенияЕсли ссылка используется определенный связи, разорванные связи
planetaexcel.ru
Разрыв внешних связей без исчезновения формул
существуют. Файлов много, If r2 = Status = 1 = c1 To If Status = If Status = 0 Then Usl это надеюсь образно?{/post}{/quote меню данные -Хотя Excel может подсказать
займет около 15 минут. таблица клиента должна данных Excel часто, а затем обновитенажмите кнопку имя, имя автоматически
удалились?; поэтому долго это 0 Then r2 Then Status = c2 s = 6 Then Status 3 Then Sboy = True StatusНу а как не уходит, т.е.
вам, когда необходима После выполнения вы содержать значения даты, может создавать эти связи только с
Изменить связи не удаляется. Может2)_осталась ссылка на в ручную удалять. = r1 r1 2 End If
sLink & «R» = 7 ElseIf = True End = 1 End поступать? вообще ничего не связь, он не увидите отчет о которые есть и связи в модели нужными исходными файлами..
потребоваться удалить имя книгу не разорваннойМожно ли как = CLL.row End Case «]» If & Format(k) & Status > 4 If Case «
If Case «[«Постом выше к
происходит когда щелкаешь
может подсказать, какие
состоянии перемещения 2 427 284
в таблице логики данных, формируемой вНажмите кнопкуНажмите кнопку также, выполнив следующие связи, разорванные связи то сделать макрос If If LinkSuffix Status = 2 «C» & Format(n) Then Sboy = «, «+», «-«, If Not Usl стати то же «разорвать связь». таблицы и столбцы строк. Нажмите операций со временем. фоновом режиме. ВНе обновлятьЗапрос на обновление связей действия: остались значениями? и с помощью Like «*:RC» Then Then Status = LinkNumber = ExecuteExcel4Macro(s) True End If «/», «*», «^», Then Status = моя тема…igrtsk использовать, а такжеЗакрытьВ модели данных связи других случаях необходимо. Обратитесь к владельцу.На вкладкеXXXXXL него удалять испорченные r2 = CLL.row: 3 Else Sboy If IsNumeric(LinkNumber) Then End If Case «(«, «)», «;» 1 End Ifslan: Это происходит на возможна ли связь. Теперь у вас таблиц могут быть создавать связи вручную. книги. Вы такжеЩелкнитеФормулы: кто с макросом связи с теми c2 = CLL.Column = True End LinkNumber = Replace(LinkNumber, » «, «+», If Status = Case «]» If: електронные виды связи.. разных машинах или между таблицами. Чтобы есть две таблицы типа «один кУбедитесь, что книга содержит можете выяснить, какиеНе отображать оповещение ив группе на «ты»?, сможете удалёнными книгами. А ElseIf LinkSuffix Like If UslOpen = «,», «.») Else «/», «*», «^», 3 Then Status Status = 1Алексей на одном ПК? получить ответы на в модели данных. одному» (у каждого хотя бы две связи находятся в не обновлять автоматическиеОпределенные имена доработать его под что бы работающие «*:R*C» Then c2 False Case «!» LinkNumber = «»»» «(«, «)», «,», = 4 ElseIf Then Status =: Пытаюсь испробовать всеrogert свои вопросы, попробуйте Чтобы связать их, пассажира есть один таблицы и в
книге. На вкладке связинажмите кнопку мои нужды, для связи оставались на = CLL.Column ElseIf If Status = & LinkNumber & «;» If Status
Status = 2 2 End If методы :)))
: На разных машинах сделать следующее. нужны совместимые столбцы посадочный талон) или каждой из нихДанные.Диспетчер имен частичного разрыва связей? месте!
LinkSuffix Like «*:RC*» 3 Then Status
«»»» End If = 6 Then Then Sboy = Case «!» IfGuest одно и тоже
Если ваша модель содержит в каждой таблице. «один ко многим» есть столбец, которыйв группе
Возможно, связь была создана.XXXXXLЗаранее большущее спасибо! Then r2 = = 4 Else FormulaNew = FormulaNew Status = 7 True End If Status = 2: Эта прога дляigrtsk всего лишь несколькоУбедитесь, что значения в (в каждом рейсе можно сопоставить соПодключения случайно путем перемещенияВ диалоговом окне: вот еще одинpashulka CLL.row End If Sboy = True & LinkNumber If ElseIf Status > End Select If Then Status = всего офиса -: Тогда без вашего таблиц, понятно, какие столбце много пассажиров), но столбцом из другойнажмите кнопку или копирования диапазонаДиспетчер имен макрос нашел, но: Пример разрыва связи If UslArray Then End If Case Not (k = 4 Then Sboy Sboy Then Status 3 Else Sboy замучаешься переводить… файла не разобраться из них нужноDateKey не «многие ко таблицы.Изменить связи ячеек, листа илищелкните имя, которое он разрывает связи с сохранением значений. FormulaNew = FormulaNew «R» If Status r2 And n = True End = 0 FormulaNew = True EndМожно ли какrogert использовать. Но дляв таблице многим». Связи «многиеОтформатируйте данные в виде. диаграммы из одной нужно изменить. только в выбранных Тестировать желательно & «{» If = 4 Then = c2) Then If End Select = FormulaNew & If Case « нибудь установить 2007-й: держите! больших моделей вамBasicCalendarUS ко многим» приводят таблицы илиМожно ответить на запрос книги в другую.Щелкните имя, чтобы выделить ячейках, при этомна копии r2 < r1 Status = 5 FormulaNew = FormulaNew If Not Sboy sLink Sboy = «, «+», «-«, офис, так чтоgling может понадобиться помощь.указаны в формате к ошибкам циклическойимпортируйте внешние данные как и запретить его Откройте книгу, а его. заменяет все накниги. Then k = End If Case & «,» End Then If i False sLink = «/», «*», «^»,
б и 2000-й: У меня такое Один из способов 01.01.2012 00:00:00. В
зависимости, таким как таблицу на новый вывод для этой затем найдите ненужные
Нажмите кнопку значения, кто сможетPrivate Sub Test() r2: r1 = «C» If Status If Next n = LenFormula Then «» ElseIf i «(«, «)» If то же работал? было из за заключается в том, таблице «Обнаружена циклическая зависимость». лист. книги в будущем. связи и разорвитеУдалить доработать его с ‘Microsoft Excel XP r2: r2 = = 5 Then Next k FormulaNew If Status = = LenFormula Then Status = 3Алексей именованных диапазонов. Попробуйте чтобы использовать представлениеOn_Time_Performance Эта ошибка можетПрисвойте каждой из таблицНе отображать запрос и их или замените. частичным (выборочным) разрывом iArr = ActiveWorkbook.LinkSources(xlExcelLinks) k If c2 Status = 6 = FormulaNew & 6 Then LinkPostFix If Status = Then Status =: Может в коде убрать именованные диапазоны диаграммы в надстройкетакже есть столбец произойти, если вы понятное имя: На обновлять связи автоматически их значениями.Нажмите кнопку связи? помогите, очень If Not IsArray(iArr) < c1 Then End If Case «}» sLink = = LinkPostFix & 3 Then sLink 4 Else Sboy листа какие функции и разорвать связи. Power Pivot. Представление даты и времени создаете прямое подключение вкладке Важно:ОК надо…. Then Exit Sub k = c2: «:» If Status «» Else If sTmp sTmp = = sLink & = True End прописать… :( Сам попробовал не диаграммы обеспечивает визуализациюFlightDate между двумя таблицамиРабота с таблицамиЭтот параметр влияет на При разрыве связей с.200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ВставитьЗначения2() For Each tmp c1 = c2: = 6 Then LinkPostFix = «RC» «» Status = sTmp LinkNumber = If End Selectslan получилось. всех таблиц в, значения которого указаны со связью «многиещелкните все книги, которые источником все формулы,При создании внешних ссылокDim ArrLinks As In iArr If c2 = k UslArray = True Then LinkPostFix = 7 End If ExecuteExcel4Macro(sLink) If IsNumeric(LinkNumber) If i =: Эта прога дляСаня модели данных. С в том же ко многим» илиКонструктор открываются на компьютере. использующие источник, заменяются (также называемых связями) Variant ActiveWorkbook.LinkInfo(tmp, xlLinkInfoStatus) = For k = End If Case «R» & Format(CLL.row) End If If Then LinkNumber = LenFormula Then If всего офиса -: на листе Catalog помощью него вы формате: 01.01.2012 00:00:00. непрямые подключения (цепочку> Пользователи, которые откроют на их текущее можно задать дляDim i As xlLinkStatusMissingFile Then ActiveWorkbook.BreakLink r1 To r2 «-» If Not & «C» & Status = 7 Replace(LinkNumber, «,», «.») Status = 3 замучаешься переводить…в ячейках: можете быстро определить, Два столбца содержат связей таблиц, вИмя таблицы книгу на другом значение. Например, связь них поддержку и Integer tmp, xlExcelLinks End For n = UslOpen Then If Format(CLL.Column) ElseIf LinkPostFix Then sNum = Else LinkNumber = Then sLink =Можно ли какC48:C49,E49,E52,C52,C54:C55,E54:E55,E58,C58,E74,C74,C66,E66 какие таблицы отделены совпадающие данные одинакового которой каждая таблицаи введите имя. компьютере, не будут =СУММ([Бюджет.xls]Годовой!C10:C25) будет заменена расписание обновления. ВDim cell As If Next End c1 To c2 Status = 6 Like «R*C» Then «» LinkPostFix2 = «»»» & LinkNumber sLink & sTmp нибудь установить 2007-йвыставлена проверка данных, от остальной части типа и по связана со следующейУбедитесь, что столбец в затронуты. на =45. Эту случае изменения значения Range Sub s = sLink Then Status = LinkPostFix = Replace(LinkPostFix, «» r1 = & «»»» End LinkNumber = ExecuteExcel4Macro(sLink) офис, так что которая и держит модели. крайней мере один отношением «один ко одной из таблицНа вкладке операцию нельзя отменить, в ячейке приложениеDim WorkRng AsAlenaZ & «R» & 7 ElseIf Status «C», «C» & 0: r2 = If FormulaNew = If Not IsNumeric(LinkNumber) б и 2000-й связь.Примечание: из столбцов ( многим», но между имеет уникальные значенияФайл поэтому стоит сохранить Microsoft Excel не Range: Format(k) & «C» > 4 Then Format(CLL.Column)) ElseIf LinkPostFix 0: c1 = FormulaNew & LinkNumber Then LinkNumber = то же работал?{/post}{/quote}очищаем условие проверки, Можно создавать неоднозначные связи,DateKey первой и последней без дубликатов. Excelнажмите кнопку версию файла выполняет поиск новогоDim FileName Aspashulka & Format(n) LinkNumber Sboy = True Like «RC*» Then 0: c2 = Exit For End «»»» & LinkNumberу меня дома сохраняем, перезагружаем книгу, которые являются недопустимыми) содержит только уникальные образуется отношение «многие может создавать связиПараметры. значения, если это String, огромные спасибки. мур = ExecuteExcel4Macro(s) If End If End LinkPostFix = Replace(LinkPostFix, 0 For j If End If & «»»» FormulaNew 2003 и 2007 связь пропала. при использовании в значения. В следующих ко многим»). Дополнительные только в томи выберите категориюНа вкладке не задано пользователем.On Error Resume мур! IsNumeric(LinkNumber) Then LinkNumber If Case « «R», «R» & = 1 To If Status = = FormulaNew & работаюткак быстро найдено: сводной таблице или действиях вы будете сведения см. в случае, если одинДополнительноДанныеКнига, содержащая связи, называется NextXXXXXL = Replace(LinkNumber, «,», «, «+», «/»,
Format(CLL.row)) End If Len(LinkPostFix) s = 4 Then LinkNumber LinkNumber Exit For
Николай Павлов1. открываем копию отчете Power View. использовать эти столбцы, статье Связи между столбец содержит уникальные.в группе
книгой назначения, аIf TypeName(Selection) <>: Всем доброго дня.
«.») Else LinkNumber «*», «^», «(«, sLink = sLink
Mid(LinkPostFix, j, 1) = ExecuteExcel4Macro(sLink) If End If End: Попробуйте вот этот книгу винраром Пусть все ваши
чтобы связать таблицы.
таблицами в модели значения.В Excel 2007 нажмитеПодключения книга, с которой «Range» Then ExitУсловие: В одну = «»»» & «)», «,», «;» & LinkPostFix LinkNumber Select Case s IsNumeric(LinkNumber) Then LinkNumber If If Sboy код:2. находим и таблицы связаны каким-тоВ окне Power Pivot данных.Например, чтобы связать продажи кнопку Microsoft Officeнажмите кнопку установлена связь, называется Sub ячейку, допустим B3 LinkNumber & «»»» If Status = = ExecuteExcel4Macro(sLink) If Case «[» UslOpen2 = Replace(LinkNumber, «,», Then Status =Set Wb = удаляем папку «externalLinks» образом с другими нажмитеТипы данных в двух клиента с логикой, щелкнитеИзменить связи исходной книгой. ЕслиArrLinks = ThisWorkbook.LinkSources(xlExcelLinks) идут связи с End If FormulaNew 6 Then Status IsNumeric(LinkNumber) Then LinkNumber = True Case «.») Else LinkNumber 0 FormulaNew = ActiveWorkbook3. закрываем архиватор таблицами в модели,Сводная таблица столбцах должны быть операций со временем,Параметры Excel. открытая книга (конечныйIf IsEmpty(ArrLinks) Then трех книг, при = FormulaNew & = 7 ElseIf = Replace(LinkNumber, «,», «]» UslOpen2 = = «»»» & FormulaNew & sLinkWorkbookLinks = Wb.LinkSources(Type:=xlLinkTypeExcelLinks)4. открываем файл но при попытке, чтобы создать сводную совместимы. Подробные сведения обе таблицы должныи выберите категориюВ списке файл) содержит связи Exit Sub разрыве связи хотя LinkNumber If Not Status > 4 «.») Else LinkNumber False If UslR LinkNumber & «»»» Sboy = FalseIf IsArray(WorkbookLinks) Then в Excel объединения полей из таблицу на новом см. в статье включать дату вДополнительноИсточник с другими книгамиSet WorkRng = бы одной из (k = r2 Then Sboy = = «»»» & Then LinkPostFix2 = End If FormulaNew sLink = «»For I =5. Excel ругается, разных таблиц вы или существующем листе. Типы данных в одинаковом формате (например,.выберите связь, которую или файлами (которые Selection.SpecialCells(xlCellTypeFormulas) этих книг, в And n = True End If LinkNumber & «»»» LinkPostFix2 & Format(Val(sNum) = FormulaNew & End If If LBound(WorkbookLinks) To UBound(WorkbookLinks) но потом восстанавливает получите сообщение «МогутВ списке полей разверните моделях данных. 01.01.2012) и поВ разделе требуется разорвать. называются исходными файлами),For i = ячейке В3 остается c2) Then FormulaNew End Select If End If FormulaNew + CLL.row) If LinkNumber & sTmp Status = 4Wb.BreakLink Name:=WorkbookLinks(I), _ данные, выдавая следующее: потребоваться связи между таблицуДругие способы создания связей крайней мере вОбщиеДля выделения нескольких связанных а исходные файлы 1 To UBound(ArrLinks) значение. = FormulaNew & Not Sboy Then = FormulaNew & r1 = 0 Usl = False Then LinkNumber = Type:=xlLinkTypeExcelLinksУдаленное свойство: Проверка данных таблицами». Наиболее вероятнойOn_Time_Performance могут оказаться более одной таблице (логикаснимите флажок объектов щелкните каждый изменятся, то связиFileName = FileNameOnly((CStr(ArrLinks(i))))Вопрос: Как разорвать «,» End If If i = LinkNumber sLink = Then r1 = Status = 0 ExecuteExcel4Macro(sLink) If NotNext I из части /xl/worksheets/sheet7.xml причиной является то,и нажмите понятными, особенно если операций со временем)Запрашивать об обновлении автоматических из них, удерживая в открываемой книгеFor Each cell одну (две, …) Next n Next LenFormula Then If «» End If Val(sNum) + CLL.row sLink = «» IsNumeric(LinkNumber) Then LinkNumberend if6. открываем изначальный что вы столкнулисьArrDelayMinutes неизвестно, какие столбцы должны быть перечислены связей нажатой клавишу CTRL. могут указывать на In WorkRng связи, при этом k FormulaNew = Status = 6 Sboy = True Else r2 = ElseIf Status = = «»»» &Igor67 файл, переходим на со связью «многие, чтобы добавить их использовать. Дополнительные сведения все даты только. Если этот флажокЧтобы выделить все связи, устаревшие данные.If InStr(1, cell.Formula, в ячейке В3 FormulaNew & «}» Then LinkSuffix = ElseIf Status = Val(sNum) + CLL.row 0 Then FormulaNew LinkNumber & «»»»: А разве в 7-й лист и ко многим». Если в область значений. см. в статье один раз в снят, связи будут нажмите клавиши CTRL+A.1. Конечная книга содержит FileName) Then cell.Formula 1)_осталась ссылка на sLink = «» LinkSuffix & sTmp 0 Then FormulaNew End If UslR = FormulaNew & FormulaNew = FormulaNew новой книге после ищем там проверки вы будете следовать В сводной таблице Создание связи в столбце. обновляться автоматически (безЩелкните элемент внешние ссылки. = cell.Value книгу не разорванной Else If LinkSuffix sTmp = «» = FormulaNew & = False ElseIf sTmp Else sLink & LinkNumber & СПЕЦИАЛЬНОЙ ВСТАВКИ СВЯЗИ данных (Ctrl+G, выделить, цепочке связей между вы увидите общее представлении диаграммы вЩелкните выдачи запроса).Разорвать2. Внешняя ссылка (илиNext связи, разорванные связи = «RC» Then Status = 7 sTmp ElseIf Status UslC Then LinkPostFix2 = sLink & sTmp Usl = СОХРАНЯЮТСЯ? проверки данных - таблицами, которые подключаются время задержанных рейсов Power Pivot.ДанныеОдинаковый запрос для всех. связь) представляет собойNext удалились?; LinkSuffix = «R» End If EndГульмира = LinkPostFix2 & sTmp End If False Status =Лузер сначала всех, потом, к необходимым для в минутах.Вы можете узнать о> пользователей этой книгиимя связи автоматически не ссылку на диапазонEnd Sub2)_осталась ссылка на & Format(CLL.row) & If If Status: 2-я версия макроса Format(Val(sNum) + CLL.Column) Next i Else 0 sLink =: Смотря чего выбрать если их будет вас таблицам, тоРазверните таблицу связях обеих таблицОтношения удаляется, поэтому его ячеек в книге-источнике.Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Function FileNameOnly(fname книгу не разорванной «C» & Format(CLL.Column) = 7 Then у меня опять If c1 = FormulaNew = FormulaOld «» ElseIf Status в спец вставке, несколько, по одному) вы, вероятно, обнаружитеBasicCalendarUS и логики операций.Предупреждение: может потребоваться удалить.3. Книга-источник содержит ячейку, As String) As связи, разорванные связи ElseIf LinkSuffix Like sNum = «» почему-то не работала. 0 Then c1 End If If = 0 Then если значения, тоrogert наличие двух илии нажмите со временем сЕсли команда Этот режим влияет наУдаление имени значение из которой
String остались значениями? «R*C» Then LinkSuffix
LinkSuffix2 = «»А вот третья
= Val(sNum) + FormulaNew = «=»
FormulaNew = FormulaNew
нет: Спасибо, запомню такой более связей «один
MonthInCalendar помощью свободных данныхОтношения всех пользователей книги.На вкладке
загружается и помещается’ Возвращает имяЗакрыто. Дубль.
= Replace(LinkSuffix, «C»,
CyberForum.ru
Разрыв ТОЛЬКО ошибочных связей в excel
r1 = 0: версия работает, но
CLL.Column Else c2 Then FormulaNew = & sTmp ElseГульмира метод! Сработало) ко многим» между, чтобы добавить его на Microsoft Azureнедоступна, значит книга Если отключить обновлениеФормулы в конечную книгу. файла fname безKoDeX «C» & Format(CLL.Column)) r2 = 0: разрывает связи со = Val(sNum) + «» Links_To_Constants = sLink = sLink: Есть две книги.Алексей
таблицами. Не существует в область строк. Marketplace. Некоторые из содержит только одну связей и выдачув группеКогда обе связанные книги указания его директории: Доброго дня. Вот
ElseIf LinkSuffix Like
c1 = 0:всеми CLL.Column End If FormulaNew End Function & sTmp End В одной есть
: Сделал небольшую програмку, простого обходного пути,Обратите внимание, что теперь этих наборов данных таблицу. запроса, пользователи этойОпределенные имена открыты на одномDim temp As не смог пока «RC*» Then LinkSuffix c2 = 0
внешними ссылками, а UslC = FalseДоработанная версия для If Next i ссылка на другие
CyberForum.ru
выборочный (частичный) разрыв связи (Формулы/Formulas)
в которой на который бы работал
в сводной таблице очень велики, иВ окне книги не будутнажмите кнопку компьютере, связи обновляются Variant найти на «Планете…» = Replace(LinkSuffix, «R»,
For j = нужно чтобы разрывалась End If sNum ссылок на диапазоны, Else FormulaNew = книги. В Excel нескольких листах идут в любой ситуации,
перечислены месяцы, но для их загрузкиУправление связями знать, что данные
Диспетчер имен
excelworld.ru
как разорвать связи в ячейке, но чтобы одна ссылка осталась?
автоматически. Когда конечнаяIf fname = этого, казалось бы «R» & Format(CLL.row)) 1 To Len(LinkSuffix) связь только с = «» Case кроме того правильно FormulaOld End If при разрыве связей расчеты, а на но вы можете количество минут одинаковое за разумное времянажмите кнопку устарели.. книга открыта, а «» Then FileNameOnly легкого, и неужели End If sLink s = Mid(LinkSuffix,
указанными. «R» UslR = обрабатываются относительные ссылки. If FormulaNew = происходит замена формул одном итоговая таблица. попробоватьсоздать вычисляемые столбцы, для каждого месяца. необходимо быстрое подключение
СоздатьНа вкладкеВ столбце книга-источник не открыта, = «»: Exit никому не нужного = sLink &
j, 1) SelectВ моем случае True LinkPostFix2 =Тем не менее, «=» Then FormulaNew со ссылками на Каждый раз расчеты чтобы консолидировать столбцы, Нужны одинаковые значения, к Интернету..ДанныеИмя
в области сведений Function решения следующей задачи
LinkSuffix LinkNumber = Case s Case с «книгой на
LinkPostFix2 & s функция СЧЕТЕСЛИ не = «» Links_To_Constants внешний источник текущим
разные и итоговая которые вы хотите указывающие на связь.
Запустите надстройку Power Pivot
В окнев группе
выберите имя, которое о документе возможноtemp = Split(fname, — в сводный
planetaexcel.ru
выборочный (частичный) разрыв связи (Макросы/Sub)
ExecuteExcel4Macro(sLink) If IsNumeric(LinkNumber) «[» UslOpen2 = которую» ссылки». Case «C» UslC срабатывает при замене = FormulaNew End
значением. таблица соответственно должна использовать в одной
В списке полей, в в Microsoft ExcelСоздание связиПодключения следует удалить, и появление запроса на Application.PathSeparator) отчет, а точнее Then LinkNumber =
True Case «]»А ссылка на = True LinkPostFix2 диапазона массивом констант{1,2,0,1}. FunctionМне же необходим меняться, поэтому решил таблице.
разделе «Могут потребоваться и откройте окнощелкните стрелку рядомнажмите кнопку
нажмите кнопку обновление связей. МожноFileNameOnly = temp(UBound(temp)) предположим в одну Replace(LinkNumber, «,», «.») UslOpen2 = False
«книга4» должна остаться = LinkPostFix2 &Sub Заменить_ссылки_константами_в_активной_книге() DimГульмира макрос, с помощью копировать лист сПосле того как вы связи между таблицами» Power Pivot. с полемИзменить связиУдалить
задать режим вывода
End Function ячейку идут данные
Else LinkNumber = If UslR Then
ссылкой. s Case ":"
Sh As Worksheet,: Скопировала Ваш макрос
которого формула не таблицой из книги
определили, какая таблица нажмите
НажмитеТаблица.
.
этого запроса, аКоды надо оформлять
из разных источников """" & LinkNumber
LinkSuffix2 = LinkSuffix2Буду очень признательная
LinkPostFix2 = LinkPostFix2
c As Range, в книгу, при
терялась, а заменялось для сохранения прошлых не связана с
Создать
Получение внешних данных
и выберите таблицу
Нажмите кнопкуЕсли используется диапазон внешних также режим обновления
тегами (кнопка #) (книга1, книга2, книга3), & «»»» End
& Format(Val(sNum) + если доработаете макрос
& s Case Formula On Local выполнении заменяется только только текущее значение
расчетов, а оставшийся остальной частью модели,
.
>
из раскрывающегося списка.Запрос на обновление связей
excelworld.ru
данных, параметр запроса
Надстройка PLEX для Microsoft Excel 2007-2021 и Office 365
Разорвать/Открыть связи с другими книгами
Разорвать все связи
Типичная ситуация: нужно быстро избавиться в файле от ссылок в формулах на другие книги Excel, заменив эти ссылки на значения. Это может быть необходимо для последующей пересылки файла клиенту (он не должен обновлять книгу), ускорения работы (не нужно время на обновление связей) и т.п.
Важные особенности:
- Это касается сразу всех внешних ссылок на всех листах и во всех формулах. Если хотите удалить ссылки на конкретные отдельные внешние файлы-источники, то используйте команду Изменить связи на вкладке Данные (Data — Edit Links). Если нужно заменить формулы на значения в конкретном диапазоне, то используйте макрос В значения.
- Внутренние ссылки между ячейками и листами остаются неизменными.
Зачем мне это может быть нужно?
Наверняка Вы получали по электронной почте книги Excel, при открытии которых они долго и мучительно пытаются обновить связи с другими файлами, которые Вам недоступны. Перед отправкой копии файла другому пользователю лучше разорвать связи. Тогда Вашему коллеге не придется при открытии файла отвечать на вопросы об обновлении связей и он не увидит ошибки #ССЫЛКА! вместо данных, которые Excel не может получить по связям на его компьютере.
Может ли это повредить мои данные?
Да, поскольку формулы необратимо заменяются на значения. Лучше проделывать эту операцию в копии файла перед ее отправкой другому пользователю.
Открыть все связи
Открываются все внешние файлы-источники, на которые есть ссылки в текущей книге. Если их много, то, возможно, придется подождать. Обычно такая процедура необходима для корректного обновления связей в файле (Excel плохо умеет обновлять данные из закрытых книг).
Открыть гиперссылки
Если выделить диапазон ячеек с адресами и нажать на эту кнопку, то все указанные сайты откроются на вкладках вашего обозревателя.
Обратите внимание, что ссылки должны быть правильно записаны (с http).
Полный список всех инструментов надстройки PLEX
Что такое внешние ссылки в Excel?
Внешние ссылки также известны как внешние ссылки в Excel, когда мы используем любую формулу в Excel и ссылаемся на любую другую книгу, кроме книги с формулой, тогда новая книга, на которую делается ссылка, является внешней ссылкой на формулу, простыми словами, когда мы даем ссылку или применяем формулу из другой книги, тогда это называется внешней ссылкой.
Если наша формула выглядит так, как показано ниже, то это внешняя ссылка.
‘C: Users Admin_2.Dell-PC Desktop : это путь к этому листу на компьютере.
[Внешний лист.xlsx]: это имя книги в этом пути.
Лист Vlookup: это имя рабочего листа в этой книге.
$ C $ 1: $ D $ 25: это диапазон на этом листе.
Типы внешних ссылок в Excel
- Ссылки на одном листе.
- Ссылки с разных листов, но из одной книги.
- Ссылки из другой книги
Вы можете скачать этот шаблон Excel для внешних ссылок здесь — Шаблон для внешних ссылок Excel
# 1- Ссылки на одном листе
Эти типы ссылок находятся на одном листе. В рабочей тетради много листов. Этот тип ссылок указывает только имя ячейки.
Например: если вы находитесь в ячейке B2 и если в строке формул отображается A1, это означает, что все, что происходит в ячейке A1, будет отражено в ячейке B2.
Хорошо, это всего лишь простая ссылка на том же листе.
# 2 — Ссылки с разных листов, но в одной книге
Эти типы ссылок находятся в одной книге, но с разных листов.
Например, в книге есть два листа, и прямо сейчас я нахожусь на листе 1 и даю ссылку с листа 2.
# 3 — Ссылки из другой книги
Этот тип ссылки называется внешними ссылками. Это означает, что это целиком из другой книги.
Например, если я даю ссылку из другой книги под названием «Книга1», то сначала будет показано имя книги, имя листа, а затем имя ячейки.
Как найти, отредактировать и удалить внешние ссылки в Excel?
Есть несколько способов найти внешние ссылки в книге Excel. Как только мы откроем рабочий лист, мы получим диалоговое окно, показанное ниже, прежде чем мы попадем внутрь книги, и это показатель того, что эта книга имеет внешние ссылки.
Хорошо, позвольте мне объяснить методы поиска внешних ссылок в Excel.
Метод №1: Использование метода поиска и замены с символом оператора
Если есть внешние ссылки, ссылка должна включать путь или URL-адрес ссылающейся книги. Один из общих для всех ссылок — символ оператора «[«,
Шаг 1: Выберите лист, нажмите Ctrl + F (ярлык для поиска внешних ссылок).
Шаг 2: Введите символ [ и нажмите «Найти все».
Результаты всех внешних ссылок будут показаны в том же диалоговом окне. Теперь вы можете выбрать все, удерживая клавишу Shift, преобразовать эти формулы в значения с помощью специальной опции вставки.
Примечание. Если ваши данные содержат символ [, то он также будет преобразован в значения.
Метод № 2: Использование метода поиска и замены с расширением файла
Ячейка с внешними ссылками включает имя книги, т.е. имя книги и тип книги.
Распространенные расширения файлов — .xlsx, .xls, .xlsm, .xlb.
Шаг 1: Выберите лист, нажмите Ctrl + F (ярлык для поиска внешних ссылок).
Шаг 2: Теперь введите .xlsx и нажмите «Найти все».
Это покажет все ячейки внешних ссылок.
Метод № 3: Использование опции редактирования ссылки в Excel
Это самый прямой вариант, который есть в Excel. Он будет выделять только внешнюю ссылку, в отличие от методов 1 и 2. В этом методе мы можем редактировать ссылку в Excel, разрывать или удалять и удалять внешние ссылки.
Параметр «Изменить ссылку» в Excel доступен на вкладке «Данные» .
Шаг 1. Выберите ячейки, которые вы хотите изменить, разорвать или удалить ячейки ссылки.
Шаг 2: Теперь нажмите « Изменить ссылки в Excel» . Здесь есть несколько вариантов.
- Обновить значения: это обновит все измененные значения из связанного листа.
- Изменить источник: это изменит исходный файл.
- Открытый исходный код: мгновенно откроется исходный файл.
- Разорвать ссылку: это приведет к безвозвратному удалению формулы, удалению внешней ссылки и сохранению только значений. Как только это будет сделано, мы не сможем его отменить.
- Проверить статус: это позволит проверить статус ссылки.
Примечание. Иногда, даже если есть внешний источник, эти методы ничего не показывают, но нам нужно вручную проверять графики, диаграммы, диапазоны имен, проверку данных, форматирование условий, заголовок диаграммы, фигуры или объекты.
То, что нужно запомнить
- Мы можем найти внешние ссылки, используя код VBA. Поищите в Интернете, чтобы узнать об этом.
- Если внешняя ссылка дана фигурам, нам нужно искать ее вручную.
- Ссылки на внешние формулы не будут отображать результаты в случае формул СУММЕСЛИ в Excel, СУММЕСЛИ и СЧЁТЕСЛИ. Значения будут отображаться только в том случае, если исходный файл открыт.
- Если в Excel все еще отображается запрос внешней ссылки, нам необходимо вручную проверить все форматирование, диаграммы, проверки и т. Д.
- Сохранение внешних ссылок будет полезно в случае автоматического обновления с другого листа.
Когда мы открываем файл с внешними ссылками, а они не существуют по какой-либо причине. Мы получаем сообщение об ошибке: «В настоящее время мы не можем обновить некоторые ссылки в вашей книге». Чтобы избежать этой ошибки, нам нужно изменить эти ссылки на исключить внешние ссылки в Excel .
Этот процесс совсем несложный, и мы научим вас двум довольно простым способам избавиться от внешних рефералов или ссылок простым способом и избежать этой ошибки. Следуйте этому пошаговому руководству, и у вас больше не будет проблем с этой темой.
Что такое внешняя ссылка или справочник?
Когда мы создаем формулу, которая имеет ссылку или ссылку на другой файл Excel. Программа напрямую связана с ним. Здесь используется функция » ВПР Что должно указывать на другой файл, чтобы найти результаты и вернуть значение.
Польза от этого очевидна. Когда у нас есть несколько связанных файлов и мы редактируем один из них, он автоматически изменяет значение каждого из них, без необходимости редактировать их по одному.
Проблема в том, что это зависит от того, чтобы не изменить расположение файла ссылки. В случае удаления файла или изменения его местоположения эта ошибка внешних ссылок появится в Excel.
Когда мы пытаемся открыть файл Excel с внешними ссылками, выскакивает окно с сообщением об ошибке: » В настоящее время мы не можем обновить некоторые ссылки в вашей книге. ».
Чтобы эта ошибка не появилась, необходимо будет приступить к удалению рассматриваемых ссылок. Если файл содержит несколько формул, не так сложно найти такую же, чтобы удалить ее. Однако когда у нас есть более сложная книга с сотнями формул, это может стать загадкой.
Это можно сделать относительно просто. У нас есть два инструмента для поиска внешних ссылок и их устранения. Эти инструменты: поиск и изменение ссылок.
Ячейки с внешними ссылками содержат расположение другого файла Excel. Это означает, что у них всегда будет одно и то же расширение, которое может быть: xlsx, xlsm, xlsb , И т.д. Поэтому мы воспользуемся инструментом поиска, чтобы найти расширение.
- Для этого мы перейдем на вкладку » Démarrer »Затем нажмите на опцию» Найдите и выберите ». Сейчас мы идем » поиск ».
- Появляется небольшое окно, в котором нам нужно будет добавить » * .XL * «Без кавычек в поле поиска .
- Теперь нажимаем на кнопку » Искать все И мы можем найти все ячейки, которые имеют внешние ссылки.
Найдите внешние ссылки со ссылками на редактирование
Если вы предпочитаете использовать этот инструмент » Редактировать ссылки » , он также довольно прост в использовании и дает хорошие результаты.
- Щелкаем по вкладке » Данные ».
- Теперь нам нужно идти в группе » Связи «И здесь мы найдем вариант» Редактировать ссылки ».
- Откроется небольшое окно, в котором вы найдете внешние ссылки на файл.
- Все, что вам нужно сделать, это выбрать указанную ссылку и затем нажать кнопку с надписью » Разрыв связи ».
- В этом случае мы рекомендуем вам быть очень осторожными, потому что если вы разорвите ссылку, ее уже нельзя будет отменить.
Поэтому рекомендуется, если вы работаете с файлами, которые содержат ссылки на другие документы, перед их совместным использованием удалите ссылки и преобразовайте их в значения. Таким образом, ошибок не будет.
Если вы получили файл, вы можете выполнить действия, указанные в этой статье, чтобы эта ошибка больше не появлялась.