Excel'de belirli bir hücreye tıklarken bir takvim nasıl açılır?
Bir çalışma sayfasında bir sütun aralığı olduğunu varsayarsak, içine sık sık tarihleri girmeniz ve değiştirmeniz gerekir, ancak her seferinde manuel olarak tarih girmek veya değiştirmek sıkılır. Sütun aralığına manuel olarak yazmadan tarihleri hızlı bir şekilde nasıl girebilirim? Bu makale, belirli bir aralıktaki hücrelere tıklandığında bir takvimi açmaktan ve ardından takvimde tarih seçtikten sonra seçilen hücreye otomatik olarak tarih eklemekten bahsediyor.
VBA kodu ile belirli bir hücreye tıkladığınızda bir takvim açın
Lütfen bu sorunu aşağıdaki adım adım çözün.
not: Bu yöntem yalnızca Microsoft Excel 32 bit üzerinde çalışabilir.
Adım 1: Takvim ile bir UserForm oluşturun
Lütfen bir hücreye tıklayarak açacağınız takvimi içeren bir Kullanıcı Formu oluşturun.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > Kullanıcı Formu.
3. Sonra a Kullanıcı Formu ve Araç Kutusu pencereler açılır Araç Kutusu, herhangi bir denetimi tıklayın ve sağ tıklayın, ardından Ek Kontroller sağ tıklama menüsünden. Ekran görüntüsüne bakın:
4. içinde Ek Kontroller iletişim kutusu, kontrol etmek için aşağı kaydırın Microsoft MonthView Kontrolü seçeneği Mevcut Kontroller ve ardından OK düğmesine basın.
5. O zaman görebilirsiniz Ay Görünümü düğmesi eklendi Araç Kutusu pencere. Lütfen bu MonthView düğmesine tıklayın ve ardından Userform'da bir Takvim oluşturmak için UserForm1 penceresine tıklayın.
not: UserForm'un kenarlığını sürükleyerek, eklenen takvime uyacak şekilde UserForm penceresinin boyutunu ayarlayabilirsiniz.
6. UserForm1'de ve Kod penceresi, lütfen orijinal kodu aşağıdaki VBA komut dosyasıyla 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 Sub
not: Bu kod, takvimden tarih seçildikten sonra seçilen hücreye tarih eklenmesine yardımcı olabilir.
Adım 2: Hücreye tıkladığınızda Takvimi etkinleştirin
Şimdi, tıkladığınızda takvimi açmak için belirli hücreleri belirtmeniz gerekiyor. Lütfen aşağıdaki işlemleri yapın.
7. Soldaki takvimi açmak için tıklayacağınız hücreleri içeren sayfa adına çift tıklayın Proje bölmesine gidin, ardından aşağıdaki VBA kodunu kopyalayıp Kod penceresine 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 Sub
not: kodda, A2: A10 takvimi açmak için tıklayacağınız hücrelerdir. Lütfen ihtiyaç duyduğunuz hücre aralığını değiştirin.
8. Basın Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, mevcut çalışma sayfasında belirtilen aralıktaki herhangi bir hücreye tıkladığınızda, aşağıda gösterilen ekran görüntüsü gibi bir takvim açılacaktır. Ve tarih, takvimden tarih seçildikten sonra seçilen hücreye otomatik olarak eklenecektir.
VBA kodu ile belirli bir hücreye tıkladığınızda bir takvim açın
Bu bölüm, Tarih Seçici yarar Kutools for Excel. Bu özelliği etkinleştirdikten sonra, bir tarih hücresine tıkladığınızda bir takvim açılır, mevcut tarihi onunla kolayca yeni bir tarihle değiştirebilirsiniz. Bu özelliği uygulamak için lütfen aşağıdaki adımları izleyin.
1. tık Kutools > içerik > Tarih Seçiciyi Etkinleştir.
2. Bu özelliği etkinleştirdikten sonra, bir tarih hücresine tıklayın, hücrenin hemen yanında bir takvim simgesi açılacaktır.
3. Takvim simgesini tıklayarak Tarih Seçici iletişim kutusunu tıklayın ve ardından seçili hücredeki tarihi değiştirmek için yeni bir tarihi tıklayın.
Notlar:
- Geri Al düğmesi: Tarihi değiştirmeyi geri almak için bu düğmeyi 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ücrelere uygulanabilir.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
İlgili Makaleler:
- Excel'de belirli bir hücreye tıklayarak bir Makro nasıl tetiklenir veya çalıştırılır?
- Excel'de hücre tıklandığında veya seçildiğinde hücre rengi nasıl değiştirilir?
- Excel'de belirli bir hücreye tıklandığında mesaj kutusu nasıl açılır?
- Excel'de bir kez tıkladıktan sonra düğme nasıl devre dışı bırakılır?
- Excel'de sayfa sekmesine sağ tıklama nasıl devre dışı bırakı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!