Как привести функцию =СЕГОДНЯ() к значению?

Question

[twdr]

Допустим, в ячейке А1 отображается текущая дата. В ячейке B3 необходимо сделать функцию, которая будет отображать дату нажатия на галочку ячейки B2. Сделать это нужно так, чтобы поставив галочку 26 июня, дата не изменилась на 27.06.23 на следующий день.

Comments

[Akina]

Формулами не решается. Используй VBA-обработчик переключения чекбокса.

[Антон]

Нуу, это даже я могу:

Private Sub CheckBox1_Change()
  If Me.CheckBox1.Value = False Then Me.CheckBox1.Caption = "Uncheked"
  If Me.CheckBox1.Value = True Then Me.CheckBox1.Caption = "Checked"
  MsgBox Me.CheckBox1.Caption, vbInformation + vbOKOnly
End Sub

Private Sub CheckBox1_Click()
' rem if date/time of open
' else date/time of click
  If Me.CheckBox1.Value = True Then Range("a1").Formula = "=Now()" 

  If Me.CheckBox1.Value = True Then Range("b2").Value = Range("a1").Value
End Sub

[Alexander Ivanov]

На картинке не Excel.