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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование формул в значение (Макросы/Sub)
Преобразование формул в значение
dx84 Дата: Пятница, 18.04.2014, 23:54 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Доброго времени суток!
Есть код, преобразовывает формулы в значения по условию выделения ячеек.
Хотелось бы, что бы код работал следующим образом.
Например, находясь в листе 1 активируя макрос, в листе 2 диапазон A1:C10 c формулами заменялся на значения.

For Each cell In Selection
cell.Formula = cell.Value
Next cell

'
End Sub
 
Ответить
СообщениеДоброго времени суток!
Есть код, преобразовывает формулы в значения по условию выделения ячеек.
Хотелось бы, что бы код работал следующим образом.
Например, находясь в листе 1 активируя макрос, в листе 2 диапазон A1:C10 c формулами заменялся на значения.

For Each cell In Selection
cell.Formula = cell.Value
Next cell

'
End Sub
Автор - dx84
Дата добавления - 18.04.2014 в 23:54
AlexM Дата: Суббота, 19.04.2014, 00:15 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4491
Репутация: 1115 ±
Замечаний: 0% ±

Excel 2003
можно так.[vba]
Код
For Each cell In Sheets("Лист2").Range("A1:A10")
cell.Formula = cell.Value
Next cell
[/vba]


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщениеможно так.[vba]
Код
For Each cell In Sheets("Лист2").Range("A1:A10")
cell.Formula = cell.Value
Next cell
[/vba]
Автор - AlexM
Дата добавления - 19.04.2014 в 00:15
dx84 Дата: Суббота, 19.04.2014, 00:21 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
AlexM, Спасибо! Все работает!
 
Ответить
СообщениеAlexM, Спасибо! Все работает!
Автор - dx84
Дата добавления - 19.04.2014 в 00:21
AlexM Дата: Суббота, 19.04.2014, 00:23 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4491
Репутация: 1115 ±
Замечаний: 0% ±

Excel 2003
еще так можно[vba]
Код
Sub Macros2()
With Sheets("Лист2").Range("A1:A10")
     .Copy: .PasteSpecial Paste:=xlPasteValues
End With
End Sub
[/vba]


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщениееще так можно[vba]
Код
Sub Macros2()
With Sheets("Лист2").Range("A1:A10")
     .Copy: .PasteSpecial Paste:=xlPasteValues
End With
End Sub
[/vba]
Автор - AlexM
Дата добавления - 19.04.2014 в 00:23
_Boroda_ Дата: Суббота, 19.04.2014, 00:25 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А чего не сразу всю кучу?
[vba]
Код
Sheets("Лист2").Range("A1:A10")=Sheets("Лист2").Range("A1:A10").Value
[/vba]
Или кусок Sheets("Лист2").Range("A1:A10") под With засунуть, как уже выше Алексеем написано
[vba]
Код
With Sheets("Лист2").Range("A1:A10")
      .Value=.Value
End With
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА чего не сразу всю кучу?
[vba]
Код
Sheets("Лист2").Range("A1:A10")=Sheets("Лист2").Range("A1:A10").Value
[/vba]
Или кусок Sheets("Лист2").Range("A1:A10") под With засунуть, как уже выше Алексеем написано
[vba]
Код
With Sheets("Лист2").Range("A1:A10")
      .Value=.Value
End With
[/vba]
Автор - _Boroda_
Дата добавления - 19.04.2014 в 00:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование формул в значение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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