Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

5th
Июн

Востановить формулу записанную в ячейке, при записи в ней любого числа и записать это в ячейку другого листа

Posted by obzor under VBA

в книге MagaliTi.xlsm имеется два листа. В ячейке первого листа Sheet2.cells(1.1) записана любая формула exel.
нужен макрос, который при записи любого числа в эту ячейку , это число записывал в ячейку Sheet1.cells(1.1) второго листа, а в ячейку Sheet1.cells(1.1) восстанавливал прежнюю формулу.

вот код :

Код:

Dim storedFormula As String
Dim isFormulaStored As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        On Error GoTo CleanExit

        ' Копируем значение в Sheet1 (используется объектное имя Sheet1)
        Sheet1.Cells(Target.Row, Target.Column).Value = Target.Value

        ' Восстанавливаем формулу, если она была сохранена
        If isFormulaStored Then
            Me.Cells(Target.Row, Target.Column).Formula = storedFormula
        End If

CleanExit:
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        ' Сохраняем формулу только один раз
        If Not isFormulaStored Then
            storedFormula = Me.Cells(Target.Row, Target.Column).Formula
            isFormulaStored = True
        End If
    End If
End Sub