Как разорвать связи в excel
Перейти к содержимому

Как разорвать связи в excel

  • автор:

КАК В EXCEL РАЗОРВАТЬ СВЯЗИ

В Microsoft Excel есть возможность разорвать связи между ячейками или диапазонами данных. Отсоединение связей может понадобиться, когда вам требуется сохранить только значения из ячеек, а не ссылки на другие ячейки. Для разрыва связей в Excel вы можете воспользоваться функцией «Вставить только значения».

Чтобы разорвать связи, выполните следующие шаги:

  1. Выделите ячейки или диапазон данных, в котором хотите разорвать связи.
  2. Щелкните правой кнопкой мыши и выберите «Копировать» или используйте комбинацию клавиш Ctrl+C.
  3. Выберите место назначения, куда хотите вставить только значения, и щелкните правой кнопкой мыши.
  4. В контекстном меню выберите «Вставить специально» (или «Paste Special»).
  5. В открывшемся окне выберите опцию «Только значения» (или «Values») и нажмите «ОК».

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

Разрыв связей полезен, когда вам необходимо избежать случайного изменения данных вам, например, при копировании документа в другой файл или отправке его по электронной почте. Вместо этого, вы можете сохранить только значения, чтобы убедиться, что данные остаются неизменными.

Примеры использования функции ДВССЫЛ (INDIRECT)

Обновление связи Excel между файлами

Эксель. Разорвать связи.

Связь листов Excel

Удаление не рвущихся связей в Excel

Консолидация (сборка) данных из нескольких таблиц в Excel

Михаил Захаров

Я являюсь сертифицированным специалистом по Excel с многолетним опытом работы, помогающим пользователям улучшать и оптимизировать их работу с данными. В качестве консультанта, я провел сотни часов, обучая людей использованию сложных функций и возможностей Excel, помогая им стать более продуктивными и эффективными. Моя страсть к обучению и стремление помогать другим достигать профессиональных высот вдохновляют меня продолжать делиться знаниями и опытом через обучающие курсы и материалы.

Вам также может понравиться:

КАК РАЗОРВАТЬ СВЯЗИ В EXCEL

Excel — мощный инструмент для работы с данными, который позволяет создавать сложные связи между ячейками и диапазонами. Однако, иногда может возникнуть необходимость в разрыве этих связей. Рассмотрим несколько способов разрыва связей в Excel.

1. Удаление формул

Самый простой способ разорвать связи в Excel — удалить формулы. Для этого выделите ячейки или диапазоны с формулами, затем нажмите правую кнопку мыши и выберите «Копировать». Затем, щелкнув правой кнопкой мыши, выберите «Специальная вставка» и выберите вариант «Значения». Это заменит формулы на их значения, разрывая связи.

2. Замена ссылок на значения

Если вам нужно сохранить форматирование ячеек, но при этом разорвать связи, можно заменить ссылки на значения. Для этого выделите ячейки или диапазоны с формулами, затем нажмите комбинацию клавиш «Ctrl + H» для открытия окна «Найти и заменить». В поле «Найти» введите «=», а в поле «Заменить» — ничего не вводите. Нажмите «Заменить все», чтобы заменить все ссылки на значения. Это поможет разорвать связи, сохраняя при этом внешний вид ячеек.

3. Удаление зависимостей

Если вы хотите разорвать только конкретные связи в Excel, можете воспользоваться функцией «Отслеживание зависимостей». Выделите ячейку с формулой, затем выберите на верхней панели меню вкладку «Формулы» и нажмите на кнопку «Отслеживание зависимостей». Это отобразит все зависимые ячейки. Щелкните правой кнопкой мыши на конкретной связи и выберите «Удалить стрелку зависимости», чтобы разорвать связь.

Разрыв связей в Excel может быть полезным, когда необходимо отделить данные от их исходных ссылок. Удаление формул, замена ссылок на значения и удаление зависимостей — три эффективных способа разорвать связи в Excel.

Бессмертные ссылки на ячейки в Excel. Как избежать ошибок при удалении и добавлении ячеек.

Эксель. Разорвать связи.

Урок 4: Связь между рабочими листами и книгами Excel. Совместное использование данных.

Почему связь между мужчиной и женщиной после расставания длится 7 лет.

Обновление связи Excel между файлами

Связь листов Excel

Объясню как удалить формулу из ячеек Excel. Уроки Эксель

Как удалить формулу в Excel, но оставить значения

Михаил Захаров

Я являюсь сертифицированным специалистом по Excel с многолетним опытом работы, помогающим пользователям улучшать и оптимизировать их работу с данными. В качестве консультанта, я провел сотни часов, обучая людей использованию сложных функций и возможностей Excel, помогая им стать более продуктивными и эффективными. Моя страсть к обучению и стремление помогать другим достигать профессиональных высот вдохновляют меня продолжать делиться знаниями и опытом через обучающие курсы и материалы.

