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

Sut i gofnodi gwerthoedd newidiol mewn cell yn Excel?

Sut i gofnodi pob gwerth newidiol ar gyfer cell sy'n newid yn aml yn Excel? Er enghraifft, y gwerth gwreiddiol yng nghell C2 yw 100, wrth newid rhif 100 i 200, bydd y gwerth gwreiddiol 100 yn cael ei arddangos yng nghell D2 yn awtomatig i'w recordio. Ewch ymlaen i newid 200 i 300, bydd rhif 200 yn cael ei fewnosod yng nghell D3, bydd newid 300 i 400 yn arddangos 300 i D4 ac ati. Gall y dull yn yr erthygl hon eich helpu i'w gyflawni.

Cofnodi gwerthoedd newidiol mewn cell gyda chod VBA


Cofnodi gwerthoedd newidiol mewn cell gyda chod VBA


Gall y cod VBA isod eich helpu i gofnodi pob gwerth newidiol mewn cell yn Excel. Gwnewch fel a ganlyn.

1. Yn y daflen waith mae'n cynnwys y gell rydych chi am ei chofnodi gwerthoedd sy'n newid, cliciwch ar y dde ar y tab dalen ac yna cliciwch Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:

2. Yna y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn agor, copïwch isod god VBA i mewn i ffenestr y Cod.

Cod VBA: cofnodwch werthoedd sy'n newid mewn cell

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

Nodiadau: Yn y cod, C2 yw'r gell rydych chi am gofnodi ei holl werthoedd newidiol. D2 yw'r gell y byddwch chi'n poblogi gwerth newidiol cyntaf C2.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, bob tro pan fyddwch chi'n newid gwerthoedd yng nghell C2, bydd y gwerthoedd newidiol blaenorol yn cael eu cofnodi yn D2 a'r celloedd o dan D2.


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 (42)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi


Mae hyn yn gweithio'n dda iawn os yw'r gwerth yn C2 yn cael ei nodi bob tro, ond nid yw'n gweithio os yw C2 yn cynnwys fformiwla. Oes yna ffordd i'r un peth yma ond gyda fformiwla yn C2?


Diolch am yr ateb hawdd hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os byddwch yn darganfod sut i'w ddefnyddio os yw C2 yn cynnwys fformiwla, a fyddech cystal â rhoi gwybod i mi sut y gwnaethoch chi. Ni allaf i weld sut i unrhyw le ar y rhyngrwyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'r cod wedi'i optimeiddio. Rhowch gynnig arni a diolch am eich sylw.

Dim xVal Fel Llinyn
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
xCyfrif Fel Cyfanrif Statig
Application.EnableEvents = Gau
Os yw Target.Address = Ystod ("C2").Cyfeiriad Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
arall
Os xVal <> Ystod ("C2").Gwerth Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
xVal = Ystod ("C2").Gwerth
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HAI,



Y VBS UCHOD DIM OND C2 SYMUD I D2,



INEED C2 I C55 SYMUD I D2 I D55



ALLWCH CHI HELPU AC ANFON ATI alexmathew33@gmail.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helpwch fi ar y senario isod:
O Daflen 1:
A1=VALUE (Newidiadau oherwydd RTD gyda Fformiwla)
B2= VALUE1 (Newidiadau oherwydd RTD gyda Fformiwla)

Copïwch holl gelloedd gwerthoedd blaenorol A1, B1 i Daflen 2 o golofnau M, NOF Yr un Excel neu Daflen 1 o'r Llyfr Gwaith Newydd

Rhannwch gyda mi i melukotahari@gmail.com

-Melukota
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ALLWN GAEL Y VBS AM YR UCHOD
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os yw cell C2 yn fformiwla? Sut mae cofnodi gwerthoedd C2 os yw'n fformiwla?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'r cod wedi'i optimeiddio. Rhowch gynnig arni a diolch am eich sylw.

Dim xVal Fel Llinyn
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
xCyfrif Fel Cyfanrif Statig
Application.EnableEvents = Gau
Os yw Target.Address = Ystod ("C2").Cyfeiriad Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
arall
Os xVal <> Ystod ("C2").Gwerth Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
xVal = Ystod ("C2").Gwerth
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HAI,



Y VBS UCHOD DIM OND C2 SYMUD I D2,



INEED C2 I C55 SYMUD I D2 I D55



