Takvim çalışması

[kemal turan]

Merhabalar,
Bu güzel forumdan ve ustalarından öğrendiğim ve alıntılar yaptığım, fonksiyon veri tabanlı, userform görünümlü amatör bir takvim çalışmasını sizlerle paylaşmak istedim.

Userform üzerindeki güne tıklandığında active hücreye tarihi yazıyor.
Eksiklerim ve hatalarımın bildirilmesinden memnun olurum.
Selametle

 

[antonio]

Kemal Bey, çok emek vermişsiniz. Keşke TextBox nesnelerinin yerine CommandButtonlar kullansaydınız. O zaman daha işlevsel olurdu.
Kolay gelsin.

 

[kemal turan]

Sn.Antonio merhaba,
Bu işte benim emeğim yok emek siz ustaların dır.
Küçükte olsa bir şeyler düşündün düşündüğümü kendimce yapmaya çalıştım.
Aslında yapılan iş, forumda araştırma yapılarak ustaların çalışmalarının birleştirilmesidir.
CommandButton lu çalışmayıda yapmaya çalışacağım.
Bilginize sağlık.
Selametle kalınız.

 

[Seyit Tiken]

Kemal bey elinize sağlık, gayet güzel yapmışsınız, TextBox yerine Buton olsaydı daha işlevsel olurdu, enazında basma hissi oluşurdu.

 

[kemal turan]

Merhaba Seyit bey,
Biraz uğraştırdı ama CommandButton lu çalışmayı sonunda başardım.
Ayrıca textbox lu örnekte ;
1-Seçilen aya ait verilerle beraber bir sonraki ay bilgileri geliyordu.bu sorunu hallettim.
2-Seçilen aya ait olmayan boş commandbutton ların sayfaya aktarımını önledim.
1 nolu mesajdaki dosyayı güncelledim.
Selametle kalınız.

 

[antonio]

Şu ayrıntılarda olsa harika olurdu:
1- Tam olarak ay ve yıl Comboboxlarının arasına (yada onları yan yana çekerek kenarlarına) bir buton daha ekleyin, üzerine "BUGÜN" yazın. Bu butona basılınca bugüne ait yıl, ay comboboxları aktif hale gelsin ve bu aya ait takvim görüntülensin.
2- Haftasonlarına ait arkafon içinde rakamlar pek iyi görünmüyor. ya arkafonu daha da koyulaştırıp yazıyı açık renklerden seçin, yada siyah yazı görüntüsünü azaltmayan açık bir arkafon kullanın.
3 - Takvim ilk açıldığında otomatik olarak bu güne ait yıl ay ve tablo gelsin ve bugüne ait buton her zaman sarı olsun. (takvimlerde en çok kullanılan renk tasarımlarına dikkat ederek en yakışan renkleri tespit edebilirsiniz.)

 

[kemal turan]

Merhaba Sn.Antonio,
Söylemiş olduklarınızı yaptım sanırım.
1 Nolu mesajdaki dosyayı revize ettim.

Yapmam gereken farklı bir şey varsa, bildirirseniz memnun olurum.
Not: Yalnız bu güne ait commandbutton un renklendirmesi için uzun bir kod kullandım.
Döngü ile yapılabilir mi.
Evet ise olabilir deyin ben araştırarak yapmaya çalışayım.
Teşekkür ederim.

 

[ÖmerBey]

Evet, yapılabilir.

 

[antonio]

Merhaba Sn.Antonio,
Söylemiş olduklarınızı yaptım sanırım.
1 Nolu mesajdaki dosyayı revize ettim.

Yapmam gereken farklı bir şey varsa, bildirirseniz memnun olurum.
Not: Yalnız bu güne ait commandbutton un renklendirmesi için uzun bir kod kullandım.
Döngü ile yapılabilir mi.
Evet ise olabilir deyin ben araştırarak yapmaya çalışayım.
Teşekkür ederim.

Bugün butonuna ait kodlar:

Private Sub CommandButton43_Click()
Dim nesne As Object, bugün As Byte, tarih As Date, buay As Byte
buay = CByte(Format(Date, "m")) - 1
With ComboBox1
    .Value = .List(buay, 0)
End With
ComboBox2.Value = CInt(Format(Date, "yyyy"))
bugün = CByte(Format(Date, "d"))

For Each nesne In Me.Controls
If TypeName(nesne) = "CommandButton" Then
      If nesne.Caption = bugün Then
        nesne.BackColor = vbYellow
        nesne.ForeColor = 0
      End If
End If
Next nesne
End Sub

 

[kemal turan]

