Hücre değiştiğinde tarih ve saat otomatik olarak nasıl kaydedilir?
Manuel olarak statik tarih ve saat eklemek veya bir formülle sistem saatiyle değişen dinamik bir tarih eklemek bizim için kolaydır. Değerleri değiştirdiğinizde veya girdiğinizde tarih ve saati otomatik olarak kaydetmek istiyorsanız, bu sorunun üstesinden gelmek biraz farklı olabilir. Ancak bu yazıda aşağıdaki adımlarla bu görevi çözebilirsiniz.
- Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
- 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
- Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
- Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
- Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
- Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
- 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.
Örneğin, bir dizi değerim var ve şimdi, Sütun B'de yeni değerleri değiştirdiğimde veya yazdığımda, gösterilen aşağıdaki ekran görüntüsü gibi Sütun C'de geçerli tarih ve saati otomatik olarak kaydetmesini istiyorum:
Bu görevi aşağıdaki VBA kodu ile tamamlayabilirsiniz. Lütfen şunu yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. Ardından soldan kullanılmış çalışma sayfanızı seçin Proje Gezginiaçmak için çift tıklayın modülve ardından aşağıdaki VBA kodunu kopyalayıp boş Modüle yapıştırın:
VBA kodu: Hücre değiştiğinde tarih ve saati otomatik olarak kaydedin
Private Sub Worksheet_Change(ByVal Target As Range) 'Update 20140722 Dim WorkRng As Range Dim Rng As Range Dim xOffsetColumn As Integer Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target) xOffsetColumn = 1 If Not WorkRng Is Nothing Then Application.EnableEvents = False For Each Rng In WorkRng If Not VBA.IsEmpty(Rng.Value) Then Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End If End Sub
3. Ardından çalışma sayfasına dönmek için bu kodu kaydedin ve kapatın, şimdi hücre değerini değiştirdiğinizde veya Sütun B'ye yeni veri yazdığınızda, tarih ve saat otomatik olarak Sütun C'ye kaydedilecektir.
Notlar:
1. Yukarıdaki kodda, "B: B"Bu komut dosyasındaki hücre değerlerini değiştirmek istediğiniz diğer herhangi bir sütuna: WorkRng = Kesişim (Application.ActiveSheet.Range ("B: B"), Hedef) ayarla.
2. Bununla xOffsetColumn = 1 komut dosyası, değişen değer sütununuzun yanındaki ilk sütuna tarih ve saati ekleyebilir ve güncelleyebilirsiniz, 1 sayısını 2,3,4,5 gibi diğer sayılarla değiştirebilirsiniz ... bu, tarihin ekleneceği anlamına gelir. değiştirilen değerler sütununun yanında ikinci, üçüncü, dördüncü veya beşinci sütun.
3. Değiştirilen sütundaki bir değeri sildiğinizde, tarih ve saat de kaldırılacaktır.