ALLWCH CHI HELPU AC ANFON ATI alexmathew33@gmail.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - Rwy'n gwerthfawrogi'r tiwtorial hwn yn fawr iawn ... rwy'n ceisio cofnodi'r gwerth newydd ar daenlen wahanol. Er enghraifft, rwyf am gofnodi gwerth dalen 1 C2 ar ddalen 2 D2. Allwch chi ddarparu cod wedi'i addasu?
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A all y cofnodion fod mewn Llorweddol yn lle Fertigol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A fyddai'n bosibl i'r macro hwn gofnodi dwy gell ar wahân mewn dwy golofn ar wahân? h.y. A allaf gofnodi Pob gwerth o A1 yng Ngholofn B a holl Werthoedd C1 yng ngholofn D?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rhowch gynnig ar y dull yn yr erthygl hon:
Sut i gofio neu arbed gwerth cell blaenorol cell wedi'i newid yn Excel?
https://www.extendoffice.com/documents/excel/5056-excel-remember-save-previous-cell-value.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch i chi am hyn ond yn lle mynd ymlaen am byth sut y gallwn i ailgychwyn yn ôl yn y gell gyntaf ar ôl X nifer o weithiau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Ydych chi'n golygu ar ôl recordio X mount o weithiau, rydych chi am ailgychwyn yn ôl i'r gwerth cofnod cyntaf?
Mae'n ddrwg gennyf, nid wyf yn siŵr a gefais eich cwestiwn. Byddai'n braf pe gallech ddarparu sgrinlun o'r hyn yr ydych yn ceisio ei wneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch

ond beth alla i ei wneud os bydd angen i mi ei ailadrodd ar gyfer llawer o gelloedd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch

ond beth alla i ei wneud os bydd angen i mi ei ailadrodd yn amrwd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Peki bu kaydı yatay olarak nasıl kaydedeceğiz. Satırlara değil Sütunlara kaydetmesini istiyorum. Teşekkürler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae cadw'r rhif cyn gynted ag y caiff ei gynhyrchu nid ar ôl i rif newydd gael ei gynhyrchu? Y broblem sydd gen i yw nad yw'r rhif yn cael ei gofnodi ar unwaith ond ar ôl i ail rif gael ei greu; mae hyn yn golygu nad oes gan y gell rydw i'n ei recordio na'r gell sy'n darged y rhif... sut mae recordio cyn gynted ag y bydd y rhif yn cael ei gynhyrchu? Diolch am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo John,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Croeso i bostio unrhyw gwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A fyddai'n bosibl cymhwyso hyn ar gyfer mwy nag un gell?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Diolch am y cod, ond mae gennyf gwestiwn

A oes ffordd i addasu'r cod, fel ei fod yn cofnodi gwerth os yw'r gell yn ddyddiol, neu ar ddiwrnodau penodol, yr wyf yn ei nodi mewn colofn ar wahân?


Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar hyn

Dim xVal Fel Llinyn
Dim iVal Fel Cyfanrif
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
xCyfrif Fel Cyfanrif Statig
iVal = Application.WorksheetFunction.Count(Amrediad("F:F"), 1)
xCyfrif = iVal
Application.EnableEvents = Gau
Os yw Target.Address = Ystod ("C2").Cyfeiriad Yna
Ystod ("E3"). Offset(xCount, 0).Gwerth = Ystod("C2").Gwerth
Ystod ("F3"). Offset(xCount, 0).Gwerth = Nawr
xCyfrif = xCyfrif + 1
arall
Os xVal <> Ystod ("C2").Gwerth Yna
Ystod ("E3"). Offset(xCount, 0).Gwerth = Ystod("C2").Gwerth
Ystod ("F3"). Offset(xCount, 0).Gwerth = Nawr
xCyfrif = xCyfrif + 1
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
xVal = Ystod ("C2").Gwerth
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais y cod hwn ar gyfer y gell C2 sy'n cynnwys gwerthoedd DDE sy'n newid eiliad wrth eiliad. Rwy'n defnyddio'r cod canlynol ond ddim yn gweithio.

