Zapisywanie historii zmian w Excel

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Dexter 21:40 » Rafael_3D 21:38 » kemilk 21:36 » Kenny 21:34 » leon 21:32 » wrrr 21:30 » DJopek 21:28 » Flo 21:27 » Artaa 21:25 » pwil2 21:22 » Lucyferiu 21:17 » ngP 21:17 » Majster 21:15 » Master/Pe 21:15 » abes99 21:08 » rainy 21:06 » JE Jacaw 21:03 » kyusi 21:00 » GLI 21:00 » Promilus 20:53 Dzisiaj przeczytano 28952 postów, wczoraj 26990 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Zapisywanie historii zmian w Excel , petergreen 23/03/16 07:47
Szukam sposobu, aby na przykład w osobnym arkuszu zapisywane były automatycznie dwa pola: data zmiany i kto zmieniał - każda zmiana w nowym wierszu. Czy Excel ma jakieś wbudowane funkcje czy trzeba skryptem?

chyba nie , dulik 23/03/16 08:22
Wydaje mi się że Excel nie ma tego, ja to robiłem skryptami w arkuszu albo jako komentarz
"Być może istnieją czasy piękniejsze, ale
te są nasze"
1. Kod , petergreen 23/03/16 08:30
  Masz może jeszcze kod tego skryptu i możesz się podzielić?
proszę , dulik 23/03/16 09:52
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

For Each komorka In Target
On Error Resume Next
starytekst = komorka.Comment.Text
If Err <> 0 Then komorka.AddComment

For a = 1 To Len(starytekst)
If Mid(StrReverse(starytekst), a, 1) = Chr(10) Then c = c + 1
If c = 10 Then
starytekst = Right(starytekst, a - 1)
Exit For
End If
Next a

komorka.Comment.Text starytekst & " Zmienione " & Format(Now, "yyyy-mm-dd hh:mm") & " przez " & _
Application.UserName & " na """ & komorka.Formula & """" & Chr(10)
komorka.Comment.Visible = True
komorka.Comment.Shape.Select
Selection.AutoSize = True
komorka.Comment.Visible = False
Next

End Sub

"Być może istnieją czasy piękniejsze, ale
te są nasze"
1. Dzięki , petergreen 23/03/16 09:59
  Potestuję.
2. Łooo, ale czad ;-) , Dexter 23/03/16 10:25
  Fajne to!
  Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
  Odpowiedzi oleję.
  THX!
  1. Dobra, mniej fajne gdy... , Dexter 24/03/16 13:17
    ...wcisnąć CTRL+A a potem DEL
    
    :-)
    Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
    Odpowiedzi oleję.
    THX!
3. s.w. , Kenny 23/03/16 18:25
  123
  .:Pozdrowienia:.
W udostepnionym arkuszu , Ar3cK 23/03/16 16:51
Sa takie mozliwosci (fragment' Wyświetlanie arkusza historii'):

https://support.office.com/...a3-845d-eeb23725bd15
It's the Bright One, it's the Right
One, that's Ar3cK...
http://thesurrealist.co.uk/slogan
1. Kolega dobrze radzi :-) , Hiper 4/04/16 22:31
  Trochę długi ten tekst, ale są tam dobre i skuteczne rady.
  Szukam pracy jako informatyk (we
  Wrocq).
s.w Excel śledzenie zmian , Artaa 23/03/16 17:24
zmiany