Excel2002 - avtomatski zapis časa spremembe celice

[ant]

Kako bi se ob vsakokratni spremembi (=novem vpisu
ali spremembi vrednosti) katerekoli celice avtomatsko zapisala
informacija o času spremembe (=čas izhoda iz celice po vpisovanju)
in avtorju (=ime računalnika). Morda v "comment" te celice, ali pa v
sosednjo/desno celico (potem bi moral ustrezno organizirati tabelo,
da bi bile "žive vrednosti" samo v vsakem drugem stolpcu).

Hvala!

Ant

[admin]

Spodni makro vam bo naredil kar želite, Toda pazite, to ni navadan makro, temveč odziv na dogodek. O teh makrih si lahko več preberete v forumu. (Zgoraj v iskanje vpišite 'odziv' in si poglejte najdene tematike).

Koda: Izberi vse

'
'  www.matjazev.net
'
'  marec 2009
'
Option Explicit

Function DobiKomentar(celica As Range)
  Dim tmp As String
  
  On Error Resume Next
  tmp = WorksheetFunction.Clean(celica.Comment.Text)
  DobiKomentar = tmp

  On Error GoTo 0
End Function

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim komentar As String
  Dim celica As Range
  
On Error GoTo konec
  Application.EnableEvents = False
  For Each celica In Target.Cells
    komentar = DobiKomentar(celica)
    komentar = komentar & Chr(10) & Application.UserName & " " & Now()
    celica.ClearComments
    celica.AddComment Text:=komentar
  Next
  
konec:
    Application.EnableEvents = True
End Sub

[ant]

Hmmm... Najprej vse občudovanje za vašo odzivnost... Ampak prosim za (še) malo več razumevanj za nas "amaterje"... Sem bil priden in sem prebral vse, kar mi vrže ven pod "odziv" ampak še vedno ne znam vaše kode uporabiti/namestiti. Rad bi seveda, da bi zadeva delovala samo v trenutni datoteki (in tistih - z morebiti drugačnimi imeni, ki jih bom ustvaril iz trenutne). Prosim torej še za malo (verjetno trivialne) pomoči, kako Excel "naučiti", da bo to kodo izvajal. Hvala!

[kljuka13]

Pozdravljeni ant,

kodo vstavite tako, da:

odprete Microsoft Office Excel
pritisnete Alt+F11
v levem "meniju" izberete List1 (oz. Worksheet1)
tukaj noter sedaj prilepite kodo.

[ant]

HVALA !!!