Удаление формул vba excel

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

Иногда формула в ячейке нужна лишь на короткое время — только для получения результата. А затем уже не нужна ни сама формула, ни ячейки, на которые она ссылается. Но вот беда — если удалить ячейки, то формула «ломается», как это говорится. Т.е. в ячейке получается либо #ЗНАЧ! либо #ССЫЛКА! . Или Вам надо просто зафиксировать значение, полученное в результате работы формулы. Т.е. чтобы формулы там не было, а было только значение. Как ни странно, но делается это проще простого:

Выделяете ячейку/несколько ячеек с формулами — Копируете — Правая кнопка мыши — Специальная вставка — Значения

Вот и все. Больше формул нет.
Так же подобное можно сделать при помощи кода VBA:

Sub Formulas_To_Values() Selection.Value = Selection.Value End Sub

Для использования кода переходим в редактор VBA( Alt + F11 ) —Insert —Module и вставляем приведенный код. Чтобы выполнить код надо на листе нажать сочетание клавиш Alt + F8 , выбрать нужный код и нажать Выполнить
Данный код заменяет формулы в выделенном диапазоне на значения. Только необходимо учитывать, что выделенный диапазон должен быть неразрывным. Иначе код выдаст ошибку. А такой код

Sub All_Formulas_To_Values() ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value End Sub

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

И в качестве бонуса ниже приведен код, который заменит все формулы на всех листах активной книги в значения:

Sub All_Formulas_To_Values_In_All_Sheets() Dim wsSh As Worksheet For Each wsSh In Sheets wsSh.UsedRange.Value = wsSh.UsedRange.Value Next wsSh End Sub

А этот код поможет заменить формулы на значения только в видимых ячейках(просматриваются выделенные ячейки):

Sub All_Formulas_To_Values_OnlyVisible() Dim rRng As Range, rArea As Range If Selection.Count = 1 Then Set rRng = ActiveCell Else Set rRng = Selection.SpecialCells(12) End If For Each rArea In rRng.Areas rArea.Value = rArea.Value Next rArea End Sub

КАК БЫСТРО ВЫЗЫВАТЬ:
Вообще данную команду можно вывести на Быструю панель и использовать в одно нажатие тогда, когда нужно.

• 2010 ExcelФайл— Параметры— Настройка. Выбрать команды из:Все команды. Находите команду Вставить значения и добавляете;
• 2007 ExcelМеню— Параметры Excel— Настройка. Выбрать команды из:Все команды. Находите команду Вставить значения и добавляете;
• 2003 Excel : Сервис— Настройка— вкладка Команды— категория Правка— Вставить значения.

Теперь у Вас появится значок на Быстрой панели.

ДОБАВИТЬ В КОНТЕКСТНОЕ МЕНЮ ЯЧЕЕК:
Если один раз выполнить код:

Sub Add_PasteSpecials() Dim cbb Set cbb = Application.CommandBars(«Cell»).FindControl(ID:=370) If Not cbb Is Nothing Then cbb.Delete ‘удаляем пункт, если он был уже добавлен ранее Application.CommandBars(«Cell»).Controls.Add ID:=370, before:=4 End Sub

то в контекстном меню мыши появится команда — «Вставить значения». Она полностью дублирует стандартную, только вызвать её быстрее — одно нажатие и все.

Статья помогла? Поделись ссылкой с друзьями!

Источник

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

Иногда формула в ячейке нужна лишь на короткое время — только для получения результата. А затем уже не нужна ни сама формула, ни ячейки, на которые она ссылается. Но вот беда — если удалить ячейки, то формула «ломается», как это говорится. Т.е. в ячейке получается либо #ЗНАЧ! либо #ССЫЛКА! . Или Вам надо просто зафиксировать значение, полученное в результате работы формулы. Т.е. чтобы формулы там не было, а было только значение. Как ни странно, но делается это проще простого:

Выделяете ячейку/несколько ячеек с формулами — Копируете — Правая кнопка мыши — Специальная вставка — Значения

Вот и все. Больше формул нет.
Так же подобное можно сделать при помощи кода VBA:

Sub Formulas_To_Values() Selection.Value = Selection.Value End Sub

Для использования кода переходим в редактор VBA( Alt + F11 ) —Insert —Module и вставляем приведенный код. Чтобы выполнить код надо на листе нажать сочетание клавиш Alt + F8 , выбрать нужный код и нажать Выполнить
Данный код заменяет формулы в выделенном диапазоне на значения. Только необходимо учитывать, что выделенный диапазон должен быть неразрывным. Иначе код выдаст ошибку. А такой код

Sub All_Formulas_To_Values() ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value End Sub

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

И в качестве бонуса ниже приведен код, который заменит все формулы на всех листах активной книги в значения:

Sub All_Formulas_To_Values_In_All_Sheets() Dim wsSh As Worksheet For Each wsSh In Sheets wsSh.UsedRange.Value = wsSh.UsedRange.Value Next wsSh End Sub

А этот код поможет заменить формулы на значения только в видимых ячейках(просматриваются выделенные ячейки):

Sub All_Formulas_To_Values_OnlyVisible() Dim rRng As Range, rArea As Range If Selection.Count = 1 Then Set rRng = ActiveCell Else Set rRng = Selection.SpecialCells(12) End If For Each rArea In rRng.Areas rArea.Value = rArea.Value Next rArea End Sub

КАК БЫСТРО ВЫЗЫВАТЬ:
Вообще данную команду можно вывести на Быструю панель и использовать в одно нажатие тогда, когда нужно.

• 2010 ExcelФайл— Параметры— Настройка. Выбрать команды из:Все команды. Находите команду Вставить значения и добавляете;
• 2007 ExcelМеню— Параметры Excel— Настройка. Выбрать команды из:Все команды. Находите команду Вставить значения и добавляете;
• 2003 Excel : Сервис— Настройка— вкладка Команды— категория Правка— Вставить значения.

Теперь у Вас появится значок на Быстрой панели.

ДОБАВИТЬ В КОНТЕКСТНОЕ МЕНЮ ЯЧЕЕК:
Если один раз выполнить код:

Sub Add_PasteSpecials() Dim cbb Set cbb = Application.CommandBars(«Cell»).FindControl(ID:=370) If Not cbb Is Nothing Then cbb.Delete ‘удаляем пункт, если он был уже добавлен ранее Application.CommandBars(«Cell»).Controls.Add ID:=370, before:=4 End Sub

то в контекстном меню мыши появится команда — «Вставить значения». Она полностью дублирует стандартную, только вызвать её быстрее — одно нажатие и все.

Статья помогла? Поделись ссылкой с друзьями!

Источник

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

Иногда формула в ячейке нужна лишь на короткое время — только для получения результата. А затем уже не нужна ни сама формула, ни ячейки, на которые она ссылается. Но вот беда — если удалить ячейки, то формула «ломается», как это говорится. Т.е. в ячейке получается либо #ЗНАЧ! либо #ССЫЛКА! . Или Вам надо просто зафиксировать значение, полученное в результате работы формулы. Т.е. чтобы формулы там не было, а было только значение. Как ни странно, но делается это проще простого:

Выделяете ячейку/несколько ячеек с формулами — Копируете — Правая кнопка мыши — Специальная вставка — Значения

Вот и все. Больше формул нет.
Так же подобное можно сделать при помощи кода VBA:

Sub Formulas_To_Values() Selection.Value = Selection.Value End Sub

Для использования кода переходим в редактор VBA( Alt + F11 ) —Insert —Module и вставляем приведенный код. Чтобы выполнить код надо на листе нажать сочетание клавиш Alt + F8 , выбрать нужный код и нажать Выполнить
Данный код заменяет формулы в выделенном диапазоне на значения. Только необходимо учитывать, что выделенный диапазон должен быть неразрывным. Иначе код выдаст ошибку. А такой код

Sub All_Formulas_To_Values() ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value End Sub

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

И в качестве бонуса ниже приведен код, который заменит все формулы на всех листах активной книги в значения:

Sub All_Formulas_To_Values_In_All_Sheets() Dim wsSh As Worksheet For Each wsSh In Sheets wsSh.UsedRange.Value = wsSh.UsedRange.Value Next wsSh End Sub

А этот код поможет заменить формулы на значения только в видимых ячейках(просматриваются выделенные ячейки):

Sub All_Formulas_To_Values_OnlyVisible() Dim rRng As Range, rArea As Range If Selection.Count = 1 Then Set rRng = ActiveCell Else Set rRng = Selection.SpecialCells(12) End If For Each rArea In rRng.Areas rArea.Value = rArea.Value Next rArea End Sub

КАК БЫСТРО ВЫЗЫВАТЬ:
Вообще данную команду можно вывести на Быструю панель и использовать в одно нажатие тогда, когда нужно.

• 2010 ExcelФайл— Параметры— Настройка. Выбрать команды из:Все команды. Находите команду Вставить значения и добавляете;
• 2007 ExcelМеню— Параметры Excel— Настройка. Выбрать команды из:Все команды. Находите команду Вставить значения и добавляете;
• 2003 Excel : Сервис— Настройка— вкладка Команды— категория Правка— Вставить значения.

Теперь у Вас появится значок на Быстрой панели.

ДОБАВИТЬ В КОНТЕКСТНОЕ МЕНЮ ЯЧЕЕК:
Если один раз выполнить код:

Sub Add_PasteSpecials() Dim cbb Set cbb = Application.CommandBars(«Cell»).FindControl(ID:=370) If Not cbb Is Nothing Then cbb.Delete ‘удаляем пункт, если он был уже добавлен ранее Application.CommandBars(«Cell»).Controls.Add ID:=370, before:=4 End Sub

то в контекстном меню мыши появится команда — «Вставить значения». Она полностью дублирует стандартную, только вызвать её быстрее — одно нажатие и все.

Статья помогла? Поделись ссылкой с друзьями!

Источник

Vba excel удалить формулу

Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление формул автоматически (Программа для создания копий Excel без формул, со значениями)

Удаление формул автоматически

Гость

Дата: Суббота, 07.05.2011, 01:09 | Сообщение № 1

Serge_007 Дата: Суббота, 07.05.2011, 01:36 | Сообщение № 2 Гость Дата: Суббота, 07.05.2011, 01:42 | Сообщение № 3 Serge_007 Дата: Суббота, 07.05.2011, 01:46 | Сообщение № 4 ЗЫ Если-бы была такая прога, то она работала-бы по такому-же принципу. ЗЫ Если-бы была такая прога, то она работала-бы по такому-же принципу. Serge_007 ЗЫ Если-бы была такая прога, то она работала-бы по такому-же принципу. Автор — Serge_007 Дата добавления — 07.05.2011 в 01:46 Gloom Дата: Понедельник, 14.05.2012, 12:10 | Сообщение № 5 Возможно пригодится макрос: Макрос заменяет все формулы на значения во всех файлах на всех листах в указанной папке Sub УдалитьВсеФормулыВПапке() Dim fd As FileDialog Dim iPath As String Dim iFileName As String Dim iSheet As Worksheet Set fd = Application.FileDialog(msoFileDialogFolderPicker) ChDir «C:» With fd .ButtonName = «Выбрать» If .Show = -1 Then iPath = .SelectedItems(1) & Application.PathSeparator Else Exit Sub End If End With Set fd = Nothing If MsgBox(«Во всех документах Excel в папке » & iPath & » на всех листах формулы будут заменены на значения!» & Chr(13) & «Вы уверены . «, vbOKCancel + vbExclamation, «Подтверждение») = vbCancel Then Exit Sub If MsgBox(«Вы отдаёте себе отчёт, что формулы во всех файлах будут удалены?», vbOKCancel + vbExclamation, «Подтверждение») = vbCancel Then Exit Sub With Application .ScreenUpdating = False .Calculation = xlCalculationManual ‘.EnableEvents = False iFileName = Dir(iPath & «*.xls») Do While iFileName$ <> «» With Workbooks.Open(Filename:=iPath & iFileName, UpdateLinks:=0) For Each iSheet In .Sheets With iSheet.UsedRange .Value = .Value End With Next .Close saveChanges:=True End With iFileName$ = Dir Loop .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With MsgBox «Во всех документах Excel в папке » & iPath & » на всех листах формулы были заменены на значения!», 64, «Конец» End Sub Возможно пригодится макрос: Макрос заменяет все формулы на значения во всех файлах на всех листах в указанной папке Sub УдалитьВсеФормулыВПапке() Dim fd As FileDialog Dim iPath As String Dim iFileName As String Dim iSheet As Worksheet Set fd = Application.FileDialog(msoFileDialogFolderPicker) ChDir «C:» With fd .ButtonName = «Выбрать» If .Show = -1 Then iPath = .SelectedItems(1) & Application.PathSeparator Else Exit Sub End If End With Set fd = Nothing If MsgBox(«Во всех документах Excel в папке » & iPath & » на всех листах формулы будут заменены на значения!» & Chr(13) & «Вы уверены . «, vbOKCancel + vbExclamation, «Подтверждение») = vbCancel Then Exit Sub If MsgBox(«Вы отдаёте себе отчёт, что формулы во всех файлах будут удалены?», vbOKCancel + vbExclamation, «Подтверждение») = vbCancel Then Exit Sub With Application .ScreenUpdating = False .Calculation = xlCalculationManual ‘.EnableEvents = False iFileName = Dir(iPath & «*.xls») Do While iFileName$ <> «» With Workbooks.Open(Filename:=iPath & iFileName, UpdateLinks:=0) For Each iSheet In .Sheets With iSheet.UsedRange .Value = .Value End With Next .Close saveChanges:=True End With iFileName$ = Dir Loop .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With MsgBox «Во всех документах Excel в папке » & iPath & » на всех листах формулы были заменены на значения!», 64, «Конец» End Sub Сообщение Возможно пригодится макрос: Макрос заменяет все формулы на значения во всех файлах на всех листах в указанной папке Sub УдалитьВсеФормулыВПапке() Dim fd As FileDialog Dim iPath As String Dim iFileName As String Dim iSheet As Worksheet Set fd = Application.FileDialog(msoFileDialogFolderPicker) ChDir «C:» With fd .ButtonName = «Выбрать» If .Show = -1 Then iPath = .SelectedItems(1) & Application.PathSeparator Else Exit Sub End If End With Set fd = Nothing If MsgBox(«Во всех документах Excel в папке » & iPath & » на всех листах формулы будут заменены на значения!» & Chr(13) & «Вы уверены . «, vbOKCancel + vbExclamation, «Подтверждение») = vbCancel Then Exit Sub If MsgBox(«Вы отдаёте себе отчёт, что формулы во всех файлах будут удалены?», vbOKCancel + vbExclamation, «Подтверждение») = vbCancel Then Exit Sub Источник Adblock detector