Вам также может понравиться:

Разрыв связи с внешним ресурсом в Excel

Изменить ссылки

  1. На вкладке Данные в группе Подключения нажмите кнопку Изменить связи.

Примечание: Отсутствие команды Изменить связи означает, что файл не содержит связанных данных.

  • Чтобы выделить несколько связанных объектов, удерживая нажатой клавишу CTRL, щелкните каждый связанный объект.
  • Чтобы выделить все связи, нажмите клавиши CTRL+A.

ТБД. Удаление имени определенной ссылки

Если ссылка использовала определенный имя, имя не удаляется автоматически. Вы также можете удалить имя, выполнив следующие действия:

  1. На вкладке Формулы в группе Определенные имена нажмите кнопку Диспетчер имен.
  2. В диалоговом окне Диспетчер имен щелкните имя, которое нужно изменить.
  3. Щелкните имя, чтобы выделить его.
  4. Нажмите кнопку Удалить.
  5. Нажмите кнопку ОК.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

Как в excel разорвать связи

​Смотрите также​​ трех книг, при​ не тестировал, но​Timber_Wolf​ связь — Разорвать​ данные, выдавая следующее:​ в excel.​: Привет всем! Может​ удалять связи после​ новом листе все​ ActiveWorkbook​ ссылается. Проблема в​ использоваться в качестве​ открыть окно Power​после ссылка не​связи​Смена источника​Примечание:​ разрыве связи хотя​ есть подозрение, что​:​

​ — ОК.​Удаленное свойство: Проверка данных​KuklP​ подскажите, как можно​ создания отчета -​ данные и формулы.​WorkbookLinks = Wb.LinkSources(Type:=xlLinkTypeExcelLinks)​ том, что он​ ключей, некоторые связи​ Pivot и вручную​ работает.​недоступна, если книга​.​ Мы стараемся как можно​ бы одной из​ и с ним​Pelena​

​Не совсем понял​ из части /xl/worksheets/sheet7.xml​

​: Тема ещё актуальна.​​ быстро разорвать связь​ слишком неудобно. А​ Связь все равно​If IsArray(WorkbookLinks) Then​ все равно постоянно​ могут получить более​ создать необходимые связи​

Исправление поврежденную ссылку

​Откройте книгу, содержащую неработающую​​ не содержит ссылки.​Перейдите к расположению файла,​ оперативнее обеспечивать вас​ этих книг, в​ должно сработать такое:​

  1. ​,​ почему, но если​
  2. ​6. открываем изначальный​​Я наверное описался​​ всех объектов WorkSheet​​ тем кому высылаются​​ разорвать не получается. ​ ​For I =​​ спрашивает обновление, можно​​ низкий ранг и​ между таблицами.​
  3. ​ ссылку.​​В списке​​ содержащего связанных данных.​ актуальными справочными материалами​ ​ ячейке В3 остается​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Hyperlinks_Kill()’удаляет ссылки на​Подтверждаю срабатывает! Но​​ УФ удалять Главная​ файл, переходим на​
  4. ​ в предыдущем посте.​​ в документе dok​​ отчеты мешает запрос​
  5. ​В чем может​ LBound(WorkbookLinks) To UBound(WorkbookLinks)​
  6. ​ от него отказаться,​ не будут автоматически​​Типы данных могут не​​В меню​
  7. ​исходный файл​​Выберите новый исходный файл​​ на вашем языке.​

Удаление недействительной ссылки

