Note: The other languages of the website are Google-translated. Back to English

Sut i olrhain newidiadau heb rannu llyfr gwaith?

Fel rheol, pan ddefnyddiwch y nodwedd Newidiadau Trac yn Excel, bydd y llyfr gwaith yn cael ei rannu ar yr un pryd, bydd hyn yn annifyr oherwydd bydd rhai o'r nodweddion yn Excel yn anabl. Sut allech chi olrhain newidiadau heb rannu llyfr gwaith? Yma, byddaf yn argymell cod VBA i chi.

Trac newidiadau heb rannu llyfr gwaith â chod VBA


swigen dde glas saeth Trosi testun yn fwrdd yn Outlook

Nid oes unrhyw ffordd uniongyrchol ichi ddatrys y broblem hon, ond, gallwch gymhwyso cod VBA hyblyg i'w ddatrys, gwnewch fel a ganlyn:

1. Cliciwch ar y dde wrth y tab dalen rydych chi am olrhain celloedd sydd wedi newid, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r gwag Modiwlau:

Cod VBA: Trac newidiadau heb rannu llyfr gwaith:

Private Sub Worksheet_Change(ByVal Target As Range)
  'Updateby Extendoffice
    Const xRg As String = "A1:Z1000"
    Dim strOld As String
    Dim strNew As String
    Dim strCmt As String
    Dim xLen As Long
    With Target(1)
        If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
        strNew = .Text
        Application.EnableEvents = False
        Application.Undo
        strOld = .Text
        .Value = strNew
        Application.EnableEvents = True
        strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
        Application.UserName & Chr(10) & "Previous Text :- " & strOld
        If Target(1).Comment Is Nothing Then
            .AddComment
        Else
            xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
        End If
        With .Comment.Shape.TextFrame
            .AutoSize = True
            .Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
        End With
    End With
End Sub

newid trac doc heb rannu 1

Nodyn: Yn y cod uchod, A1: Z1000 yw'r ystod ddata rydych chi am olrhain newidiadau.

2. Yna arbedwch a chau ffenestr y cod hwn, nawr, pan fyddwch chi'n newid y gwerthoedd mewn unrhyw gelloedd o fewn yr ystod benodol rydych chi wedi'i gosod yn y cod, bydd y celloedd yn cael eu tracio, ac nid yw'r llyfr gwaith yn cael ei rannu. Gweler y screenshot:

