Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Разрыв связей в выделенных ячейках
 
Доброго дня форумчане! Никто не сталкивался с такой задачей, когда надо было разорвать связи в выделенном диапазоне ячеек? Может есть наработка у кого-то?
 
Код
Sub znach()
Application.DisplayAlerts = False
    CalcMode = Application.Calculation
    RefStyle = Application.ReferenceStyle
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

Dim c As Range, f$
On Error Resume Next
With ActiveSheet.UsedRange
Set c = .Find(What:="!", LookIn:=xlFormulas, _
LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
If Not c Is Nothing Then
f = c.Address
Do
c.Value = c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> f
End If
End With

Application.DisplayAlerts = True
    Application.Calculation = CalcMode
    Application.ReferenceStyle = RefStyle
    Application.ScreenUpdating = True
End Sub

Изменено: yarik1983 - 25 Фев 2015 16:48:17
 
код наваял, но связи убирает не в выделенном диапазоне, а на всем листе
 
Код
замените With ActiveSheet.UsedRange
на With Selection
 
ага, уже сам допер. Спасибо.
Страницы: 1
Читают тему (гостей: 1)