Nejdříve bych upozornil na to, že v Excelu existuje funkcionalita "Sledování změn" - karta Revize. Díky tomu můžeš získat do komentáře buňky poslední provedenou změnu. Excel pak umožňuje také "Zobrazení změny na novém listu" = tzv. historie změn vázaná na uložení sešitu. Podívej se, jak to funguje...
Jinak to, co popisuješ, by šlo udělat určitě přes makra a události listu.
P.
Možné řešení přes VBA:
Public puvodni_hodnota_bunky As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
puvodni_hodnota_bunky = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim volny_sloupec As Integer
If Target.Column <> 1 Then
Exit Sub
End If
Application.EnableEvents = False
volny_sloupec = Cells(Target.Row, 10000).End(xlToLeft).Column + 1
Cells(Target.Row, volny_sloupec).Value = "změna z: " & puvodni_hodnota_bunky & " na: " & Target.Value
Application.EnableEvents = True
End Subcitovat
Jinak to, co popisuješ, by šlo udělat určitě přes makra a události listu.
P.
Možné řešení přes VBA:
Public puvodni_hodnota_bunky As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
puvodni_hodnota_bunky = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim volny_sloupec As Integer
If Target.Column <> 1 Then
Exit Sub
End If
Application.EnableEvents = False
volny_sloupec = Cells(Target.Row, 10000).End(xlToLeft).Column + 1
Cells(Target.Row, volny_sloupec).Value = "změna z: " & puvodni_hodnota_bunky & " na: " & Target.Value
Application.EnableEvents = True
End Subcitovat
RSS nejnovější články