Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Разрыв связей во всей книге - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрыв связей во всей книге (Макросы/Sub)
Разрыв связей во всей книге
Timber_Wolf Дата: Среда, 23.11.2016, 11:20 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Ни как не разрывается связь...
Выложенный макрос в первом посте от сюда ссылка не сработал.
Куча других макросов из инета так же не подействовали...

Приложил непобедимый файл со связями.

Есть идеи что в нем не так? В идеале бы получить работающее решение на этом примере...
Ручное копирование не предлагать... Листов в книге по факту от 30 до 50. Надо их разом окучивать от подобного мусора.

Если удастся разорвать связи, скажите где эта дрянь сидит, конкретно в этом файле? =))) Как вы ее смогли найти? =)) Что я только не перепробовал, я не вижу ни одной связи на листе =))

ПыСы: "Ты видишь суслика? Нет? Я тоже нет... А он есть!" =))
К сообщению приложен файл: 0618520.xlsm (17.1 Kb)


Сообщение отредактировал Timber_Wolf - Среда, 23.11.2016, 11:21
 
Ответить
СообщениеНи как не разрывается связь...
Выложенный макрос в первом посте от сюда ссылка не сработал.
Куча других макросов из инета так же не подействовали...

Приложил непобедимый файл со связями.

Есть идеи что в нем не так? В идеале бы получить работающее решение на этом примере...
Ручное копирование не предлагать... Листов в книге по факту от 30 до 50. Надо их разом окучивать от подобного мусора.

Если удастся разорвать связи, скажите где эта дрянь сидит, конкретно в этом файле? =))) Как вы ее смогли найти? =)) Что я только не перепробовал, я не вижу ни одной связи на листе =))

ПыСы: "Ты видишь суслика? Нет? Я тоже нет... А он есть!" =))

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 11:20
_Boroda_ Дата: Среда, 23.11.2016, 11:25 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В файле войдите в Условное форматирование _ Управление правилами - выберите "Этот лист" и вручную удалите каждое правило (просто встаньте на первое и много раз нажмите на Делит). Затем вкладка Данные - Изменить связи - выделите связь - Разорвать - ОК.

Не совсем понял почему, но если УФ удалять Главная - УФ - Удалить правила - Со всего листа, то такой метод не срабатывает. Возможно, таким образом не совсем корректно обрабатываются УФы с ошибками.
К сообщению приложен файл: 0070745_1.xlsm (12.7 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ файле войдите в Условное форматирование _ Управление правилами - выберите "Этот лист" и вручную удалите каждое правило (просто встаньте на первое и много раз нажмите на Делит). Затем вкладка Данные - Изменить связи - выделите связь - Разорвать - ОК.

Не совсем понял почему, но если УФ удалять Главная - УФ - Удалить правила - Со всего листа, то такой метод не срабатывает. Возможно, таким образом не совсем корректно обрабатываются УФы с ошибками.

Автор - _Boroda_
Дата добавления - 23.11.2016 в 11:25
Timber_Wolf Дата: Среда, 23.11.2016, 11:45 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Эмм. Спасибо огромное! Получилось! +1 в карму.
А вот эти ручные телодвижения можно автоматизировать? Макро рекордер не показал к сожалению ничего интересного...
30-50 листов в ручную... Немного жестковато...

В VBA такой процесс реализовать возможно с последовательной обработкой всех листов?
 
Ответить
СообщениеЭмм. Спасибо огромное! Получилось! +1 в карму.
А вот эти ручные телодвижения можно автоматизировать? Макро рекордер не показал к сожалению ничего интересного...
30-50 листов в ручную... Немного жестковато...

В VBA такой процесс реализовать возможно с последовательной обработкой всех листов?

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 11:45
Timber_Wolf Дата: Среда, 23.11.2016, 12:08 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,
Поштучно удаление не записалось зато со всего листа разом записалось вот это...
Cells.FormatConditions.Delete

И связи разорвутся только после сохранения и открытия по новой документа...

Спасибо за участие =)
 
Ответить
Сообщение_Boroda_,
Поштучно удаление не записалось зато со всего листа разом записалось вот это...
Cells.FormatConditions.Delete

И связи разорвутся только после сохранения и открытия по новой документа...

Спасибо за участие =)

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 12:08
Pelena Дата: Среда, 23.11.2016, 12:17 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
такой метод не срабатывает

Срабатывает вроде. Удалить правила УФ с листа, сохранить, закрыть, открыть. Не?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
такой метод не срабатывает

Срабатывает вроде. Удалить правила УФ с листа, сохранить, закрыть, открыть. Не?

Автор - Pelena
Дата добавления - 23.11.2016 в 12:17
_Boroda_ Дата: Среда, 23.11.2016, 12:26 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Не.
Не, ну, может, и не не, но мне такой вариант совсем не нравится.
Про закрыть-открыть речи не было.
Макросом удалить правила УФ по очереди циклом несложно, а вот закрыть-открыть посложнее будет. А если этот макрос как раз в этом же закрываемом-открываемом файле находится, то еще сложнее.
Кстати, это здесь УФ нам вообще никакое не нужно, а ведь вполне может быть вариант, когда часть условий УФ нам нужно оставить, а часть удалить.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Не.
Не, ну, может, и не не, но мне такой вариант совсем не нравится.
Про закрыть-открыть речи не было.
Макросом удалить правила УФ по очереди циклом несложно, а вот закрыть-открыть посложнее будет. А если этот макрос как раз в этом же закрываемом-открываемом файле находится, то еще сложнее.
Кстати, это здесь УФ нам вообще никакое не нужно, а ведь вполне может быть вариант, когда часть условий УФ нам нужно оставить, а часть удалить.

