Hogyan lehet rögzíteni a változó értékeket az Excel cellájában?
Hogyan lehet rögzíteni az Excel gyakran változó cellájának minden változó értékét? Például a C2 cellában az eredeti érték 100, amikor a 100-as számot 200-ra változtatja, a 100 eredeti érték automatikusan megjelenik a D2 cellában rögzítés céljából. Folytassa a 200-ról 300-ra váltást, a 200-as szám beillesztésre kerül a D3 cellába, a 300-ról 400-ra a 300-ról D4-re és így tovább. A cikkben szereplő módszer segíthet elérni.
Jegyezze fel a változó értékeket egy cellába VBA kóddal
Jegyezze fel a változó értékeket egy cellába VBA kóddal
Az alábbi VBA-kód segíthet az Excel minden cellájának minden változó értékének rögzítésében. Kérjük, tegye a következőket.
1. A munkalap tartalmazza azt a cellát, amelybe a változó értékeket rögzíteni kívánja, kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a helyi menüből. Lásd a képernyőképet:
2. Ezután a Microsoft Visual Basic for Applications ablak nyílik, kérjük, másolja a VBA kód alatt a Kód ablakba.
VBA kód: rögzítse a változó értékeket egy cellában
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
Megjegyzések: A kódban a C2 az a cella, amelybe fel akarja venni az összes változó értékét. D2 az a cella, amelyben feltölti a C2 első változó értékét.
3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
Mostantól kezdve minden alkalommal, amikor megváltoztatja az értékeket a C2 cellában, a korábbi változó értékeket a D2 és a D2 alatti cellák rögzítik.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!