Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Маркрос вставка значений / 7 сообщений из 7, страница 1 из 1
28.09.2012, 14:40
    #37976032
ek09
ek09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
Доброго всем времени суток!!!

Может кто знает ???

Нужен маркрос который бы копировал значения на всех листах EXCEL (чтобы во всех ячейках остались только значения)

В идеале нужно выгрузить в формате EXCEL определённые листы (без формул со значениями) из файла EXCEL

Какой нибудь вариант вообще имеет решение ????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2012, 23:11
    #37976702
Basile
Basile
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
ek09Доброго всем времени суток!!!
Нужен маркрос который бы копировал значения на всех листах EXCEL (чтобы во всех ячейках остались только значения)

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub SetAsValues()
    Dim ws As Worksheet
    ' Для каждого листа текущей книги
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.Copy
        ws.Cells.PasteSpecial Paste:=xlPasteValues
    Next ws
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2012, 00:58
    #37976747
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
Вариант:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub SetAsValues()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws.UsedRange
        .Value = .Value
        End With
    Next ws
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2012, 14:08
    #37976927
Basile
Basile
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
Hugo121Вариант:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub SetAsValues()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws.UsedRange
        .Value = .Value
        End With
    Next ws
End Sub


Согласен, этот вариант красивей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2012, 08:56
    #37977836
ek09
ek09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
Спасибо огромное.

P.s.
А может кто знает ????
Существуют ли макросы или есть другие варианты позволяющие выгружать нужные листы из файла Excel в формат Excel. Иными словами есть файл Excel в нём например 8 листов (с формулами таблицами, ссылками и.д.) а надо выгрузить 2 определённых листа (со всеми значениями (без формул)) в таком же формате. Есть ли решения данной задачи ????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2012, 09:29
    #37977881
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub bb()
Dim ws As Worksheet
Sheets(Array("Лист1", "Лист3")).Copy 'в новую книгу, она становится активной
For Each ws In Worksheets
    With ws.UsedRange
        .Value = .Value
    End With
Next ws
ActiveWorkbook.SaveAs "c:\temp\ИмяНовойКниги.xls", ThisWorkbook.FileFormat
ActiveWorkbook.Close 0
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2012, 10:09
    #37977941
ek09
ek09
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маркрос вставка значений
Казанский,

Всё работает !!! Просто супер !!! Что надо !!!

Огромное спасибо !!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Маркрос вставка значений / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]