Excel'de geçerli tarihe sahip hücreye hızlı bir şekilde nasıl atlanır?
İşte tarihlerin bir listesini içeren bir sayfa, şu anki tarihin bulunduğu hücreye hızlı bir şekilde atlamak istiyorsunuz, bu problem nasıl çözülür?
Bul ve Değiştir ile güncel tarihe atlayın
VBA ile güncel tarihe atlayın
İşte geçerli tarihle hücreye hızlı bir şekilde atlamanıza yardımcı olabilecek bir VBA kodu.
1. Kullanmak istediğiniz çalışma kitabını etkinleştirin ve düğmesine basın. Alt + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül, aşağıdaki kodu şuraya yapıştırın: modül.
VBA: Geçerli tarihe atla
Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Basın F5 tuşuna bastığınızda, imleç çalışma kitabında bulduğunuz her yerde geçerli tarihi içeren hücreye atlar.
Bul ve Değiştir ile güncel tarihe atlayın
VBA koduna aşina değilseniz, ayrıca Bul ve Değiştir güncel tarihe atlamak için yardımcı program.
1. Tarih listesini içeren sayfayı etkinleştirin ve boş bir hücre seçin, bu formülü yazın = BUGÜN (), basın Keşfet anahtar, şimdi bugün tarihini alıyorsunuz.
2. Basın Ctrl + C bugünün tarihini kopyalamak için, tarihler listesine gidin ve ardından Ctrl + F etkinleştirmek için Bul ve Değiştir iletişim kutusunda Ne bul metin kutusu, basın Ctrl + V bugün tarihini yapıştırmak için. Ekran görüntüsüne bakın:
3. tık Hepsini bul. Şimdi imleç, seçilen listede bugünün bulunduğu hücreye atlar.
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!