Excel'de bir hücredeki değişen değerler nasıl kaydedilir?
Excel'de sık değişen bir hücre için değişen her değer nasıl kaydedilir? Örneğin, C2 hücresindeki orijinal değer 100'dür, sayı 100'ü 200'e değiştirirken, orijinal değer 100, kayıt için otomatik olarak D2 hücresinde görüntülenecektir. 200'ü 300'e değiştirmek için devam edin, 200 sayısı D3 hücresine eklenecek, 300'ü 400'e değiştirmek 300'den D4'e vb. Görüntülenecektir. Bu makaledeki yöntem, bunu başarmanıza yardımcı olabilir.
VBA kodu ile bir hücrede değişen değerleri kaydedin
VBA kodu ile bir hücrede değişen değerleri kaydedin
Aşağıdaki VBA kodu, Excel'deki bir hücredeki her değişen değeri kaydetmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Çalışma sayfasında, değişen değerleri kaydetmek istediğiniz hücreyi içerir, sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
2. Sonra Uygulamalar için Microsoft Visual Basic penceresi açılıyor, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayın.
VBA kodu: bir hücrede değişen değerleri kaydedin
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
notlar: Kodda C2, tüm değişen değerlerini kaydetmek istediğiniz hücredir. D2, C2'nin ilk değişen değerini dolduracağınız hücredir.
3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, C2 hücresindeki değerleri her değiştirdiğinizde, önceki değişen değerler D2'ye ve D2'nin altındaki hücreler kaydedilecektir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!