Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как можно сразу во все формулы добавить ещё одно действие
 
#1
31.05.2013 12:33:19
так в название темы вопрос и есть, на листе есть таблица, в ней достаточное количество различных формул, как можно сразу во все эти формулы добавить действие, например действие /24. Формулы в ячейках простые, но простым протягиванием сделать это не возможно.
 
 
 
#2
31.05.2013 12:37:08
Как быстро умножить/разделить/сложить/вычесть из множества ячеек одно и то же число?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
31.05.2013 12:37:57
пишите в ячейку 24, копируете, выделяете диапазон с формулами, ПКМ/специальная вставка/разделить
 
 
 
#4
31.05.2013 12:42:20
Не вникал почему (т.к. практического смысла нет), но получилось в 2 захода:
1 - меняем заменой все = на xyz
2 - меняем заменой все xyz на =1/24*

Но практического смысла нет, т.к. мало когда практически применимо.
 
 
 
#5
31.05.2013 12:43:52
госпади, видимо пятница сказывается, ведь все просто..
прошу прощения за свой вопрос..
большое спасибо, помогли!))
 
 
 
#6
20.12.2024 11:43:58
А как-то можно сделать, чтоб во все ячейки столба в конце дописалось, например, " /А1 " ? т.е. чтобы не просто поделилось, а чтоб это была формула с делением на ячейку, которую можно менять  
 
 
 
#7
20.12.2024 13:04:57
Александр Мнацаканов, макросом.
Но в общем случае мало просто дописать в конец "/A1"
 
 
 
#8
20.12.2024 13:25:00
Подтверждаю, можно макросом  :)
Код
Sub Дописать_формулу()
    Dim rr As Range
    On Error Resume Next
    Set rr = Selection.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If rr Is Nothing Then
        MsgBox "В выделенном диапазоне не найдены формулы.", vbCritical, "Дописать формулы"
        Exit Sub
    End If
    
    Dim Application_Calculation As XlCalculation: Application_Calculation = Application.Calculation: Application.Calculation = xlCalculationManual
    
    Dim cl As Range
    For Each cl In rr.Cells
        cl.FormulaR1C1 = cl.FormulaR1C1 & "/R[-1]C" 'Предыддущая строка
        'cl.FormulaR1C1 = cl.FormulaR1C1 & "/R1C1"   'A1
        'cl.FormulaR1C1 = cl.FormulaR1C1 & "/RC[-1]" 'Предыдущий столбец
    Next
    
    Application.Calculation = Application_Calculation
End Sub
 
 
 
#9
20.12.2024 14:34:11
МатросНаЗебре, ну а если там например формула
Код
=C4+D4

или что-то сложнее.
Ну если следовать озвученному ТЗ то конечно ДА ))
Изменено: Hugo - 20.12.2024 14:36:18
 
 
 
#10
20.12.2024 16:38:34
если там формула то нужно вставить скобки
потом можно заменить = на = для пересчета
Код
=ЗАМЕНИТЬ(ЕСЛИОШИБКА(Ф.ТЕКСТ(A2:A10);"="&A2:A10);1;1;"=(")&")/A1"
Изменено: Тимофеев - 20.12.2024 16:48:19
 
 
 
Страницы: 1
Читают тему
Наверх