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
	» rzymo 05:36 » Demo 05:30 » Shark20 04:15 » NWN 04:14 » PiotrexP 04:06 » Visar 03:00 » Chavez 02:46 » yanix 02:26 » PaKu 02:20 » metacom 02:18 » xpx 02:17 Dzisiaj przeczytano 41116 postów, wczoraj 25974 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