Excel'de belirli bir hücreye tıklandığında takvim penceresi nasıl açılabilir?
Bir çalışma sayfasında sıkça tarih girmeniz ve değiştirmeniz gereken bir sütun aralığı olduğunu varsayalım; ancak her seferinde tarihi elle girmek veya değiştirmek sıkıcıdır. Bu sütun aralığına elle yazmadan hızlıca tarih girmenin yolu nedir? Bu makale, belirli bir aralıktaki hücrelere tıklandığında bir takvimin açılmasını ve takvimdeki tarihi seçtikten sonra seçilen hücreye otomatik olarak Tarih ekle yöntemini açıklamaktadır.
Adım 2: Hücreye tıklandığında Takvimi etkinleştirin
Belirli bir hücreye tıklandığında VBA kodu ile takvim açma
Lütfen bu sorunu çözmek için aşağıdaki adımları izleyin.
Not: Bu yöntem yalnızca Microsoft Excel’in 32 bitlik sürümünde çalışır.
Adım 1: Takvim içeren bir Kullanıcı Formu oluşturun
Hücreye tıklandığında açılan takvimi içeren bir Kullanıcı Formu oluşturun.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > KullanıcıFormu seçeneğine tıklayın.
3. Ardından bir KullanıcıFormu ve bir Araç Kutusu penceresi açılır; Araç Kutusu penceresinde herhangi bir denetim öğesine sağ tıklayıp, açılan menüden Ek Denetimler seçeneğini seçin. Ekran görüntüsüne bakın:
4. Ek Denetimler iletişim kutusunda aşağı kaydırın, Kullanılabilir Denetimler kutusundan Microsoft MonthView Control seçeneğini işaretleyin ve ardından Tamam düğmesine tıklayın.
5. Ardından MonthView düğmesinin Araç Kutusu penceresine eklendiğini göreceksiniz. Lütfen bu MonthView düğmesine tıklayın ve ardından KullanıcıFormu1 penceresine tıklayarak formda bir takvim oluşturun.
Not: KullanıcıFormu penceresinin boyutunu, eklenen takvime uyacak şekilde KullanıcıFormu kenarlığını sürükleyerek ayarlayabilirsiniz.
6. KullanıcıFormu1 içinde eklenen takvime çift tıklayın ve Kod penceresinde orijinal kodu aşağıdaki VBA betiğiyle değiştirin.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End SubNot: Bu kod, takvimden tarih seçtikten sonra seçilen hücreye tarih eklemenize yardımcı olur.
Adım 2: Hücreye tıklandığında Takvimi etkinleştirin
Takvimin açılması için şimdi belirli hücreleri tanımlamanız gerekiyor. Lütfen aşağıdaki adımları izleyin.
7. Sol taraftaki Proje bölmesinde, takvimin açılması için tıklayacağınız hücreleri içeren sayfa adına çift tıklayın ve ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End SubNot: Kodda A2:A10, takvimin açılması için tıklayacağınız hücre aralığıdır. Gerektiğinde bu aralığı güncelleyin.
8. Alt+Q tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini kapatın.
Artık Geçerli Çalışma Sayfası içindeki Sınırlı aralık aralığındaki herhangi bir hücreye tıkladığınızda aşağıdaki ekran görüntüsünde gösterildiği gibi bir takvim açılacaktır. Ayrıca takvimden tarih seçtikten sonra tarih seçilen hücreye otomatik olarak eklenecektir.
Belirli bir hücreye tıklandığında VBA kodu ile takvim açma
Bu bölüm, Tarih Seçici özelliğini Kutools for Excel ile tanıtmaktadır. Bu özelliği etkinleştirdikten sonra bir tarih hücresine tıkladığınızda bir takvim açılacak ve mevcut tarihi yeni bir tarihle kolayca değiştirebileceksiniz. Bu özelliği kullanmak için aşağıdaki adımları izleyin.
1. Kutools > İçerik > Tarih Seçici Etkinleştir.
2. Bu özelliği etkinleştirdikten sonra bir tarih hücresine tıkladığınızda, hücrenin hemen sağına bir takvim simgesi belirir.
3. Takvim simgesine tıklayarak Tarih Seçici iletişim kutusunu açın ve seçili hücredeki tarihi değiştirmek için yeni bir tarih belirleyin.
Notlar:
Geri al düğmesi: Tarihi değiştirmeyi geri almak için bu düğmeye tıklayın;
Kapat düğmesi: Tarih Seçici iletişim kutusunu kapatmak için bu düğmeye tıklayın;- Bu özellik yalnızca tarih içeren hücrelerde kullanılabilir.
Geri al düğmesi: Tarihi değiştirmeyi geri almak için bu düğmeye tıklayın;
Kapat düğmesi: Tarih Seçici iletişim kutusunu kapatmak için bu düğmeye tıklayın;Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.
İlgili makaleler:
- Excel'de belirli bir hücreye tıklandığında bir makroyu nasıl tetikleyebilirim?
- Excel'de bir hücreye tıklandığında ya da seçildiğinde rengini nasıl değiştirebilirim?
- Excel'de belirli bir hücreye tıklandığında nasıl mesaj kutusu açılabilir?
- Excel'de bir düğmeye tek tıklamayla nasıl devre dışı bırakabilirim?
- Excel'de sayfa sekmesine sağ tıklamayı nasıl devre dışı bırakabilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar