Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Александр 1331
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Прогнозирование события, Расчет в Excel
 
#
12.01.2023 16:11:50
Кто может небезвозмездно помочь решить задачу в EXCEL c формулами?
ТЗ в приложении..
 
Перейти    
Запоминание значений при изменении значений
 
#
13.08.2020 12:08:37
Идеально!
Спасибо.
Изменено: Александр 1331 - 13.08.2020 12:13:04
 
Перейти    
Запоминание значений при изменении значений
 
#
13.08.2020 11:55:08
Цитата
Mershik написал:
не увидел произведение...
Произведение в B1.  
 
Перейти    
Запоминание значений при изменении значений
 
#
13.08.2020 11:47:31
Нужно значение из ячейки B1 запоминать в эту же строку. E1, F1...
предполагается что формула будет меняться при изменении значения в ячейке А1.
 
Перейти    
Запоминание значений при изменении значений
 
#
13.08.2020 10:50:50
Здравствуйте.  
При каждом изменении значений в А1 и В1, произведение в С1 тоже меняется.  
Нужно, чтобы в строку  сохранялась вся история изменений ячейки С1.  

Подскажите как сделать чтобы такой макрос работал на все строки с 1-ой по 100. и чтобы значения записывались на против каждой строке только при изменении значений из соответствующей строки?

Код
Option Explicit

Private Sub Worksheet_Calculate()
Dim LastColumn&
LastColumn = Cells("1", Columns.Count).End(xlToLeft).Column
Cells("1", LastColumn + 1) = [B1]
End Sub
 
Перейти    
Автоматическое сохранение предыдущих значений ячейки при изменениях
 
#
23.07.2020 10:14:35
Кто может подсказать как подкорректировать чтобы макрос работал для каждой строки?
Сейчас проблема в том, что когда я изменяю значение Х в столбце B разных строках то значение записывается все равно в одну строку.
Код
Public stroka
Const Fc = 3 'номер столбца с формулой
 
Private Sub Worksheet_Calculate()
If Selection.Count > 1 Then
        stroka = Selection.Row
        n = Selection.Rows.Count
                        Else
        n = 1
End If
For j = 0 To n - 1
    i = Fc
    While Cells(stroka + j, i) <> ""
       i = i + 1
    Wend
    Cells(stroka + j, i).Value = Cells(stroka + j, 3).Text & " введено (" & Date & " в " & Time & ")"
    Cells(stroka + j, i).Columns.AutoFit
Next j
End Sub
Изменено: Александр 1331 - 23.07.2020 10:15:47
 
Перейти    
Вызов одного макроса из другого, Макрос запускаемый при изменении значения в ячейке для замены формулы на результат
 
#
30.06.2020 14:03:47
Только зарегился не ожидал на такую обратную связь)) и тут еще от админки "Сообщение запрещено. Данные отправляются слишком часто. Подождите несколько минут".

Настя_Nastya, , Больше спасибо!!!)))
Битый час потратил безрезультатно.. а Вы сходу.
Формула в #6 подходит.  
 
Перейти    
Вызов одного макроса из другого, Макрос запускаемый при изменении значения в ячейке для замены формулы на результат
 
#
30.06.2020 11:53:24
Цитата
Молодое_Поколение написал:
зке значений формула не будет сбиваться
В том же и задача чтобы формула изменилась на результат при изменении значений A1:A3
 
Перейти    
Вызов одного макроса из другого, Макрос запускаемый при изменении значения в ячейке для замены формулы на результат
 
#
30.06.2020 11:46:34
Нет. обычными формулами здесь не обойтись.
Так как в этот файл еще автоматически парсятся в диапазон А1:А3 значения поэтому необходимо через макрос.  
 
Перейти    
Вызов одного макроса из другого, Макрос запускаемый при изменении значения в ячейке для замены формулы на результат
 
#
30.06.2020 11:38:34
Подскажите корректно настроить макрос так чтобы он запускался когда в указанный диапазон ячеек (например, А1:A3) будет введено число, тогда в этот момент в соседней ячейке где забита формула (=A1*0,9) будет запущен макрос и формула изменится на результат


Этот не работает корректно!


Код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
   If Target <> 0 Then
     MsgBox "Ок"
     Sub Formulas_To_Values_Sheet()
 'преобразование формул в значения на текущем листе
     ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
 End Sub
   End If
 End If
End Sub
 
Перейти    
Страницы: 1
Наверх