Bitişik hücre Excel'de güncellendiğinde, hücredeki tarihi otomatik olarak nasıl doldurabilirim?
Bazen, belirli bir sütundaki bir hücreyi güncellerken, güncellemeyle ilgili en son tarihi işaretlemek isteyebilirsiniz. Bu makale, bu sorunu çözmek için bir VBA yöntemi önerecektir. Hücre güncellendiğinde, bitişik hücre hemen geçerli tarihle otomatik olarak doldurulacaktır.
Bitişik hücre VBA koduyla güncellendiğinde, hücredeki geçerli tarihi otomatik olarak doldurun
Bitişik hücre VBA koduyla güncellendiğinde, hücredeki geçerli tarihi otomatik olarak doldurun
B sütunundaki konumları güncellemeniz gerektiğini varsayarsak ve B sütunundaki hücre güncellendiğinde, geçerli tarih A sütununun bitişik hücresinde doldurulur. Ekran görüntüsüne bakın:
Bu sorunu çözmek için aşağıdaki VBA kodunu çalıştırabilirsiniz.
1. Tarihi bitişik güncellenen hücreye göre otomatik olarak doldurmanız gereken sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden.
2. Uygulamalar için Microsoft Visual Basic penceresinde, lütfen aşağıdaki VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: bitişik hücre güncellendiğinde bir hücrede geçerli tarihi otomatik olarak doldurun
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
notlar:
3. Basın Ara Toplam + Q anahtarları aynı anda kapatmak için Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, B sütunundaki hücreleri güncellerken, A sütunundaki bitişik hücre hemen güncel tarihle doldurulacaktır. Ekran görüntüsüne bakın:
İlgili yazılar:
- Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?
- Excel açılır listesine yazarken otomatik tamamlama nasıl yapılı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!