Skip i'r prif gynnwys

Sut i fonitro newidiadau celloedd yn Excel?

Sut allech chi fonitro celloedd taflen waith os yw'r data'n cael ei newid yn Excel? Efallai y bydd hyn yn eich helpu i adnabod y celloedd sydd wedi newid cyn gynted ag y gallwch. Yr erthygl hon, byddaf yn siarad am rai dulliau diddorol i ddelio â'r dasg hon yn Excel.

Monitro newidiadau celloedd yn Excel gyda swyddogaeth Newidiadau Trac

Monitro newidiadau celloedd yn Excel gyda chod VBA


swigen dde glas saeth Monitro newidiadau celloedd yn Excel gyda swyddogaeth Newidiadau Trac

Mae gan Excel ddefnyddiol Newidiadau Llwybr nodwedd, gall eich helpu i farcio'r celloedd sydd wedi newid, gwnewch fel a ganlyn:

1. Cliciwch adolygiad > Newidiadau Llwybr > Newidiadau Uchafbwyntiau, gweler y screenshot:

monitro doc newidiadau 1

2. Yn y Newidiadau Uchafbwyntiau blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) Gwiriwch Trac yn newid wrth olygu. Mae hyn hefyd yn rhannu eich llyfr gwaith.

(2.) O dan y Tynnwch sylw at y newid adran, nodwch yr eitemau Pryd, Pwy, a Lle yn ôl yr angen.

(3.) O'r diwedd, gwiriwch Tynnwch sylw at y newidiadau ar y sgrin opsiwn.

monitro doc newidiadau 2

3. Ar ôl gorffen y gosodiadau, cliciwch OK botwm, nawr, pan fyddwch chi'n newid unrhyw werthoedd celloedd yn y celloedd penodedig, mae ffin ag eicon trionglog o amgylch y celloedd sydd wedi'u newid, gweler y screenshot:

monitro doc newidiadau 3

Nodyn: Gyda'r dull hwn, bydd eich llyfr gwaith yn dod yn llyfr gwaith a rennir.


swigen dde glas saeth Monitro newidiadau celloedd yn Excel gyda chod VBA

Gall y cod VBA canlynol hefyd eich helpu i fonitro gwerthoedd celloedd pan gânt eu newid, gwnewch fel hyn:

1. Cliciwch ar y dde ar y tab dalen rydych chi am fonitro newidiadau celloedd, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA canlynol i'r Modiwl:

Cod VBA: Monitro newidiadau celloedd yn nhaflen waith Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

monitro doc newidiadau 4

Nodyn: Yn y cod uchod, A1: E7 yw'r ystod ddata rydych chi am ei monitro os yw celloedd yn newid, gallwch ei newid i'ch angen.

2. Yna arbedwch a chau y ffenestr god hon, ac yn awr, pan fyddwch chi'n newid gwerth y gell yn yr ystod benodol, bydd blwch neges yn popio allan i'ch atgoffa, gweler y screenshot:

monitro doc newidiadau 5

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Merhaba. WhatsApp üzerinden bana gelen bir excell dosyası var. Bunu bilgisayar üstünden açıp. Bunda ki hareketleri ve değişiklikleri görme şansım var mı ?
This comment was minimized by the moderator on the site
I got "syntax error" with "Dim xrng As Range" when I inserted the below code in my worksheet_change event :-(
VBA code: Monitor cell changes in Excel worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub
This comment was minimized by the moderator on the site
if i have large amount of data in excel file, and i just want to know status in one different colum that if any cell gets change its value then it should indicate in from of that cell's row , tha status shoild be changed, how can i do this
This comment was minimized by the moderator on the site
hello how can we track by date and time in the change in the cell
This comment was minimized by the moderator on the site
Woooow this is nowhere else except here! Amazing!

Is there any way to insert a row right below the row of the cell where the cell was updated?

To make it more challenging, if I have list validation enabled or formula enabled can that as well be copied to the new row?
This comment was minimized by the moderator on the site
Hi, amar,
To insert a row below the changed value, the following VBA code can help you, please try it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xStrPre, xStr As String
On Error Resume Next
Set xRg = Range("A1:E7")
If Intersect(xRg, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStr = Target.Value
Application.Undo
xStrPre = Target.Value
Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Target.Offset(1, 0).Value = xStrPre
Target.Value = xStr
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Hello, I have it copying old number to new line - how do I have the new line go to a new tab instead?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations