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

Вход

Регистрация

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

 

= Мир MS Excel/выборочный (частичный) разрыв связи - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выборочный (частичный) разрыв связи (Макросы/Sub)
выборочный (частичный) разрыв связи
XXXXXL Дата: Вторник, 15.11.2016, 10:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем доброго дня. Админ, точно такую же тему разместил у формулистов, предполагаю ее нужно снести.
у кого какие есть соображения по следующему вопросу:
Условие: В одну ячейку, допустим B3 идут связи с трех книг, при разрыве связи хотя бы одной из этих книг, в ячейке В3 остается значение.
Вопрос: Как разорвать одну (две, ...) связи, при этом в ячейке В3 1)_осталась ссылка на книгу не разорванной связи, разорванные связи удалились?;
2)_осталась ссылка на книгу не разорванной связи, разорванные связи остались значениями?
 
Ответить
СообщениеВсем доброго дня. Админ, точно такую же тему разместил у формулистов, предполагаю ее нужно снести.
у кого какие есть соображения по следующему вопросу:
Условие: В одну ячейку, допустим B3 идут связи с трех книг, при разрыве связи хотя бы одной из этих книг, в ячейке В3 остается значение.
Вопрос: Как разорвать одну (две, ...) связи, при этом в ячейке В3 1)_осталась ссылка на книгу не разорванной связи, разорванные связи удалились?;
2)_осталась ссылка на книгу не разорванной связи, разорванные связи остались значениями?

Автор - XXXXXL
Дата добавления - 15.11.2016 в 10:41
XXXXXL Дата: Четверг, 01.12.2016, 10:36 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
кто с макросом на "ты"?, сможете доработать его под мои нужды, для частичного разрыва связей?
К сообщению приложен файл: ___.docx(27Kb)
 
Ответить
Сообщениекто с макросом на "ты"?, сможете доработать его под мои нужды, для частичного разрыва связей?

Автор - XXXXXL
Дата добавления - 01.12.2016 в 10:36
XXXXXL Дата: Четверг, 01.12.2016, 10:47 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
вот еще один макрос нашел, но он разрывает связи только в выбранных ячейках, при этом заменяет все на значения, кто сможет доработать его с частичным (выборочным) разрывом связи? помогите, очень надо....

[vba]
Код
Sub ВставитьЗначения2()

Dim ArrLinks As Variant
Dim i As Integer
Dim cell As Range
Dim WorkRng As Range
Dim FileName As String

On Error Resume Next

If TypeName(Selection) <> "Range" Then Exit Sub
ArrLinks = ThisWorkbook.LinkSources(xlExcelLinks)
If IsEmpty(ArrLinks) Then Exit Sub

Set WorkRng = Selection.SpecialCells(xlCellTypeFormulas)

For i = 1 To UBound(ArrLinks)
FileName = FileNameOnly((CStr(ArrLinks(i))))
For Each cell In WorkRng
If InStr(1, cell.Formula, FileName) Then cell.Formula = cell.Value
Next
Next

End Sub
[/vba]

[vba]
Код
Private Function FileNameOnly(fname As String) As String
' Возвращает имя файла fname без указания его директории
Dim temp As Variant
If fname = "" Then FileNameOnly = "": Exit Function
temp = Split(fname, Application.PathSeparator)
FileNameOnly = temp(UBound(temp))
End Function
[/vba]
[moder]Коды надо оформлять тегами (кнопка #)[/moder]


Сообщение отредактировал Pelena - Четверг, 01.12.2016, 11:32
 
Ответить
Сообщениевот еще один макрос нашел, но он разрывает связи только в выбранных ячейках, при этом заменяет все на значения, кто сможет доработать его с частичным (выборочным) разрывом связи? помогите, очень надо....

[vba]
Код
Sub ВставитьЗначения2()

Dim ArrLinks As Variant
Dim i As Integer
Dim cell As Range
Dim WorkRng As Range
Dim FileName As String

On Error Resume Next

If TypeName(Selection) <> "Range" Then Exit Sub
ArrLinks = ThisWorkbook.LinkSources(xlExcelLinks)
If IsEmpty(ArrLinks) Then Exit Sub

Set WorkRng = Selection.SpecialCells(xlCellTypeFormulas)

For i = 1 To UBound(ArrLinks)
FileName = FileNameOnly((CStr(ArrLinks(i))))
For Each cell In WorkRng
If InStr(1, cell.Formula, FileName) Then cell.Formula = cell.Value
Next
Next

End Sub
[/vba]

[vba]
Код
Private Function FileNameOnly(fname As String) As String
' Возвращает имя файла fname без указания его директории
Dim temp As Variant
If fname = "" Then FileNameOnly = "": Exit Function
temp = Split(fname, Application.PathSeparator)
FileNameOnly = temp(UBound(temp))
End Function
[/vba]
[moder]Коды надо оформлять тегами (кнопка #)[/moder]

Автор - XXXXXL
Дата добавления - 01.12.2016 в 10:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выборочный (частичный) разрыв связи (Макросы/Sub)
Страница 1 из 11
Поиск:

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