• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Takvim

Katılım
25 Ekim 2006
Mesajlar
275
Excel Vers. ve Dili
türkçe
Sevgili dostlar ekte sunduğum dosyamda belirtilen resimde görüldüğü şekilde takvim yapmak istiyorum takvimin nasıl yapıldığını izah ederek yapılış şeklini anlatatma lütfunda bulunup, konu hakkında yardımcı olan herkese teşekkür eder sonsuz selamlar sunarım
 

Ekli dosyalar

Son düzenleme:
merhaba

bunu deneyiniz.

ekle / nesne / Calendar Control
bu şekilde sayfa üzerine takvim nesnesi eklemiş olursunuz.

sayfanın kod bölümüne bu kodları yazınız.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
D1 hücre seçildiğinde takvim görünecektir, başka hücre seçilirse gizlenir.

yine sayfanın kod bölümünde
Kod:
Private Sub Calendar1_Click()
Range("D2") = Calendar1.Value
End Sub
takvim üzerinde seçtiğiniz tarih D2 hücresine yazılacaktır.
 
merhaba

bunu deneyiniz.

ekle / nesne / Calendar Control
bu şekilde sayfa üzerine takvim nesnesi eklemiş olursunuz.

sayfanın kod bölümüne bu kodları yazınız.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
D1 hücre seçildiğinde takvim görünecektir, başka hücre seçilirse gizlenir.

yine sayfanın kod bölümünde
Kod:
Private Sub Calendar1_Click()
Range("D2") = Calendar1.Value
End Sub
takvim üzerinde seçtiğiniz tarih D2 hücresine yazılacaktır.


hocam ofice 2007 de bu olayı yapamadım ( Calendar Control nesnesini ekleyemedim) bilginiz varmı ?
 
merhaba

bunu deneyiniz.

geliştirici / ekle / diğer denetimler / takvim denetimi
 
teşekkür ederim arkadaşlar

tam da sorumun cevabını vermişsiniz. allah hepinizden razı olsun
 
Geri
Üst