Маркрос вставка значений / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Маркрос вставка значений

7 сообщений из 7, страница 1 из 1

Маркрос вставка значений

#37976032

ek09

Гость

Доброго всем времени суток!!!

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

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

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

Какой нибудь вариант вообще имеет решение ????

...

Рейтинг:

0 / 0

28.09.2012, 14:40

| Ответить | Цитировать | Написать

Маркрос вставка значений

#37976702

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

28.09.2012, 23:11

| Ответить | Цитировать | Написать

Маркрос вставка значений

#37976747

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, 00:58

| Ответить | Цитировать | Написать

Маркрос вставка значений

#37976927

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

29.09.2012, 14:08

| Ответить | Цитировать | Написать

Маркрос вставка значений

#37977836

ek09

Гость

Спасибо огромное.

P.s.
А может кто знает ????
Существуют ли макросы или есть другие варианты позволяющие выгружать нужные листы из файла Excel в формат Excel. Иными словами есть файл Excel в нём например 8 листов (с формулами таблицами, ссылками и.д.) а надо выгрузить 2 определённых листа (со всеми значениями (без формул)) в таком же формате. Есть ли решения данной задачи ????

...

Рейтинг:

0 / 0

01.10.2012, 08:56

| Ответить | Цитировать | Написать

Маркрос вставка значений

#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, 09:29

| Ответить | Цитировать | Написать

Маркрос вставка значений

#37977941

ek09

Гость

Казанский,

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

Огромное спасибо !!!!

...

Рейтинг:

0 / 0

01.10.2012, 10:09

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Маркрос вставка значений

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2175357]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	31ms
get topic data:	9ms
get first new msg:	6ms
get forum data:	2ms
get page messages:	35ms
get tp. blocked users:	1ms
others:	317ms

total:	433ms