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

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.

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


İ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 (18)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Seçtiğim hücrenin altında takvimin açılmasını istiyorum.Nasıl yapmalıyım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu VBA kodlarını kullandım ve şimdiye kadar her şey yolunda. Aralık A2:A10'dur ve içine bir hücre seçtiğinizde takvim açılır. Ancak satırı 2'den 10'a kadar işaretlerseniz takvim yeniden açılır. "A" sütunu ile aynı, işaretlerseniz takvim tekrar açılır. Takvimi sadece tanımladığım aralıkta almak için nasıl ilerlemeliyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese merhaba,

Herhangi biri bana bir takvimin bir hücre aralığında nasıl açılacağını söyleyebilir, ancak yalnızca hücreden başlayarak bir tablo başlığının sağında ve bir excel sütununda aşağı feryatta.


Şimdiden teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Üzgünüm, sorunuzu alamadım. Yapmaya çalıştığın şeyin ekran görüntüsünü verebilirsen iyi olur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Örneğin şunu kullanın: Aralık("B6:C30")
Bu yorum sitedeki moderatör tarafından en aza indirildi
Örneğin şunu kullanın: Aralık("B6:C30")
Bu yorum sitedeki moderatör tarafından en aza indirildi
a1:a10 unutmuyor. teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
bir satır seçmeye çalışırsam, açılır pencere etkinleşir ve o satırdaki her hücrede tarih görünür


bundan nasıl kaçınabilirim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Sam,
Makalede sorun çözme ile kod güncellendi. Lütfen bir deneyin ve yorumunuz için teşekkür ederiz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Funziona benissimo'yu kurtarın, ma se volessi farlo funzionare anche su un altro shadow
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Sayfamda "başlangıç ​​tarihi", "bitiş tarihi" ve "sözleşme tarihi" olduğu gibi, tarih seçici açılır penceresini birden çok sütun için koymak mümkün mü? evet ise nasıl?
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba jeet,
Adımları izleyin ve ikinci VBA kodundaki "A2:A10" aralığını sütun aralığınızla (C2:E2 gibi) değiştirin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim! Bu yönlendirmeler çok faydalı oldu :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Takvim görünecek ama tarihe tıkladığımda hücre doldurulmuyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Kod benim durumumda iyi çalışıyor. Hangi Excel sürümünü kullanıyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Listelenen bir Microsoft Ay Görünümü Denetimi yok (Office 365) ve buradaki yönergeler, birinin bu denetimi nasıl elde edeceğini açıklamaz, bu nedenle, Excel'in daha eski bir sürümünü kullanmıyorsanız, bu oldukça işe yaramaz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Listede Microsoft MonthView Control'ü göremiyorum, ancak Pete'in (#32847) bunun Office 365 veya 64-bit Microsoft Office'te çalışmayacağını belirttiği gibi olabilir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Teagan Caudle,
Google'da önerilen yöntemleri araştırdım ve denedim, ancak sonuçta MonthView denetimini Microsoft 365'e kaydedemedim.
Rahatsızlıktan dolayı özür dileriz. Belki bunu kontrol edebilirsiniz.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
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