Note: The other languages of the website are Google-translated. Back to English

Excel'de çift tıklayarak bir hücreye geçerli tarih / saati otomatik olarak nasıl ekleyebilirim / girebilirim?

Bir çalışma sayfasına sık sık geçerli tarih veya tarih saati eklemeniz gerekiyorsa, bu makaledeki yöntemi deneyebilirsiniz. Bu makale, yalnızca çift tıklama ile belirli bir aralıktaki hücrelerde geçerli tarih veya tarih türünü otomatik olarak eklemenize veya girmenize yardımcı olacaktır.

VBA kodu ile geçerli tarih veya tarih saatini otomatik eklemek / girmek için çift tıklayın


VBA kodu ile geçerli tarih veya tarih saatini otomatik eklemek / girmek için çift tıklayın

Bir hücreye çift tıklayarak otomatik olarak geçerli tarih veya tarih saati eklemek için aşağıdaki VBA kodunu çalıştırabilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Belirtilen hücrelere geçerli tarihi eklemek istediğiniz Sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden.

2. içinde Uygulamalar için Microsoft Visual basic penceresinde aşağıdaki VBA kodunu kopyalayıp Kod penceresine yapıştırın.

VBA kodu: Geçerli tarihi bir hücreye eklemek için çift tıklayın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

notlar:

1. Kodda, A1: B10, geçerli tarihi ekleyeceğiniz aralıktır.
2. Hücreye geçerli tarih saatini eklemeniz gerekiyorsa, lütfen değiştirin Tarih ile Şimdi () kodda. Bunları ihtiyaç duyduğunuz şekilde değiştirebilirsiniz.

3. Basın Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic penceresini açın ve çalışma sayfasına dönün.

Şu andan itibaren, belirtilen A1: B10 aralığındaki herhangi bir hücreye çift tıklandığında. Geçerli tarih veya tarih saati otomatik olarak girilecektir.


İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (28)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Daha fazla hücre aralığı eklemek için bunu nasıl genişletiriz? (Target, Range("C10:C19", "D10:D19", "E10:E19")) koduna eklenmiş bu fazladan bir hücre ekledim, ancak bana "yanlış sayıda argüman veya geçersiz özellik atamaları" ve ardından "Private Sub Worksheet_BeforeDoubleClick(ByVal Hedef Olarak Aralık, Boolean Olarak İptal Et)" sağladığınız ilk kod satırını vurgular.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Joel, hala bir çözüm mü arıyorsunuz bilmiyorum ama kodunuzu değiştirmeniz gerekiyor:

Kimden: (Hedef, Aralık("C10:C19", "D10:D19", "E10:E19"))
Kime: (Hedef, Aralık("C10:C19,D10:D19,E10:E19"))