newid trac doc heb rannu 2


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwaith gwych. Yn anffodus, mae rhai problemau gyda'ch cod. - Bydd yn ychwanegu sylw hyd yn oed ar y cofnod cyntaf y gell. Sut alla i wneud iddo olrhain newidiadau o'r ail gofnod nid yr un cyntaf? - Unwaith y byddaf yn nodi gwerth mewn cell ni allaf wneud "Dadwneud". - Nid yw'n gweithio gyda thablau. Ceisiwch ddefnyddio ar fwrdd yna ceisiwch ychwanegu neu ddileu amrwd a bydd y cod yn chwalu. Dwi wir yn dymuno cael y wybodaeth i gael y cod i weithio'r ffordd rydw i ei eisiau fel y disgrifir uchod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un mater sydd gennyf. Nid yw botymau "Dadwneud" ac "Ailwneud" yn gweithio mwyach. A oes unrhyw ateb i hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais ddefnyddio'r cod VBA hwn yn fy nhaflen excel. Ond fe roddodd gamgymeriadau i mi. Nid wyf yn gwybod o ble y dylid galw'r macro hwn a beth yw'r ddadl i'r swyddogaeth yr ydych wedi'i darparu pan gaiff ei galw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd o gofnodi'r newidiadau ar gyfer pob tab mewn llyfr gwaith, a chofnodi'r newidiadau i daenlen newydd? Byddai BOD yn anhygoel ... ac ni allaf ddod o hyd i unrhyw wybodaeth ar draws y rhyngrwyd gyda'r math hwn o broses olrhain.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, jfjoyner,I newid y cod hwn ar gyfer pob tudalen, a chofnodi'r newidiadau trac i ddalen arall, defnyddiwch y cod isod:Nodyn: Rhowch y cod hwn yn y modiwl ThisWorkbook.Opsiwn Penodol
Dim mStrRgAddress Fel Llinyn
Dim mStrRgValue Fel Llinyn

Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)
Const xRg Fel Llinyn = "A1:Z1000"
Const xSheetName As String = "Taflen gofnod" 'Mae'r ddalen yr ydych am roi'r trac yn newid, os gwelwch yn dda newidiwch enw'r ddalen i'ch enw chi.
Dim strOld As String
Dim strNewydd Fel Llinyn
Dim strCmt Fel Llinyn
Dim xLen Cyhyd
Dim xTaflen Fel Taflen Waith
Dim xRgCell Fel Ystod
Dim xRgCell2 Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Gosod xSheet = Application.Sheets.Item(xSheetName)
Os mStrRgAddress <> "" Yna
Gosod xRgCell = Ystod(mStrRgAddress)
Os xRgCell.Text <> mStrRgValue Yna
strCmt = mStrRgAddress & " : " & Fformat$(Nawr, "dd Mmm BBBB hh:nn:ss") & " gan " & _
Application.UserName & Chr(10) & " Testun Blaenorol :- " & mStrRgValue
Gosod xRgCell2 = xSheet.Range("a1048576").End(xlUp)
Os xRgCell2.AddressLocal = xSheet.Range("A1").AddressLocal Yna
Os xRgCell2.Value <> "" Yna
Gosod xRgCell2 = xRgCell2.Offset(1, 0)
Gorffennwch Os
arall
Gosod xRgCell2 = xRgCell2.Offset(1, 0)
Gorffennwch Os
xRgCell2.Value = strCmt
Gorffennwch Os
Gorffennwch Os
Os xSheet.Name = Sh.Name Yna Gadael Is
mStrRgValue=Targed.Text
mStrRgAddress = Target.AddressLocal(Gau, Gau, , Gwir)
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, mae hyn yn wych, ond ni allaf ei gael i weithio. Rwy'n cymryd ei fod yn rhedeg yn awtomatig, sy'n golygu nad oes angen clicio ar "Run"? Fe wnes i ailenwi taflen waith i ddweud {--TRACK_CHANGES--} i ddilyn y cyfarwyddiadau a adawoch mewn gwyrdd. Hyd yn hyn, nid yw'n cofnodi unrhyw beth. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch eto, fe sylwodd skyyang.I hefyd, pan wnes i gludo hwn i'r modiwl ar gyfer Y Llyfr Gwaith Hwn, bod fy nhaenlen fawr wedi dechrau cyfrifo'n barhaus ac ni fyddai'n stopio. Nid wyf yn gwybod dim am raglennu VBA, ond cefais y drafodaeth hon am yr un pwnc. Efallai y bydd yn esbonio pam mae'r cyfrifiad yn mynd rhagddo'n ddiddiwedd. https://www.mrexcel.com/board/threads/continuous-calculation-wont-stop.1179541/page-6#posts 
Y mater ar y wefan hon oedd:Ond unwaith y bydd y mater cyfrifo parhaus yn dechrau, mae'n barhaus. Mae gwasgu'r allwedd Esc yn torri ar draws y cyfrifiad, ond mae'n dechrau wrth gefn eto oni bai fy mod yn newid i Manual Calc. Mae'r modd calc â llaw yn gweithio'n iawn nes i mi redeg unrhyw un o'r macros, sydd wedyn yn gorffen trwy ail-alluogi AutoCalc... Rwyf wedi bod trwy bob taflen waith yn y model ac yn rhedeg gwirio gwallau yn ofer.
Eu casgliad oedd: Mae hyn yn wir: unwaith y byddwch yn cyfeirio at wrthrych ffurf neu ei eiddo (frmBudget.startupposition = 3) - mae'r gwrthrych yn cael ei lwytho wedyn nes i chi ei ddadlwytho neu ailosod eich prosiect (Colled cyflwr - Ar y pwynt hwn mae POB newidyn yn cael ei ailosod ac unrhyw werthoedd a gollwyd)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo jfjoyner3, Sut wyt ti. Fel y gwelwch yn y ddau sgrinlun, newidiais y "taflen gofnod" yn "sheet2" yn y Cod VBA. 
Yna dychwelais i lyfr gwaith Excel. Ar ôl i mi wneud rhai newidiadau yn y daflen1, mae'r holl newidiadau hyn wedi'u cofnodi yn y daflen2.
O ran y mater cyfrifo parhaus, a allech chi anfon y sgrinluniau neu'r fideo o'ch problem atom ni? Felly gallwn ddeall yn iawn beth sy'n digwydd yma. Diolch! 
Yn gywir, Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo jfjoyner3, mae croeso i chi. Ar ôl i chi gadw'r daenlen gyda'r cod macro VBA, bydd y macro yn cychwyn yn awtomatig bob tro y byddwch chi'n agor y daenlen. Nid oes angen ei gychwyn â llaw. Unrhyw gwestiwn, mae croeso i chi gysylltu â ni. Cael diwrnod braf! Cofion gorau, Mandy   
Lleihawyd y sylw hwn gan y safonwr ar y wefan
MandyZhou, diolch. A yw'r macro hwn yn cychwyn yn awtomatig pan fyddaf yn agor y daenlen? Neu a oes rhaid i mi ei gychwyn â llaw? 
Mae'r broblem cyfrifo parhaus yn gysylltiedig â app arall. 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo jfjoyner3,Yn gyntaf, ar ôl i chi gopïo ein Cod VBA i'r modiwl ThisWorkbook, mae'r cod yn rhedeg yn awtomatig.Second, mae ein cod VBA yn gweithio. Os gwelwch yn dda gweld y ddwy sgrinlun a uwchlwythais yn y sylw hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mandyzhou, Diolch eto am yr arweiniad manwl hwn. Rwy'n cael Gwall Cystrawen ac mae'n fy nghyfeirio at y llinell hon:

Os mStrRgAddress <> "" Yna

Ydych chi'n gallu arwain i addasu hyn a dileu'r Gwall Cystrawen?
Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir