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.
VBA kodu ile hücre değiştiğinde tarih ve saati otomatik olarak kaydedin
VBA kodu ile hücre değiştiğinde tarih ve saati otomatik olarak kaydedin
Ö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 xOfsetSütunu = 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.
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!