Bu sizin için yapacak.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Nick,
Sizden bu konu hakkında tavsiye almak istiyorum....
"Verimlilik sayfası" adını verdiğim bir dosyam var.... Bu sayfada seçili hücrelere, hücre tıklandığında gerçek zamanı eklemek istiyorum... (Mümkünse bu hücreleri istiyorum) zaman değişmez gibi göründükten sonra .....kilitlenmek gibi bir şey.)
Zaman ayırdığınız için teşekkür ederim ve şimdiden teşekkürler
Atilla, Macaristan
exyzee@gmail.com
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Atilla,
Lütfen tıklandığında belirli bir aralıktaki hücreye gerçek zamanı eklemek için aşağıdaki ekran görüntüsünü deneyin.
(Otomatik olarak kilitlenen hücreler işlevi gerçekleştirilemez, bunun için üzgünüm)

Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Application.ScreenUpdating = Yanlış
Kesişmiyorsa(Hedef, Aralık("A1:B10")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Tarih
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod gerçekten işe yarıyor... Teşekkürler...Verileri girdikten sonra hücreyi korumak için başka bir kod ekledim. Şimdi sorun şu ki, verileri girdiğimde ve hücre korunuyor ve yanlışlıkla korunan hücreye çift tıklarsam, yukarıdaki kod tüm sayfa için yanlış gidiyor. O zaman çalışmıyor. Kodu canlı hale getirmek için sayfanın korumasını kaldırmam gerekiyor. Herhangi bir çözüm?

Kullanılan koruma Kodu aşağıdadır:

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Aralık olarak Dim xRg
On Error Resume Next
xRg = Kesiştir ayarla(Aralık("A1:a1000,b1:b1000,G1:G1000"), Hedef)
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
Target.Worksheet.Unprotect Parola:="123"
xRg.Locked = Doğru
Target.Worksheet.Protect Parola:="123"
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Paul,
Verdiğiniz kodu denedim. Belirtilen korumalı hücrelerden herhangi birine veri girdiğimde çalışma sayfasının tamamı hemen korunacaktır.
Ayrıca, korumalı hücreye çift tıklandığında, benim durumumda kodda hiçbir şey değişmiyor.
Kodla tam olarak ne yapmaya çalıştığınızı açıklar mısınız?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Üzgünüm, amacını anladım. (yukarıdaki kodu kaçırmayın)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Oluşturulan çift tıklama giriş kodu:


Özel Alt Çalışma Sayfası_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Kesişmiyorsa(Hedef, Aralık("A1:a1000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Tarih
Eğer son

Kesişmiyorsa(Hedef, Aralık("b1:b1000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Zaman
Eğer son

Kesişmiyorsa(Hedef, Aralık("g1:g1000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Zaman
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Paul,
Lütfen aşağıdaki VBA kodunu deneyin.

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Aralık olarak Dim xRg
On Error Resume Next
xRg = Kesiştir ayarla(Aralık("A1:a1000,b1:b1000,G1:G1000"), Hedef)
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
Target.Worksheet.Unprotect Parola:="123"
xRg.Locked = Doğru
Target.Worksheet.Protect Parola:="123"
End Sub

Özel Alt Çalışma Sayfası_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Application.EnableEvents = Yanlış
ActiveSheet.Unprotect Parola:="123"
Kesişmiyorsa(Hedef, Aralık("A1:a1000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Tarih
Eğer son
Kesişmiyorsa(Hedef, Aralık("b1:b1000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Zaman
Eğer son
Kesişmiyorsa(Hedef, Aralık("g1:g1000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Zaman
Eğer son
ActiveSheet.Protect Parola:="123"
Application.EnableEvents = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aralığı güncelleyen kodu kopyalayıp yapıştırdım ve işe yaramadı :-(


Özel Alt Çalışma Sayfası_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Kesişmiyorsa(Hedef, Aralık("B4:B100")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Şimdi()
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Kod benim durumumda iyi çalışıyor. Office sürümünüzü söyleyebilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, verdiğiniz kod harika çalışıyor. Tarih girilene kadar hücrede "tarih eklemek için çift tıklayın" metnine sahip olmanın herhangi bir yolu olup olmadığını merak ediyorum. Şimdiden teşekkür ederim (İş arkadaşlarımın kafasını karıştırmamak için belgemi olabildiğince kullanıcı dostu hale getirmeye çalışıyorum)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, yukarıdaki kod benim için harika çalıştı. Şimdi, tarih girilene kadar hücrede "Tarih girmek için çift tıklayın" metninin görünmesini sağlamanın bir yolu olup olmadığını merak ediyorum. Amacım, belgeyi olabildiğince kullanıcı dostu hale getirmek. Şimdiden teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Travis,
Kodu doğrudan hücrede metin görüntülenecek şekilde değiştiremeyiz. Ancak alternatif olarak, aşağıdaki optimize edilmiş kod, hücre yorumundaki metnin görüntülenmesine yardımcı olacaktır ve tarih girmek için hücreye çift tıkladıktan sonra yorum otomatik olarak kaldırılacaktır.

Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("A1:B10")) O Zaman Hiçbir Şey Değildir
Target.NoteText "tarih eklemek için çift tıklayın"
Eğer son
End Sub

Özel Alt Çalışma Sayfası_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Kesişmiyorsa(Hedef, Aralık("A1:B10")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Hedef.Yorum.Sil
Target.Formula = Tarih
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Yukarıdaki kodu aynen boş bir çalışma kitabına yazıldığı gibi kopyalayıp yapıştırdım, ancak benim için çalışmıyor. Web'deki farklı kaynaklara baktım ve çoğu site yukarıda yazılanlara benzer bir formata sahip. Sanırım VBA'mda bir sorun var veya bazı ayarlar açık değil. Herhangi bir tavsiye çok takdir edilecektir. Windows 365'da Office 16.0.11001.20097 MSO (32) 10 bit için Excel çalıştırıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu seviyorum ve harika çalışıyor. Kodu çalıştırmak için çift tıkladığımda askeri zamanda gösterdiği zamanı nasıl yapabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Dylan,
Maalesef henüz bu konuda size yardımcı olamam. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayfanızdaki Format -> Number -> Time seçeneklerinden o hücre için askeri saat formatını seçerseniz çalışması gerektiğini düşünüyorum. Örneğin, 1:30 PM veya 13:30 seçeneği sunar, bu nedenle sadece 13:30'u seçersiniz ve bunu yapmanız gerekir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayı -> Zaman biçimi seçeneklerinden o hücre için Askeri Saat biçimini seçerseniz, bunu yapması gerektiğini düşünürdüm. Örneğin, 13:30 PM yerine 1:30'u seçersiniz ve ardından askeri saatte görüntülenmesi gerekir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodu Excel Online'a eklemenin bir yolu olup olmadığını bilen var mı? Masaüstü sürümüyle kullanmıştım ve harika çalıştı ama şimdi her şeyi çevrimiçi platforma taşıdık ve çift tıklamadaki tarih ve saat damgalarım kayboldu ve kodu nasıl görüntüleyeceğimi veya düzenleyeceğimi anlayamıyorum. Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu yüzden kod ekledim ve çalışma kitabımdaki birkaç sayfada harika çalışıyor, ancak bazı sayfalarda doğru aralığı girmeme rağmen belirli bir satırdan sonra aniden çalışmayı durduruyor. Bunun neden olabileceğine dair herhangi bir düşünce.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu tam da aradığım şeydi - bu çok zaman kazandırıyor ve iyi yazılmış talimatları takdir ediyorum. Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhabalar, kod benim için çok şey yaptı, Kodun sadece alan boşsa çalışmasını nasıl kısıtlayabilirim. Hücrede zaten bir tarih varsa, çift tıklama hiçbir şey yapmamalıdır, saygılar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Ahmed,
Sorun için üzgünüm. Sadece çift tıklama ile tarih içeren boş hücreleri doldurmak için aşağıdaki VBA kodunu uygulayarak halletmek için kullanabilirsiniz.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu işlev çalışmadı. Çift Tıklama, hücrenin manuel olarak düzenlenmesine girer.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Bob,
Kod benim durumumda iyi çalışıyor. Excel sürümünüz gibi sorununuz hakkında daha ayrıntılı bilgiye ihtiyacım var.
Ve kod yalnızca belirttiğiniz hücrelerde çalışır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese selam,

Bu makroyu, E sütununa çift tıklayarak tarih damgasını kullanmak için kullanmaya çalışıyorum ve çalışıyor ancak aynı şeyi yapmak için makroyu çoğaltmaya çalıştığımda ancak şu an için F sütununda, ekte gördüğünüz gibi çalışmıyor. Şunu belirten bir hata mesajı: Belirsiz Ad Algılandı.
Alt Çalışma Sayfası bölümünü başka bir adla değiştirmeye çalıştığımda ve hücrelere çift tıkladığımda hiçbir şey olmuyor.

Birisi bana bu konuda yardımcı olabilir mi?

Kodum:


Sub Worksheet_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Kesişmiyorsa(Hedef, Aralık("E1:E10000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Tarih
Eğer son
End Sub

Sub Worksheet_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Kesişmiyorsa(Hedef, Aralık("F1:F10000")) O Zaman Hiçbir Şey Değildir
İptal = Doğru
Target.Formula = Şimdi()
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Louis,
Makroyu çoğaltmak, tek bir sayfa kod penceresinde aynı ada sahip iki aynı yordama neden olur. Excel, bir modülde iki veya daha fazla aynı işlev adına izin vermez. Eventlerde bile yok. Belirsizliğe yol açar.
Aynı olay üzerinde farklı bir görev yapmak istiyorsanız, orijinal kodu ihtiyaçlarınızı karşılayacak şekilde değiştirmeniz gerekir.
Aşağıdaki VBA kodu size bir iyilik yapabilir. Lütfen bir deneyin.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır