In certi casi, pò esse assai utile per salvà tutta a storia di u cambiamentu di una cellula in a so propria nota. Puderia vede qualcosa cum'è questu:
Per implementà questu, avemu bisognu di una macro simplice. Cliccate u dirittu nantu à a tabulazione di u fogliu induve si trovanu e cellule monitorate è selezziunate u cumandamentu Testu fonte (Vede u codice). Copia è incollà u seguente codice in a finestra chì si apre:
Private Sub Worksheet_Change(ByVal Target As Range) Dim NewCellValue$, OldComment$ Dim cell As Range 'se a cellula ùn hè micca in un intervallu tracciatu, allora esce If Intersect(Target, Range("B3: B5")) Ùn hè nunda Allora Exit Sub ' iterate tutte e cellule in a regione mudificata Per ogni cellula In Intersect (Target, Range ("B3: B5")) If IsEmpty (cell) Allora NewCellValue = "Cell cleared" 'fix cell clearing Else NewCellValue = cell.Formula 'o u so cuntenutu End If On Error Resume Next With cell OldComment = .Comment.Text & Chr(10) .Comment.Delete 'sguassate a vechja nota (se ci hè) .AddComment 'aghjunghje un novu è inserisce u testu in questu .Comment.Text Text: = Vechju Cumentu & Applicazione. UserName & " " & _ Format (Avà, "MM.DD.YY h:MM:ss") & " : " & NewCellValue .Comment.Shape.TextFrame.AutoSize = True 'we autosize .Comment.Shape.TextFrame. Characters.Font.Size = 8 End With Next cell End Sub Cambia u intervalu di seguimentu B3: B5 à u vostru propiu - è aduprà per a vostra salute.
- Cumu sapè quale l'utilizatori anu cunnessu in u vostru libru di Excel di pocu tempu
- Modi basi per stabilisce a prutezzione (cellule, fogli, libru di travagliu) in Excel