Jak rejestrować zmieniające się wartości w komórce w programie Excel?
Jak zarejestrować każdą zmieniającą się wartość dla często zmieniającej się komórki w programie Excel? Na przykład oryginalna wartość w komórce C2 to 100, po zmianie liczby z 100 na 200 oryginalna wartość 100 zostanie automatycznie wyświetlona w komórce D2 do nagrywania. Śmiało, aby zmienić 200 na 300, numer 200 zostanie wstawiony do komórki D3, zmiana 300 na 400 wyświetli 300 na D4 i tak dalej. Metoda opisana w tym artykule może Ci w tym pomóc.
Zarejestruj zmieniające się wartości w komórce za pomocą kodu VBA
Zarejestruj zmieniające się wartości w komórce za pomocą kodu VBA
Poniższy kod VBA może pomóc w rejestrowaniu każdej zmieniającej się wartości w komórce w programie Excel. Wykonaj następujące czynności.
1. W arkuszu roboczym zawierającym komórkę, w której chcesz zapisać zmieniające się wartości, kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
2. Następnie Microsoft Visual Basic for Applications otwiera się okno, skopiuj poniższy kod VBA do okna Code.
Kod VBA: rejestruj zmieniające się wartości w komórce
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
Uwagi: W kodzie C2 jest komórką, w której chcesz zapisać wszystkie zmieniające się wartości. D2 to komórka, w której zapełnisz pierwszą zmieniającą się wartość C2.
3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
Odtąd za każdym razem, gdy zmienisz wartości w komórce C2, poprzednie zmieniające się wartości zostaną zapisane w D2 i komórkach poniżej D2.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!