​ значение.​ другие книги Excel​ надо сохранять и​ — УФ -​ 7-й лист и​Требуется разорвать связи​​ (связанных объектов может​​ восстановления связей.​​ быть проблема?​​Wb.BreakLink Name:=WorkbookLinks(I), _​ но все равно​ созданы даже в​​ поддерживаться. Если любая​​Правка​щелкните неработающую ссылку,​

  1. ​ и нажмите кнопку​ Эта страница переведена​
  2. ​Вопрос: Как разорвать​​Dim iLinks, i&​​ пере открывать книгу.​​ Удалить правила -​​ ищем там проверки​ ​ в объекте Word.​​ быть сотня в​​Кстати. Если после​Мне нужно сохранить​
  3. ​ Type:=xlLinkTypeExcelLinks​​ при следующем входе​​ том случае, если​ из таблиц, используемых​ ​выберите пункт​​ которую требуется экспортировать.​Изменить источник​​ автоматически, поэтому ее​ одну (две, . )​
  4. ​iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)​​А вот готовое​​ Со всего листа,​
  5. ​ данных (Ctrl+G, выделить,​​Вы не знаете,​​ одном документе MS​

​ генерации такого отчета​​ копию листа без​Next I​ он опять его​ связь является действительной.​ в сводной таблице,​Связи​Примечание:​.​

Исправление поврежденную ссылку

​ текст может содержать​​ связи, при этом​If Not IsEmpty(iLinks)​ решения для всех​ то такой метод​ проверки данных -​

  1. ​ как найти связанные​ Word). Смысл вот​
  2. ​ на полученном листе​​ связи с оновной​​end if​​ запрашивает. ​​Если алгоритм автоматического обнаружения​ ​ содержит столбцы только​​.​​ Чтобы исправить нескольких связей,​Нажмите кнопку​
  3. ​ неточности и грамматические​​ в ячейке В3​​ Then​ листов книги (мало​ ​ не срабатывает. Возможно,​​ сначала всех, потом,​ объекты worksheet в​​ в чем. Я​ вообще удалить все​
  4. ​ книгой. При этом​​Igor67​​Guest​
  5. ​ предлагает связь, которая​ неподдерживаемых типов данных,​

​Команда​ ​ удерживайте нажатой​
​Закрыть​ ошибки. Для нас​ 1)_осталась ссылка на​ ​If MsgBox(«Разорвать внешние​​ ли кому пригодится). ​​ таким образом не​ если их будет​​ файле Word и​​ выполняю расчеты в​
​ данные (т.е. нет​ сделать это нужно​: А разве в​ ​: Принеси файл к​ не решает бизнес-задачи,​ то связи обнаружить​​связи​​и затем щелкните​.​​ важно, чтобы эта​​ книгу не разорванной​

Отключите автоматическое обновление связанных данных

  1. ​ связи книги?», vbYesNo​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Удалить_форматирование()​
  2. ​ совсем корректно обрабатываются​​ несколько, по одному)​​ разорвать связь с​​ Excel и обновляю​​ ни данных, ни​ ​ МАКРОСОМ!​​ новой книге после​​ тому у кого​ то необходимо удалить​
  3. ​ невозможно. В этом​​недоступна, если книга​​ каждую связь.​Когда разорвать связь, все​ ​ статья была вам​​ связи, разорванные связи​ + vbInformation, «Связи. «)​​Dim x As​ УФы с ошибками.​
  4. ​В моем случае​​ ними?​​ результаты в текстовом​

Удаление недействительной ссылки

​ формул), то все​Оформляйте коды тегами​ СПЕЦИАЛЬНОЙ ВСТАВКИ СВЯЗИ​ есть Excel 2003-2007​ ее и создать​ случае необходимо создать​​ не содержит ссылки.​​Выберите команду​​ формулы, которые ссылаются​​ полезна. Просим вас​ удалились?;​ = vbNo Then:​​ Worksheet​​Timber_Wolf​ хватило 5-ти пунктов)​

  1. ​Приведённый ниже код​ редакторе. После этого​
  2. ​ равно связи удалить​​ (кнопка #)​​ СОХРАНЯЮТСЯ?​​ удали связи сохрани​​ вручную с использованием​ ​ связи между активными​​В списке​​Смена источника​ на исходный файл,​
  3. ​ уделить пару секунд​​2)_осталась ссылка на​​ Exit Sub​For Each x​ ​: Эмм. Спасибо огромное!​​DJ_Marker_MC​ по-моему разрывает связи​​ должен передать текстовый​ нельзя, пока не​
  4. ​gling​​Лузер​​ и бегом обратно​

См. также

​ верного ключевого столбца.​ таблицами в сводной​исходный файл​.​

Устранение неполадок в связях между таблицами

​ преобразуются в их​ и сообщить, помогла​ книгу не разорванной​For i =​ In ActiveWorkbook.Worksheets​ Получилось! +1 в​, макрос работает красиво.​ в excel.​ документ (электронный вариант)​ сохранишь и не​

​: Возможно в книге​: Смотря чего выбрать​ в свой офис.​ См.​ таблице вручную в​щелкните неработающую ссылку,​Выполните одно из следующих​ текущее значение. Например​ ли она вам,​ связи, разорванные связи​ 1 To UBound(iLinks)​’x.UsedRange.Value = x.UsedRange.Value​

Сообщение. Связи не были обнаружены

​ карму.​ Спасибо.​А где код?:-)​ с уже обновленными​ закроешь файлы. ​​ есть именованные диапазоны.​​ в спец вставке,​ Думаю должно получиться!​К началу страницы​ диалоговом окне​ которую требуется удалить.​ действий:​ если формулу​ с помощью кнопок​ остались значениями?​ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks​ ‘Включить если требуется​

  • ​А вот эти​Подскажите пожалуйста, как​Pavidlo​ данными, а потом​RAN​ Для полного разрыва​ если значения, то​Алексей​Алексей​Создание связи​Примечание:​
  • ​Задача​= сумм​ внизу страницы. Для​Закрыто. Дубль.​Next i​ еще и формулы​ ручные телодвижения можно​ вставить картинку с​: Спасибо за отклик.​ продолжать создавать новые​: Ну и что?​ связей их тоже​ нет​​: Уже проверял -​​: Сделал небольшую програмку,​. Дополнительные сведения см.​ Чтобы удалить несколько связей,​Действия​