Sn.Antonio merhaba,
Kod için teşekkür ederim.
Bu işte benim amacım şuydu,
Bir arkadaşımızın sorusuna Sn.Orion ustamızın çalışmasından bir alıntı ile cevap vermiştim. Arkadaşımız format atmış ve Office 2010 sürümünü yüklemiş. Bu sürümde calender olmadığından sorun çıkmıştı.
Benim dizüstü bilgisayarımda da 2010 yüklü olduğundan bende çalıştıramadım.
Ben de hem kendimi geliştirmek hemde acaba forumdaki çalışmalardan alıntı yaparak bir takvim yapabilir miyim düşündüm.Yola koyuldum.
Sağlam bir yapı olmasada bir şeyler oldu diye düşünüyorum.
Şimdiki hedefim excel sayfası kullanmadan Userform üzerinde bu işi yapabilmek.
Sıkışınca bilginize başvururum.
Yönlendirmeleriniz için teşekkür ederim.

 

[antonio]

Combobox1 ve Combobox2 nesnelerine ay ve yıl listesi bağlamak uğruna sayfada sütun gizleme falan çok gereksiz yöntem. Dizilerden yararlansanız daha kullanışlı olur.
Sn. Evren GİZLEN'in dizilerle ilgili sayısız kod örnekleri var.
Sn. Halit ÖZDEMİR'in ve Sn. Ergün GÜLER'in çok sayıda açılır takvim çalışmaları var, ama şimdiye kadar API Fonkisyonları hem 64 bit - hem 32 bit office ile uyumlu çalışan hiçbir çalışmaya denk gelemedim. Bu yüzden her bilgisayarda çalışabilecek kullanışlı bir çalışma size tavsiye edemiyorum.

 

[Korhan Ayhan]

Aşağıdaki linkteki takvimde 64 bit sorunu yoktur. Değerlendirebilirsiniz.

TAKVİM ÇALIŞMASI

 

[kemal turan]

Sn.Korhan bey,
Çok teşekkür ederim.

 

[halit3]

Combobox1 ve Combobox2 nesnelerine ay ve yıl listesi bağlamak uğruna sayfada sütun gizleme falan çok gereksiz yöntem. Dizilerden yararlansanız daha kullanışlı olur.
Sn. Evren GİZLEN'in dizilerle ilgili sayısız kod örnekleri var.
Sn. Halit ÖZDEMİR'in ve Sn. Ergün GÜLER'in çok sayıda açılır takvim çalışmaları var, ama şimdiye kadar API Fonkisyonları hem 64 bit - hem 32 bit office ile uyumlu çalışan hiçbir çalışmaya denk gelemedim. Bu yüzden her bilgisayarda çalışabilecek kullanışlı bir çalışma size tavsiye edemiyorum.

Aşağıdaki linkdeki takvimler 32-64 bit için uygundur.

http://www.excel.web.tr/f48/takvim-formlary-t140305.html

 

[kemal turan]

Sn.Halit bey,
Çok teşekkür ederim.

 

[antonio]

Aşağıdaki linkdeki takvimler 32-64 bit için uygundur.

http://www.excel.web.tr/f48/takvim-formlary-t140305.html

Halit Bey bugün 64 bit bir bilgisayarda çalışmalarınızı denedim. Userform tabanlı çalışmalarınızın api kodları sadece 32 bit için düzenlenmiş, bu yüzden 64 bit ofis yüklü bilgisayarda hata verdi. Bunun dışındaki diğer bütün açılır takvim çalışmalarınız her iki bilgisayarda sorunsuz çalıştı. Hepsi birbirinden güzel ve büyük emeklerle hazırlanmış çalışmalarınız ve paylaşımlarınız için kutlarım.

 

[halit3]

Halit Bey bugün 64 bit bir bilgisayarda çalışmalarınızı denedim. Userform tabanlı çalışmalarınızın api kodları sadece 32 bit için düzenlenmiş, bu yüzden 64 bit ofis yüklü bilgisayarda hata verdi. Bunun dışındaki diğer bütün açılır takvim çalışmalarınız her iki bilgisayarda sorunsuz çalıştı. Hepsi birbirinden güzel ve büyük emeklerle hazırlanmış çalışmalarınız ve paylaşımlarınız için kutlarım.

Söylediğim linkdeki 1 nolu mesajdaki dosyada ne gibi bir hata alıyorsunuz.

Ayrıca aynı linkin 1 nolu mesajına iki adet daha dosya ekledim hangilerinde hata alıyorsunuz ve hataya ait ekran görüntüsünü ekleyin bir bakalım.

 

[antonio]

Söylediğim linkdeki 1 nolu mesajdaki dosyada ne gibi bir hata alıyorsunuz.

Ayrıca aynı linkin 1 nolu mesajına iki adet daha dosya ekledim hangilerinde hata alıyorsunuz ve hataya ait ekran görüntüsünü ekleyin bir bakalım.

Yarın işyerindeki bilgisayarda kontol edip yazacağım.

 

[antonio]

Söylediğim linkdeki 1 nolu mesajdaki dosyada ne gibi bir hata alıyorsunuz.

Ayrıca aynı linkin 1 nolu mesajına iki adet daha dosya ekledim hangilerinde hata alıyorsunuz ve hataya ait ekran görüntüsünü ekleyin bir bakalım.

Sayın Özdemir, 64 bit office ortamında hata veren ekran alıntılarını ekliyorum.

 

[antonio]

Bir dosya daha ekledim.