Kako zapisati spreminjajoče se vrednosti v celico v Excelu?
Kako zabeležiti vsako spreminjajočo se vrednost za pogosto spreminjajočo se celico v Excelu? Na primer, prvotna vrednost v celici C2 je 100, pri spreminjanju številke 100 na 200 pa bo prvotna vrednost 100 samodejno prikazana v celici D2 za snemanje. Pojdite naprej, da spremenite 200 na 300, številka 200 bo vstavljena v celico D3, sprememba 300 na 400 bo prikazala 300 na D4 in tako naprej. Metoda v tem članku vam lahko pomaga, da jo dosežete.
V celico s kodo VBA zabeležite spremenljive vrednosti
V celico s kodo VBA zabeležite spremenljive vrednosti
Spodnja koda VBA vam lahko pomaga zabeležiti vsako spreminjajočo se vrednost v celico v Excelu. Naredite naslednje.
1. Na delovnem listu je celica, v katero želite zapisati spreminjajoče se vrednosti, z desno miškino tipko kliknite jeziček lista in nato kliknite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
2. Nato Microsoft Visual Basic za aplikacije odpre se okno, kopirajte spodnjo kodo VBA v okno Code.
Koda VBA: beleži spreminjanje vrednosti v celici
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
Opombe: V kodi je C2 celica, v katero želite zabeležiti vse njene spreminjajoče se vrednosti. D2 je celica, v katero boste vnesli prvo spreminjajočo se vrednost C2.
3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
Odslej bodo vsakič, ko spremenite vrednosti v celici C2, prejšnje spreminjajoče se vrednosti zabeležene v D2 in celice pod D2.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!