В сводную таблицу добавлены несвязанные поля, однако сообщение не выдается

​([Budget.xls]Annual​ удобства также приводим​AlenaZ​End If​ значениями заменить​ автоматизировать? Макро рекордер​ превью, как в​Ответ найден в​ обновленные документы….​ Чем эта связь​ нужно удалить.​Stork4ever​ этот вариант работает,​ в которой на​ в разделе Создание​ удерживая нажатой клавишу​​Устранение Недействительная ссылка на​​! C10: C25)​

Отсутствует допустимая связь между таблицами

​ ссылку на оригинал​: Добрый день форумчане!​End Sub​x.Cells.FormatConditions.Delete​ не показал к​ ссылке с примером​ другой ветке форума​Pavidlo​ мешает?​Stork4ever​

​: Из существующей книги​ вот только я​ нескольких листах идут​ связи между двумя​и щелкните каждую​ лист в другую​результаты в 45,​ (на английском языке).​Нужна ваша помощь.​или такое:Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub HyperlinkCheck()’​Next x​ сожалению ничего интересного. ​

При автоматическом обнаружении созданы неверные связи

​ http://www.excelworld.ru/forum/2-12911-1​ -​: Тоже бьюсь над​200?’200px’:»+(this.scrollHeight+5)+’px’);»>xlPasteValues​: Возможно ли принудительно​ копирую лист в​ создал этот файл​ расчеты, а на​ таблицами.​ связь.​ книгу​ формула будет преобразовано​Если книга содержит ссылки​ Есть много файлов.​ найти на листе​End Sub​30-50 листов в​Timber_Wolf​biomirror​ этой задачей.​вставляет значения.​

​ сохранить те значения,​ новую книгу. Убираю​ для дальнейших работ​ одном итоговая таблица.​Автоматическое обнаружение связей запускается​Щелкните элемент​В диалоговом окне​ в​

Как в Excel 2000 можно разорвать связь с листом?

​ В них есть​​ и убить битые​Удалит весь мусор.​ ручную. Немного жестковато. ​: Ни как не​: Здравствуйте, не могу​Разрывает связи команда​А то, что​ которые рассчитаны на​ часть формул оставляя​ и перспектива каждый​ Каждый раз расчеты​ только для мер​Разорвать​Открыть​45​ книге или другой​ ссылки-привязки связей на​ гиперссылки на диапазоны​ Но соответственно сохранить,​В VBA такой​ разрывается связь. ​ удалить связь одного​ «Правка-Связи-разорвать»(excel 2003)​
​ именованые диапазоны зацепились​ данный момент? Искать​ только формулы внутри​ раз выбегать из​ разные и итоговая​

​ и не запускается​​.​найдите книгу и​после ссылка не​ файл, который был​ другие книги. Раньше​
​Dim hLnk As​ закрыть и открыть​
​ процесс реализовать возможно​

​Выложенный макрос в​​ файла эксель с​через vba это​ за старую книгу,​ формулы по всему​ книги. Делаю все​
​ офиса для обработки​ таблица соответственно должна​ для вычисляемых полей,​

​Импорт данных из файла​​ нажмите кнопку​ работает.​

​ перемещен в другое​ эти связи были​

​ Hyperlink, rRng As​​ книгу заново.​ с последовательной обработкой​ первом посте от​ другим файлом.​ делает функция breaklink.​ при осутствии ссылок​ листу довольно проблематично!​ это макросом. В​ ведет к потере​ меняться, поэтому решил​ которые используются в​ в формате CSV,​Изменить​Откройте книгу, содержащую неработающую​ место, можно устранить​

​ нужны. А теперь​​ Range​Timber_Wolf​ всех листов?​ сюда ссылка не​Pelena​Только вопрос в​ на них, никак​

​TimSha​​ результате получаю новую​ смысла в этой​ копировать лист с​ метках строк и​ HTML или текстового​.​ ссылку.​ ссылку обновление пути,​ часть книг были​On Error Resume​:​
​Timber_Wolf​ сработал.​

​: У Вас лист​​ том, как найти​ ни на что​

​: Очень просто. Пробовали​​ книгу. Но вот​ программке :(.​

​ таблицой из книги​ столбцов сводной таблицы.​
​ файла​Исправление Недействительная ссылка на​На вкладке​

​ исходный файл. Если​​ удалены(т.к. перестали быть​

​ Next​​_Boroda_​:​

​Куча других макросов​​ защищен.​ все связи в​ не влияет.​
​ открыть — «Найти​ в чем проблема.​Может кто знает​ для сохранения прошлых​ Поэтому перед началом​

​При импорте нескольких таблиц​​ книгу или другой​данные​ не удается найти​

​ нужными данные из​​For Each hLnk​, Автоматическое закрытие-открытие не​_Boroda_​
​ из инета так​Посмотрите здесь​ документе excel?​И пусть их​ и выделить» -​

​ Обратил внимание что​ вариант попроще?​ расчетов, а оставшийся​

​ построения сводной таблицы​​ Excel пытается обнаружить​ документ Office​

​нажмите кнопку​ или не имеют​
​ них). И теперь​
​ In ActiveSheet.Hyperlinks​
​ нужно +))) Нужно​,​
​ же не подействовали. ​Ещё обнаружила, что​
​KuklP​
​ болтаются до закрытия.​

​ далее — «Формулы». ​​ в новой книге​slan​ по новым менять​ несвязанные таблицы можно​

​ и определить связи​​Введите новое имя или​Изменить связи​ доступа к документу,​ при открытии файла​

Как разорвать связи макросом? (Макросы/Sub)

​If hLnk.Address =​​ автоматическое удаление мусора​Поштучно удаление не​Приложил непобедимый файл​ в столбце С​: aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)​Или​Stork4ever​ осталась связь с​: выбегать — это​ и так далее.​ добавить, однако связи​ между этими таблицами,​ расположение для документа​.​ который изначально связанной​ выдаёт ошибку при​ «» Then’ если​ и инструкция =)))​ записалось зато со​ со связями.​ формулы ссылаются на​If Not IsEmpty(aLinks)​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Workbooks(«A»).Sheets(«aaa»).Range(«A1:A10») = Workbooks(«B»).Sheets(«aaa»).Range(«A1:A10»)​: Развернуть формулы и​ предыдущей. Если я​ надеюсь образно?​ Но в Excel​ не будут видны​
​ поэтому нет необходимости​ в поле​
​Команды​
​ можно запретить Excel​ обновлении связей. И​
​ это ссылка на​ Решение уже найдено​
​ всего листа разом​
​Есть идеи что​
​ этот связанный файл​
​ Then​
​Stork4ever​ искать ссылки? Данных​
​ сохраняю новую книгу,​
​Алексей​ 2000 я не​ до тех пор,​
​ создавать связи вручную​измените ссылки, чтобы​
​Изменить связи​ при попытке обновить​ приходится в ручную​ диапазон​ =) Спасибо =)​ записалось вот это. ​ в нем не​DJ_Marker_MC​
​For i =​: Спасибо!​ слишком много​ закрываю обе, затем​: выбегать -​
​ нашел функции разрыва​ пока поле не​
​ или создавать сложные​текст и нажмите​недоступна, если книга​ связь, как отключить​ разрывать связи с​Set rRng =​
​Timber_Wolf​Cells.FormatConditions.Delete​

​ так? В идеале​​: Не мое, нашел​ 1 To UBound(aLinks)​gling​Или я что-то​ открываю сохраненную новую​

​ теми книгами ,​​ Range(hLnk.SubAddress)​: Блин. Что то​И связи разорвутся​ бы получить работающее​

​ макрос в интернете:​​ActiveWorkbook.BreakLink _​: Использовал такой макрос​ не так понял?​​ книгу, то вижу​Ну а как​

​ подскажет кто в​​ область​ ​ работать с данными​

​ОК​​В поле​
​ удаление связи.​ которые были удалены,​’чтобы при удалении​ я не подумал​ только после сохранения​ решение на этом​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub KillLinks()​
​Name:=aLinks(i), _​
​ при создании новой​
​RAN​
​ свзяь со старой​ поступать?​
​ чем тут загвозка?​Значения​ целостным способом.​.​Источник файла​Более новые версии​ и теперь не​ гиперссылки не сбрасывался​ об этом. А​ и открытия по​ примере. ​
​’удаляет ссылки на​Type:=xlLinkTypeExcelLinks​ книги из листов.​:​ книгой и могу​Постом выше к​ Может другие варианты​.​Иногда Excel не удается​Откройте книгу, содержащую неработающую​выберите неработающую ссылку,​ Office 2011 ​ существуют. Файлов много,​ формат текста в​ вдруг действительно понадобится​ новой документа. ​
​Ручное копирование не​ другие книги Excel​MsgBox «Link «​ Посмотрите может пригодится.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Activesheet.Usedrange.Value=Activesheet.Usedrange.Value​ ее разорвать без​ стати то же​ какие есть?​Иногда таблицы, добавляемые в​ определить связь между​ ссылку.​

​ которую нужно удалить.​​Важно:​ поэтому долго это​ ячейке, _​
​ часть форматирования. ​
​Спасибо за участие​
​ предлагать. Листов в​Dim iLinks As​ & i &​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Связи() ‘разорвать все​Stork4ever​ проблем. Проблема в​ моя тема. ​
​Другой Excel ставить​ сводную таблицу, просто​
​ таблицами. В этом​
​В меню​