Автор - _Boroda_
Дата добавления - 23.11.2016 в 12:26
Timber_Wolf Дата: Среда, 23.11.2016, 12:27 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Pelena,
Подтверждаю срабатывает! Но надо сохранять и пере открывать книгу.

А вот готовое решения для всех листов книги (мало ли кому пригодится)... yes

[vba]
Код
Sub Удалить_форматирование()
    Dim x As Worksheet
        For Each x In ActiveWorkbook.Worksheets
            'x.UsedRange.Value = x.UsedRange.Value 'Включить если требуется еще и формулы значениями заменить
            x.Cells.FormatConditions.Delete
        Next x
End Sub
[/vba]

Удалит весь мусор. Но соответственно сохранить, закрыть и открыть книгу заново. hands
 
Ответить
СообщениеPelena,
Подтверждаю срабатывает! Но надо сохранять и пере открывать книгу.

А вот готовое решения для всех листов книги (мало ли кому пригодится)... yes

[vba]
Код
Sub Удалить_форматирование()
    Dim x As Worksheet
        For Each x In ActiveWorkbook.Worksheets
            'x.UsedRange.Value = x.UsedRange.Value 'Включить если требуется еще и формулы значениями заменить
            x.Cells.FormatConditions.Delete
        Next x
End Sub
[/vba]

Удалит весь мусор. Но соответственно сохранить, закрыть и открыть книгу заново. hands

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 12:27
Timber_Wolf Дата: Среда, 23.11.2016, 12:28 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Автоматическое закрытие-открытие не нужно +))) Нужно автоматическое удаление мусора и инструкция =))) Решение уже найдено =) Спасибо =)
 
Ответить
Сообщение_Boroda_, Автоматическое закрытие-открытие не нужно +))) Нужно автоматическое удаление мусора и инструкция =))) Решение уже найдено =) Спасибо =)

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 12:28
Timber_Wolf Дата: Среда, 23.11.2016, 12:31 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
когда часть условий УФ нам нужно оставить, а часть удалить.

Блин. Что то я не подумал об этом... А вдруг действительно понадобится часть форматирования...
А можно как то удалять форматирование ТОЛЬКО если оно содержит ссылки в другой файл?
 
Ответить
Сообщение
когда часть условий УФ нам нужно оставить, а часть удалить.

Блин. Что то я не подумал об этом... А вдруг действительно понадобится часть форматирования...
А можно как то удалять форматирование ТОЛЬКО если оно содержит ссылки в другой файл?

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 12:31
SLAVICK Дата: Среда, 23.11.2016, 13:55 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
ТОЛЬКО если оно содержит ссылки в

в лоб получилось так:
[vba]
Код
Sub Удалить_форматирование()
    Dim x As Worksheet
        For Each x In ActiveWorkbook.Worksheets
        t = x.Cells.FormatConditions.Count
            Do While t >= 1
            Set xf = x.Cells.FormatConditions(t)
            If InStr(1, xf.Formula1, "#ССЫЛКА!") Then xf.Delete
            t = t - 1
            Loop
        Next x
End Sub
[/vba]
К сообщению приложен файл: 0618520-3-.xlsm (21.5 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
ТОЛЬКО если оно содержит ссылки в

в лоб получилось так:
[vba]
Код
Sub Удалить_форматирование()
    Dim x As Worksheet
        For Each x In ActiveWorkbook.Worksheets
        t = x.Cells.FormatConditions.Count
            Do While t >= 1
            Set xf = x.Cells.FormatConditions(t)
            If InStr(1, xf.Formula1, "#ССЫЛКА!") Then xf.Delete
            t = t - 1
            Loop
        Next x
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 23.11.2016 в 13:55
Timber_Wolf Дата: Среда, 23.11.2016, 17:24 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
SLAVICK,
Оооо. Спасибо добрый человек =))) Самое оно =))) +1 в карму =)))
 
Ответить
СообщениеSLAVICK,
Оооо. Спасибо добрый человек =))) Самое оно =))) +1 в карму =)))

Автор - Timber_Wolf
Дата добавления - 23.11.2016 в 17:24
Alex_ST Дата: Четверг, 24.11.2016, 10:56 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3199
Репутация: 606 ±
Замечаний: 0% ±

2003
На УФ я не тестировал, но есть подозрение, что и с ним должно сработать такое:
или такое:



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеНа УФ я не тестировал, но есть подозрение, что и с ним должно сработать такое:
или такое:

Автор - Alex_ST
Дата добавления - 24.11.2016 в 10:56
Timber_Wolf Дата: Четверг, 24.11.2016, 11:35 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Alex_ST,
Я пробовал эти макросы... =) Где то их находил... Но тогда не знал особенности о Сохранить-Закрыть-Открыть...
Теперь и проверить то не на чем =) Все вылечено и пере сохранено =)
Все равно спасибо =)
 
Ответить
СообщениеAlex_ST,
Я пробовал эти макросы... =) Где то их находил... Но тогда не знал особенности о Сохранить-Закрыть-Открыть...
Теперь и проверить то не на чем =) Все вылечено и пере сохранено =)
Все равно спасибо =)

Автор - Timber_Wolf
Дата добавления - 24.11.2016 в 11:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрыв связей во всей книге (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!