Stránka 1 z 1
Sledování změny buňky
Napsal: 09 bře 2010 09:03
od Puzzlehead
Čau profíci,
potřeboval bych pomoct se sledováním změny buňky tak jako je u sdíleného sešitu pokud si dám zvýraznit změny. Sešit bude sdílený, bude mít několik sloupců a dva sloupce by měli obsahovat komentřář a kdo-kdy změnil. Políčko kdo-kdy změnil by se mělo samo aktualizovat po změně políčka komentáře na základě přihlášené osoby, tj. vyplněného uživatelského jména.
Díky za pomoc
Re: Sledování změny buňky
Napsal: 09 bře 2010 09:36
od navstevnik
V editoru VBA (Alt+F11) vloz do modulu prislusneho listu (nutno predem zrusit sdileni sesitu) proceduru, plati pro zmeny v prvnim sloupci:
Kód: Vybrat vše
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
' zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName")
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName
End Sub
Re: Sledování změny buňky
Napsal: 09 bře 2010 10:45
od Puzzlehead
Perfektní, díky. Jde tam přihodit ještě i datum a čas, kdy byla změna provedena?
Re: Sledování změny buňky Vyřešeno
Napsal: 09 bře 2010 11:10
od navstevnik
samozrejme lze.
Pokud primo ke jmenu, pak takto:
Kód: Vybrat vše
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
' zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName") & " " & Now
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName & " " & Now
End Subdo dalsi bunky takto (uprav si ve sloupci format bunky):
Kód: Vybrat vše
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
' zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName")
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName
Target.Offset(0, 2).Value = Now
End Sub
Re: Sledování změny buňky
Napsal: 09 bře 2010 11:52
od Puzzlehead
Díky. uzavírám