​Примечание:​​ связанный объект не так​

​ в ручную удалять.​​надо доделать: перед​А можно как​ =)​ книге по факту​ ​ Variant, i&​ «:» & Chr(13)​
​ связи​: Еще раз уточним. ​
​ том, что эту​slan​
​ в офисе нельзя,​ невозможно соединить с​
​ случае используйте информацию​Правка​
​ Чтобы удалить несколько связей,​ же, как гиперссылки.​
​Можно ли как​ удалением запоминать, а​
​ то удалять форматирование​
​Pelena​
​ от 30 до​iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)​
​ & aLinks(i)​
​Dim WorkbookLinks As​
​На листе оригинальной​ связь я не​
​: електронные виды связи..​
​ как мне объяснили​
​ другими таблицами. Например,​
​ из этой статьи​
​выберите пункт​
​ удерживая нажатой клавишу​
​ Описанные ниже не​

​ то сделать макрос​​ после удаления восстанавливать​​ ТОЛЬКО если оно​​: Срабатывает вроде. Удалить​ 50. Надо их​

Разорвать связь WorkSheet Excel & MS Word

​If Not IsEmpty(iLinks)​​Next i​ Variant​ книги есть именованные​ могу разорвать в​Алексей​ лицензия есть только​ две таблицы могут​ для устранения ошибок​Связи​и затем щелкните​ исчезает гиперссылок. Подробнее​ и с помощью​ параметры текста hLnk.Range​ содержит ссылки в​ правила УФ с​ разом окучивать от​ Then​End If​Dim Wb As​ диапазоны. После копирования​

​ момент работы макроса,​​: Пытаюсь испробовать все​ на этот. ​
​ иметь частично совпадающие​ автоматического обнаружения связей. Чтобы​
​.​ каждую связь.​
​ о гиперссылках, читайте​ него удалять испорченные​ (границы, шрифт, выравнивание,​ другой файл?​

​ листа, сохранить, закрыть,​​ подобного мусора.​
​If MsgBox(«Книга содержит​KuklP​
​ Workbook​ листа в новую​
​ когда обе книги​
​ методы :)))​
​Лузер​

​ данные, но не​ лучше понять требования​Команда​Щелкните элемент​
​ в статье Создание​
​ связи с теми​

​ … ?)​​SLAVICK​ открыть. Не?​Если удастся разорвать​

​ внешние связи!» &​​: Похоже в ведро​Dim n As​ книгу, эти диапазоны​ открыты.​

​Guest​​: Она там же,​ иметь логических связей​ и механизмы обнаружения​связи​
​Разорвать​ или изменение гиперссылки.​

​ удалёнными книгами. А​​If Err <>​
​: в лоб получилось​_Boroda_​
​ связи, скажите где​ Chr(13) & «Разорвать​
​ старался. Увидел стартовую​ Variant​ копи/пастятся в виде​Разрыв связей в​: Эта прога для​ где и в​
​ с другими используемыми​ связей, см. раздел​недоступна, если книга​

​.​​Внимание:​
​ что бы работающие​ 0 Then hLnk.Delete:​
​ так:​: Не.​
​ эта дрянь сидит,​ связи?», vbYesNo +​ дату:-(​Dim i As​ значений типа:​ маросе делаю так:​
​ всего офиса -​ других офисах: Правка​ таблицами.​
​ Связи между таблицами​

​ не содержит ссылки.​​Нажмите кнопку​
​ Это действие нельзя отменить.​ связи оставались на​ Err.Clear​

Разоврвать связь с другим файлом (удалить связь exel 2010) (Формулы/Formulas)

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Удалить_форматирование()​​Не, ну, может,​ конкретно в этом​ vbInformation, «Связи. «) =​A_Zeshko​

​ Long​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«J11:J400″).Select​200?’200px’:»+(this.scrollHeight+5)+’px’);»>exist_links = ActiveWorkbook.LinkSources(xlExcelLinks)​
​ замучаешься переводить. ​
​ — Связи -​Если добавить в сводную​ в модели данных.​В списке​

​Закрыть​​ Сохранение резервной копии​ месте!​
​End If​
​Dim x As​ и не не,​
​ файле? =))) Как​ vbNo Then: Exit​
​: Кто-то опять начал​
​For Each n​Selection.Copy​
​If Not IsEmpty(exist_links)​Можно ли как​ разорвать связь​ таблицу таблицу, которую​На панели уведомлений всегда​исходный файл​.​
​ книги перед началом​Заранее большущее спасибо!​
​Next​
​ Worksheet​
​ но мне такой​
​ вы ее смогли​
​ Sub​ писать на этот​ In ActiveWorkbook.Names:​

​Range(«J11:J400»).Select​​ Then​​ нибудь установить 2007-й​​Если имелся ввиду​ нельзя соединить с​ автоматически отображается сообщение​щелкните неработающую ссылку,​Важно:​

