|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.07.2009, 10:12 | #1 |
Форумчанин
Регистрация: 01.05.2009
Сообщений: 200
|
Переход от ссылок к значениям!
Суть проста! Очень хочется на всех листах книги автоматически заменить ссылки на значения. На голой логике попытался написать макрос
Код:
выбирать каждый лист книги, выделить все ячейки,копировать, вставить спец вставкой и перейти к следующему листу. Как мне в строке Код:
Как в строке Код:
Напишите еще пожалуйста, я вообще правильно подошел к решению задачи. |
09.07.2009, 10:36 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Sub Link_Value()
For Each sheet in Sheets Sheet.Select Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormat s, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Next Sheet End Sub А код, я надеюсь, с рекордера снят. Похоже, должен работать.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
09.07.2009, 10:52 | #3 |
Форумчанин
Регистрация: 01.05.2009
Сообщений: 200
|
Грандиозно! Спасибо большое! Очень помогли!
А можно еще один вопросик для этого макроса. Я хочу чтобы выскакивало окошко MsgBox предупреждающее, что после перехода от ссылок к значениям восстановить ссылки невозмжно. И чтобы было две кнопки "Да"- выполняем макрос; "Нет"- выход из макроса. |
09.07.2009, 11:37 | #4 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Попробуйте так:
Код:
|
09.07.2009, 11:43 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Я бы сделал так:
Код:
Чем шире угол зрения, тем он тупее.
|
10.07.2009, 16:01 | #6 |
Форумчанин
Регистрация: 01.05.2009
Сообщений: 200
|
SAS888 громадное СПАСИБО! Великолепно работает!
А можно для самообразования узнать???))) Как сделать третью кнопку? Просто есть мысль сделать третью кнопку "Save...", по нажатии которой будет выкидывать в стандартное окно сохранить как. (Кстати это выкидывание можно осуществить через ActiveWorkbook.SaveAs???) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
доступ к значениям предыдущей сессии в DLL | Kat Hilario | Общие вопросы C/C++ | 4 | 12.03.2009 12:13 |
Создание диаграммы Excel по значениям переменной | Shinoby | Microsoft Office Excel | 1 | 08.03.2009 14:23 |
Сортировка одной БД по значениям другой | Кот из Лета | БД в Delphi | 4 | 28.12.2007 13:35 |
Нарисовать Ellipse по значениям из... | Apollo_13 | Общие вопросы Delphi | 3 | 17.06.2007 02:53 |