UserForm Üzerindeki Takvim

[Nadir]

Merhaba,

UserForm üzerine yerleştirdiğimiz takvim nesnesi tek bir ay'ı göstermektedir. Bir komut düğmesi ile sağa doğru açılarak sonraki ay'ı gösterecek (ilk ay sabit kalacak) şekilde nasıl oluşturabiliriz. Bu önceki ay, sonraki ay şeklinde olabilecek, üç ayrı ayı içerecektir. Tşk.

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodları yazın.

kodlar belki dahada kısaltılabilir fakat yıl dönümlerinde hata olmaması için biraz uzun oldu.

selamlar

Private Sub UserForm_Initialize()
Calendar1.Year = Year(Now)
Calendar1.Month = Month(Now) - 1
If Month(Now) = 1 Then
Calendar1.Year = Year(Now) - 1
Calendar1.Month = Month(Now) + 11
End If
Calendar2.Year = Year(Now)
Calendar2.Month = Month(Now)
If Month(Now) = 12 Then
Calendar3.Year = Year(Now) + 1
Calendar3.Month = Month(Now) - 11
Exit Sub
End If
Calendar3.Year = Year(Now)
Calendar3.Month = Month(Now) + 1
End Sub

 

[Levent Menteşoğlu]

İlk cevabımı userform üzerinde üç ayrı takvim olduğunu düşünerek hazırlamıştım. Buradada tek takvim buna karşın 3 adet command buton var, bu butonlar tıklandığında önceki ay,şimdiki ay ve bir sonraki ayları aynı takvim üzerinde gösterecektir. her buton içine yazılacak kodlar aşağıdaki gibidir.

Userformun ilk açılışda takvimin bugünkü ayı göstermesi için

Private Sub UserForm_Initialize()
Calendar1.Year = Year(Now)
Calendar1.Month = Month(Now)
End Sub

bir önceki ayı gösterecek commandbutton için;

Private Sub CommandButton1_Click()
If Month(Now) = 1 Then
Calendar1.Year = Year(Now) - 1
Calendar1.Month = Month(Now) + 11
Exit Sub
End If
Calendar1.Year = Year(Now)
Calendar1.Month = Month(Now) - 1
End Sub

Þimdiye geri dönecek commandbutton için;

Private Sub CommandButton2_Click()
Calendar1.Year = Year(Now)
Calendar1.Month = Month(Now)
End Sub

Bir sonraki ayı gösterecek commandbutton için;

Private Sub CommandButton3_Click()
If Month(Now) = 12 Then
Calendar1.Year = Year(Now) + 1
Calendar1.Month = Month(Now) - 11
Exit Sub
End If
Calendar1.Year = Year(Now)
Calendar1.Month = Month(Now) + 1
End Sub

 

[Nadir]

Yardımlarınız için teşekkürler leventm.

 

[romanci]

leventm üstad teşekkürler benimde işime yaradı