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

Вход

Регистрация

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

 

= Мир MS Excel/замена формул на значения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » замена формул на значения (Макросы/Sub)
замена формул на значения
lordua Дата: Четверг, 07.04.2016, 00:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - lordua
Дата добавления - 07.04.2016 в 00:59
lordua Дата: Четверг, 07.04.2016, 01:00 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

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


Сообщение отредактировал lordua - Четверг, 07.04.2016, 01:00
 
Ответить
Сообщениепересмотрел кучу примеров, или не то, или с ошибкой вылетает. ибо под 2007 писано

Автор - lordua
Дата добавления - 07.04.2016 в 01:00
krosav4ig Дата: Четверг, 07.04.2016, 02:40 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1348
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 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]


(_)Õvõ(_)
 
Ответить
Сообщение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]

Автор - krosav4ig
Дата добавления - 07.04.2016 в 02:40
lordua Дата: Четверг, 07.04.2016, 03:24 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
krosav4ig,
[vba]
Код
    Sheets().Select: Cells.Select:
[/vba]
: Cells.Select -желтым бьет


Сообщение отредактировал lordua - Четверг, 07.04.2016, 03:31
 
Ответить
Сообщениеkrosav4ig,
[vba]
Код
    Sheets().Select: Cells.Select:
[/vba]
: Cells.Select -желтым бьет

Автор - lordua
Дата добавления - 07.04.2016 в 03:24
krosav4ig Дата: Четверг, 07.04.2016, 03:48 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1348
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
а если заменить на [vba]
Код
Sheets().Select: ActiveSheet.Cells.Select
[/vba]?


(_)Õvõ(_)
 
Ответить
Сообщениеа если заменить на [vba]
Код
Sheets().Select: ActiveSheet.Cells.Select
[/vba]?

Автор - krosav4ig
Дата добавления - 07.04.2016 в 03:48
lordua Дата: Четверг, 07.04.2016, 03:55 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
[vba]
Код
.SaveAs strPath & "\xxx.xls", 56
[/vba], тогда здесь желтеет

убрал 56 - вроде, правильно сохранило. 56 - это что?

оно на файле с тысячами рыл работает! огромное спасибо!


Сообщение отредактировал lordua - Четверг, 07.04.2016, 04:08
 
Ответить
Сообщение[vba]
Код
.SaveAs strPath & "\xxx.xls", 56
[/vba], тогда здесь желтеет

убрал 56 - вроде, правильно сохранило. 56 - это что?

оно на файле с тысячами рыл работает! огромное спасибо!

Автор - lordua
Дата добавления - 07.04.2016 в 03:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » замена формул на значения (Макросы/Sub)
Страница 1 из 11
Поиск:

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