замена формул на значения

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

замена формул на значения (Макросы/Sub)

lordua

Дата: Четверг, 07.04.2016, 00:59 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

эксель 2003.
требуется - сделать кнопку (на листе лист 1), по которой с двух листов (лист 1 и лист 2) выкидываются формулы, оставляя значения, третий лист (лист 3) выкидывается нафиг вообще, а что получилось - сохраняется в текущюю папку с именем, скажем, ххх

К сообщению приложен файл: 7350363.xls (17.5 Kb)

Ответить

lordua

Дата: Четверг, 07.04.2016, 01:00 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

пересмотрел кучу примеров, или не то, или с ошибкой вылетает. ибо под 2007 писано

Сообщение отредактировал lordua - Четверг, 07.04.2016, 01:00

Ответить

krosav4ig

Дата: Четверг, 07.04.2016, 02:40 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

lordua, попробуйте так
[vba]

Код

Sub gg()
    Dim strPath$
    With ActiveWorkbook
        .Sheets(Array("Лист1", "Лист2")).Copy
        strPath = .Path
    End With
    Sheets().Select: Cells.Select:
    With Selection
        .Copy: .PasteSpecial xlPasteValues, xlNone
    End With
    ActiveCell.Select: ActiveSheet.Select
    Application.DisplayAlerts = 0
    With ActiveWorkbook
        .SaveAs strPath & "\xxx.xls", 56
        .Close
    End With
    Application.DisplayAlerts = 1
End Sub

[/vba]