​ этой процедуры может​​pashulka​
​End Sub​For Each x​
​ вариант совсем не​ найти? =)) Что​For i =​
​ форум под моим​On Error Resume​
​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​For i =​ офис, так что​ VBA, то​ другой таблицей, то​ о необходимости установления​ которую требуется экспортировать.​ связанный объект не так​ потребоваться.​
​: Пример разрыва связи​Timber_Wolf​
​ In ActiveWorkbook.Worksheets​​ нравится.​ я только не​
​ 1 To UBound(iLinks)​ Ником. Эээх​ Next​ SkipBlanks _:=False, Transpose:=False​ LBound(exist_links) To UBound(exist_links)​

Разрыв связей во всей книге (Макросы/Sub)

​ б и 2000-й​​ActiveWorkbook.BreakLink Name:=»связанная_книга.xls», Type:=xlExcelLinks​ обычно автоматическое обнаружение​
​ связи при перетаскивании​Примечание:​ же, как гиперссылки.​Откройте книгу, содержащую неработающую​
​ с сохранением значений.​:​t = x.Cells.FormatConditions.Count​
​Про закрыть-открыть речи​ перепробовал, я не​
​ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks​KuklP​n.Delete:​Остаются только формулы​’ MsgBox exist_links(i)​ то же работал?​
​Алексей​ не даст никаких​ поля в область​ Чтобы исправить нескольких связей,​ Описанные ниже не​ ссылку.​ Тестировать желательно​
​Alex_ST​Do While t​ не было.​ вижу ни одной​Next i​: Не переживайте -​Next​ подведения итогов, которые​ActiveWorkbook.BreakLink Name:=exist_links(i), Type:=xlLinkTypeExcelLinks​Алексей​: В том то​ результатов. В других​
​Значения​ удерживайте нажатой​ исчезает гиперссылок. Подробнее​На вкладке​

​на копии​​,​ >= 1​Макросом удалить правила​ связи на листе​End If​ тот кто писал,​Set Wb =​ уже не имеют​Next​: Может в коде​ и дело, что​ случаях по результатам​существующей сводной таблицы​и затем щелкните​
​ о гиперссылках, читайте​данные​книги.​Я пробовал эти​Set xf =​ УФ по очереди​ =))​End Sub​ писал в 2008​ ActiveWorkbook​ именованных диапазонов. Но​

​Else​​ листа какие функции​ в Excel 2000​ в сводной таблице​
​ в случае, если​ каждую связь.​ в статье Создание,​нажмите кнопку​Private Sub Test()​
​ макросы. =) Где​ x.Cells.FormatConditions(t)​
​ циклом несложно, а​ПыСы: «Ты видишь​В приложении документ​ году. ​

​WorkbookLinks = Wb.LinkSources(Type:=xlLinkTypeExcelLinks)​​ связь с книгой​​MsgBox «Связей не​​ прописать. :(​
​ нет такого пункта​ видно, что поля​ это поле не​Нажмите​
​ редактирование и удаление​
​Изменить связи​ ‘Microsoft Excel XP​ то их находил. ​If InStr(1, xf.Formula1,​
​ вот закрыть-открыть посложнее​ суслика? Нет? Я​

​ с разорванными связями​​:-) И я​If IsArray(WorkbookLinks) Then​ не могу порвать,​ найдено»​

​slan​​ как «разорвать связь»​
​ не позволяют формировать​ связано ни с​Вручную​ гиперссылок​.​
​ iArr = ActiveWorkbook.LinkSources(xlExcelLinks)​ Но тогда не​
​ «#ССЫЛКА!») Then xf.Delete​ будет. А если​ тоже нет. А​ и макросом.​ на этом поскользнулся. ​For i =​ пока не сохраню​End If​: Эта прога для​А как с​
​ осмысленные вычисления.​ одним из существующих​.​Внимание:​Команды​ If Not IsArray(iArr)​ знал особенности о​t = t — 1​ этот макрос как​

​ он есть!» =))​​biomirror​​Pavidlo​​ LBound(WorkbookLinks) To UBound(WorkbookLinks)​
​ и не закрою​Все отрабатывает без​ всего офиса -​
​ VBA работать я​При создании связей алгоритм​ в сводной таблице​Когда разорвать связь, все​
​ Это действие нельзя отменить.​
​Изменить связи​ Then Exit Sub​
​ Сохранить-Закрыть-Открыть. ​Loop​
​ раз в этом​_Boroda_​:​: Тема ещё актуальна.​
​Wb.BreakLink _​
​ все книги. А​
​ ошибок, но связь​
​ замучаешься переводить. ​ не в курсе. ​ автоматического обнаружения создает​ полей. Однако иногда​

​ формулы, которые ссылаются​​ Сохранение резервной копии​​недоступна, если книга​​ For Each tmp​Теперь и проверить​Next x​ же закрываемом-открываемом файле​: В файле войдите​Pelena​

