Jak zaznamenat měnící se hodnoty v buňce v aplikaci Excel?
Jak zaznamenat každou měnící se hodnotu pro často se měnící buňku v aplikaci Excel? Například původní hodnota v buňce C2 je 100, při změně čísla 100 na 200 se původní hodnota 100 automaticky zobrazí v buňce D2 pro záznam. Pokračujte změnou 200 na 300, číslo 200 se vloží do buňky D3, změna 300 na 400 zobrazí 300 na D4 atd. K dosažení tohoto cíle vám může pomoci metoda v tomto článku.
Zaznamenejte měnící se hodnoty do buňky pomocí kódu VBA
Zaznamenejte měnící se hodnoty do buňky pomocí kódu VBA
Níže uvedený kód VBA vám pomůže zaznamenat každou měnící se hodnotu v buňce v aplikaci Excel. Postupujte prosím následovně.
1. V listu obsahuje buňku, do které chcete zaznamenat měnící se hodnoty, klikněte pravým tlačítkem na kartu listu a poté klikněte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
2. Potom Microsoft Visual Basic pro aplikace Otevírá se okno, zkopírujte prosím níže uvedený kód VBA do okna Kód.
Kód VBA: zaznamenejte měnící se hodnoty v buňce
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
Poznámky: V kódu je C2 buňka, do které chcete zaznamenat všechny její měnící se hodnoty. D2 je buňka, do které vyplníte první měnící se hodnotu C2.
3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Od této chvíle, pokaždé, když změníte hodnoty v buňce C2, budou se předchozí měnící hodnoty zaznamenány v D2 a buňkách pod D2.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!