Dim xVal Fel Llinyn
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
xCyfrif Fel Cyfanrif Statig
Application.EnableEvents = Gau
Os yw Target.Address = Ystod ("C2").Cyfeiriad Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
arall
Os xVal <> Ystod ("C2").Gwerth Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
xVal = Ystod ("C2").Gwerth
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n gweithio pan fyddaf yn teipio'r data, nid yw'n gweithio pan fyddaf yn ffrydio data amser real i'r gell hon yn uniongyrchol (= RTD (.....)). sut alla i wneud iddo weithio gydag RTD?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am y tiwtorialau, dwi'n hoffi gwybod a oes ffordd i wneud dim ond cell yn ymddwyn fel cyfrifiannell arferol.
hy dylai'r gell hon allu crynhoi ffigurau sy'n ymddangos mewn cell arall, tra'n cadw'r ffigur cronnus olaf yn weladwy.
Y gell arall hon fydd y gell allweddol neu'r gell weithredol.
enghraifft:
Cell 1: =2*5, mae'r ateb yn ymddangos yng Nghell 2,
Cell 1: =3 * 6.8, ychwanegir yr ateb at y gwerth blaenorol sy'n deillio o (2 * 5) ac mae'n dal i ymddangos yng nghell 2.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r fformiwla uchod yn gweithio ar gyfer fformiwlâu, dim ond ar gyfer mewnbwn â llaw. a oes unrhyw ffordd i newid y codio i wneud iddo weithio ar gyfer celloedd sy'n cynnwys fformiwla?



Dim xVal Fel Llinyn
'Diweddariad gan Extendoffice 2018/8/22
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
xCyfrif Fel Cyfanrif Statig
Application.EnableEvents = Gau
Os yw Target.Address = Ystod ("C2").Cyfeiriad Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
arall
Os xVal <> Ystod ("C2").Gwerth Yna
Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
xVal = Ystod ("C2").Gwerth
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Rhowch gynnig ar y VBA isod.



Dim xVal Fel Llinyn

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

xCyfrif Fel Cyfanrif Statig

Application.EnableEvents = Gau

Os yw Target.Address = Ystod ("C2").Cyfeiriad Yna

Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal

xCyfrif = xCyfrif + 1

arall

Os xVal <> Ystod ("C2").Gwerth Yna

Ystod ("D2"). Offset(xCount, 0).Gwerth = xVal

xCyfrif = xCyfrif + 1

Gorffennwch Os

Gorffennwch Os

Application.EnableEvents = Gwir

Is-End

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)

xVal = Ystod ("C2").Gwerth

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ddim yn gweithio i fformiwlâu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r byd hwn yn iawn, fodd bynnag, roedd angen i mi gymhwyso'r cod hwn i 2 gell wahanol, gan arbed y gwerthoedd newidiol ar gyfer pob cell mewn colofnau cyfatebol ar wahân. Sut y gellir addasu'r cod? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rhowch gynnig ar y dull yn yr erthygl hon:

Sut i gofio neu arbed gwerth cell blaenorol cell wedi'i newid yn Excel?

https://www.extendoffice.com/documents/excel/5056-excel-remember-save-previous-cell-value.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl addasu hwn a'i ddefnyddio gyda DDE/RTD? Yn gweithio'n iawn wrth newid y celloedd â llaw, ond nid gyda DDE / RTD.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir newid hyn i weithio ar gyfer celloedd lluosog mewn un daflen waith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rhowch gynnig ar y dull yn yr erthygl hon:

Sut i gofio neu arbed gwerth cell blaenorol cell wedi'i newid yn Excel?

https://www.extendoffice.com/documents/excel/5056-excel-remember-save-previous-cell-value.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Ceisiais ddefnyddio'r cod hwn i gofnodi pob newid yng ngwerth cell benodol. Fodd bynnag, roeddwn yn meddwl tybed a allai unrhyw un fy helpu trwy ei addasu fel bod y newid mewn gwerth yn cael ei gasglu mewn tab GWAHANOL a hefyd felly mae'n cael ei arbed bob tro y bydd y llyfr gwaith ar gau. Gan ei fod yn fath o ail-osod ei hun bob tro y mae'r llyfr gwaith yn cael ei agor heb arbed y gwerthoedd blaenorol. Cod: Dim xVal As String
'Diweddariad gan Extendoffice 2018/8/22
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
xCyfrif Fel Cyfanrif Statig
Application.EnableEvents = Gau
Os yw Target.Address = Ystod ("J7").Cyfeiriad Yna
Ystod ("AB2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
arall
Os xVal <> Ystod ("J7").Gwerth Yna
Ystod ("AB2"). Offset(xCount, 0).Gwerth = xVal
xCyfrif = xCyfrif + 1
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
xVal = Amrediad ("J7").Gwerth
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am yr isod. Cwestiwn cyflym.... a ydych chi'n gallu ailosod hwn ar adegau fel y gallwch chi, ar eich cais, gael y macro i ddileu'r holl rifau blaenorol a dechrau cofnodi rhifau eto o gell D2? Ar hyn o bryd, mae niferoedd yn cael eu cofnodi D2, D3, D4, D5, D6 ac ati
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir