Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос на удаление формул
 
#1
25.06.2013 18:36:47
Добрый день. Ребята я наверное достал вас со своими вопросами, блин ну всегда обращаюсь только по крайней необходимости. Сегодня готовил отчетную ведомость вышло около 2000 строк. После чего мне нужно было удалить автоматически формулы и оставить их значения со всей книги, я воспользовался макросом, который находится в примере, он удалил формулы и оставил их значения, но вот в чем проблема, в формуле по условию получалось значение "3.1", а после выполнения макросом получилось "3,1". Ребята помогите, как быть. Плиззз!!! :)
 
 
 
#2
25.06.2013 19:06:27
Если в ячейках с формулами установить текстовый формат - то работает.
В макросах не понимаю - почему не знаю.
 
 
 
#3
25.06.2013 19:10:23
В этом то и проблема формул больше 1000
 
 
 
#4
25.06.2013 19:28:37
Ну хоть кто-нибудь
 
 
 
#5
25.06.2013 20:00:56
Файл не смотрел, но, если у Вас там используется .value - попробуйте .text
 
 
 
#6
25.06.2013 20:03:32
Цитата
Nic70y пишет:
Если в ячейках с формулами установить текстовый формат - то работает.
Ну дык и установим его :)
Код
Sub All_Formulas_To_Values_In_All_Sheets()
    Dim wsSh As Worksheet
    For Each wsSh In Sheets
    wsSh.UsedRange.NumberFormat = "@"
        wsSh.UsedRange.Value = wsSh.UsedRange.Value
    Next wsSh
End Sub
 
 
 
#7
25.06.2013 20:12:27
Не подскажите, в чем разница между моим макросом(я его записал макрорекордером), и вашим, чисто из любопытства
Sub Макрос4()
   Sheets(Array("Лист1", "Лист2", "Лист3")).Select
   Sheets("Лист1").Activate
   Cells.Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Range("A1").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Sheets("Лист1").Select
   Range("A1").Select
End Sub
 
 
 
#8
25.06.2013 20:13:19
А так огромнейшее спасибо за помощь. Я думал вся моя работа пойдет под хвост.
Изменено: danka - 25.06.2013 20:13:41
 
 
 
#9
25.06.2013 20:21:29
Цитата
danka пишет:
в чем разница между моим макросом(я его записал макрорекордером), и вашим
Нет никакого "моего" макроса, я взял его из Вашего файла и немного подкорректировал :)

Разница - во всём. Это два совершенно разных макроса. Что именно Вы хотите услышать в ответ на Ваш вопрос?
 
 
 
#10
25.06.2013 20:24:25
Каким лучше пользоваться, какой быстрее.
 
 
 
#11
25.06.2013 20:37:10
Лучше, быстрее, универсальнее и правильнее All_Formulas_To_Values_In_All_Sheets
 
 
 
#12
25.06.2013 20:38:58
Всё спасибо, значит буду пользоваться ей.
 
 
 
#13
25.06.2013 20:42:27
Цитата
danka пишет:
буду пользоваться ей
Надеюсь "ей" - это процедурой, а не макросом?  :D
 
 
 
#14
25.06.2013 20:44:37
Будем надеится :D
 
 
 
#15
25.06.2013 20:55:12
Испытал макрос, работает отлично. Но теперь возникла другая проблема. В рассчетах цифры получались например 82,6, а после выполнения макросом 82,5588001734408.
 
 
 
#16
25.06.2013 20:56:27
Ну округлите их
 
 
 
#17
25.06.2013 20:59:44
Вручную, их слишком много. А макросом незнаю как,наверно никак.
 
 
 
#18
25.06.2013 21:09:50
Не могу не отметить тот факт, что коды взяты с моего сайта :-)

Чтобы округлить сначала определитесь, что важнее - точное совпадение вычислений на листе или округление. Ведь если тупо округлить значения, то какие-то ячейки, участвующие ранее в вычислениях будут давать неверный результат.
Лучше просто примените формат к ячейкам и до, и после:
Цитата
Sub All_Formulas_To_Values_In_All_Sheets()
   Dim wsSh As Worksheet
   For Each wsSh In Sheets
       wsSh.UsedRange.NumberFormat = "@"
       wsSh.UsedRange.Value = wsSh.UsedRange.Value
       wsSh.UsedRange.NumberFormat = "0.00"
   Next wsSh
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#19
25.06.2013 21:12:26
Цитата
The_Prist пишет:
основа кода и название процедуры(All_Formulas_To_Values_In_All_Sheets) взяты с моего сайта.
Дим, я из файла ТС брал
 
 
 
#20
25.06.2013 21:21:29
Хотел как быстрее и лучше сделать работу. Но надобыло на начальной стадии задаться этим вопросом. просто получается у меня выводит формулы значения "формат общий", а какието числовой число десятичных знаков либо 1, либо2. А может мне сделать так, попробывать макрос записанный макрорекордером, он у меня выводит значения, а потом воспользоваться вашим макросом не много переделанным Serge 007.
 
 
 
#21
25.06.2013 21:26:10
Цитата
danka пишет:
В рассчетах цифры получались например 82,6, а после выполнения макросом 82,5588001734408.
Попробуйте добавить в макрос две строчки:
Код
ActiveWorkbook.PrecisionAsDisplayed = True
в насчале макроса и
Код
ActiveWorkbook.PrecisionAsDisplayed = False
в конце. Может сработает.
 
 
 
#22
25.06.2013 22:02:40
Цитата
Serge 007 пишет:
Дим, я из файла ТС брал
Так я ничего против-то не имею ни к ТС, ни тем более к тебе. Так, отметил мимоходом(уж слишком подозрительно знакомый код увидел просто) :-)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#23
25.06.2013 22:06:48
Кому интересно. Вообщем, нашел решение, записал макрос (выделил все листы в книги кнопкой shift, выделил весь лист1, соответственно выделились так же другие листы, копировать, спец. вставка вставить зачения, убрал выделение с листов, остановил запись. И вот, что получилось:
Код
Sub Макрос1()
 Range("A1").Select
 Sheets(Array("Лист1", "Лист2", "Лист3")).Select
 Sheets("Лист1").Activate
 Cells.Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Range("A1").Select
 Application.CutCopyMode = False
 ActiveCell.FormulaR1C1 = ""
 Range("A1") .Select
 Sheets("Лист1") .Select
End Sub

Вроде работает.
 
 
 
#24
25.06.2013 22:07:54
Если есть другие придложения или замечания, с радостью прочитаю. А так спосибо всем, за то что обратили на мою тему, было очень приятно.
Изменено: danka - 25.06.2013 22:10:46
 
 
 
#25
25.06.2013 22:37:11
Есть прИдложение: в сообщении оформляйте код соответствующим тэгом (кнопочка над полем для сообщения)
 
 
 
Страницы: 1
Читают тему
Наверх