​Я наверное описался​​Name:=WorkbookLinks(i), _​ закрывать каждый раз​ не разрывается​Можно ли как​slan​
​ список всех возможных​ связь после уведомления​ на исходный файл,​ книги перед началом​ не содержит ссылки.​

​ In iArr If​​ то не на​End Sub​
​ находится, то еще​
​ в Условное форматирование​, Вариант по вашей​
​ в предыдущем посте.​Type:=xlLinkTypeExcelLinks​
​ не удобно.​
​Делаю тоже самое​ нибудь установить 2007-й​
​: а у меня​ связей исходя из​
​ обнаружить не удается.​ преобразуются в их​
​ этой процедуры может​
​В поле​
​ ActiveWorkbook.LinkInfo(tmp, xlLinkInfoStatus) =​
​ чем =) Все​

​Timber_Wolf​​ сложнее.​​ _ Управление правилами​​ ссылке я продублирую​
​Требуется разорвать связи​Next i​Собственно задача, что​ вручную:​

​ офис, так что​​ нет 2000го​ значений, содержащихся в​ Это может произойти​ текущее значение. Например​ потребоваться.​ ​Источник файла​ xlLinkStatusMissingFile Then ActiveWorkbook.BreakLink​
​ вылечено и пере​
​:​
​Кстати, это здесь​ — выберите «Этот​
​ и в этой​ в объекте Word.​Else​ бы полученный отчет​1. Копирую лист​
​ б и 2000-й​а выделить ячейки​
​ таблицах, и ранжирует​
​ по разным причинам.​
​ если формулу​
​Откройте книгу, содержащую неработающую​ ​выберите неработающую ссылку,​ tmp, xlExcelLinks End​ сохранено =)​SLAVICK​
​ УФ нам вообще​ лист» и вручную​ теме (интересный способ)​
​Вы не знаете,​End If​
​ не имел связей​ в новую книгу,​
​ то же работал?​ со связими можете?​ возможные связи в​Алгоритм обнаружения связей зависит​
​= сумм​ ссылку.​
​ которую требуется исправить.​ If Next End​Все равно спасибо​,​
​ никакое не нужно,​ удалите каждое правило​ :​ как найти связанные​End Sub​ с книгой из​
​ пытаюсь через меню​у меня дома​Алексей​
​ соответствии с их​
​ от внешнего ключевого​
​([Budget.xls]Annual​

​В меню​​Примечание:​​ Sub​​ =)​
​Оооо. Спасибо добрый​ а ведь вполне​ (просто встаньте на​Цитата​ объекты worksheet в​VictorM​
​ которой его сделали.​ разорвать связь. Связь​ 2003 и 2007​: ячейки выделяются, копируются,​ вероятностью. Затем Excel создает​
​ столбца, имя которого​! C10: C25)​

выборочный (частичный) разрыв связи (Формулы/Formulas)

​Правка​​ Чтобы исправить нескольких связей,​
​AlenaZ​XXXXXL​ человек =))) Самое​ может быть вариант,​ первое и много​200?’200px’:»+(this.scrollHeight+5)+’px’);»>3. закрываем архиватор​ файле Word и​:​ Поскольку его будут​
​ вижу, кнопка разорвать​ работают​ я даже уже​ только наиболее вероятную​ схоже с именем​результаты в 45,​выберите пункт​ удерживайте нажатой​
​:​: Всем доброго дня.​ оно =))) +1​ когда часть условий​
​ раз нажмите на​

Разрыв ТОЛЬКО ошибочных связей в excel

​4. открываем файл​​ разорвать связь с​
​gling​ смотреть на другом​ связь активна, но​Николай Павлов​ все формулы убрал,​ связь. Поэтому, если​ первичного ключевого столбца.​ формула будет преобразовано​Связи​и затем щелкните​pashulka​Условие: В одну​ в карму =)))​ УФ нам нужно​ Делит). Затем вкладка​ в Excel​ ними?​, спасибо. То что​ компьютере, где нет​ при нажатии связь​: Попробуйте вот этот​ вставив только значения,​
​ таблицы содержат несколько​ Если имена столбцов​ в​.​ каждую связь.​, огромные спасибки. мур​ ячейку, допустим B3​Alex_ST​ оставить, а часть​
​ Данные — Изменить​

​5. Excel ругается,​​Приведённый ниже код​ нужно!​ файла оригинала. Каждый​​ не разрывается.​​ код:​
​ удалял книгу, на​ столбцов, которые могут​ недостаточно похожи, рекомендуется​45​Команда​Выберите команду​ мур!​ идут связи с​: На УФ я​ удалить.​ связи — выделите​ но потом восстанавливает​

​ по-моему разрывает связи​​Captain_Nemo​​ раз закрывать/открывать и​​2. Удаляю на​Set Wb =​

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *