- Katılım
- 6 Mart 2024
- Mesajlar
- 248
- Excel Vers. ve Dili
- Excel 2010 TR & Excel 2016 TR
TAKVİM KULLANIMI
Takvim formunu projenize entegre etmek için aşağıdaki adımları izleyin:
1. Adım: Gerekli Dosyaları Yükleyin
Projenize aşağıdaki bileşenleri ekleyin:
Örnek Dosya:
TakvimButton.xlsm İndir
2. Adım: Takvim Açma Kodunu Butona Ekleyin
Herhangi bir UserForm üzerindeki bir butona veya butonlara aşağıdaki kodu ekleyin:
Takvim Görseli:
Takvim Formu Kullanarak Hücreye Tarih Yazdırma
Aşağıdaki VBA kodu, herhangi bir hücreye takvim ile tarih seçerek yazdırmanıza olanak tanır.
Örnek: A1 hücresine tarih yazdırmak için kodu bir modüle ekleyerek çalıştırabilirsiniz.
İhtiyaca göre Range("A1") kısmını değiştirebilir, farklı hücreler için uygulayabilirsiniz.
VBA Kodu:
Takvim formunu projenize entegre etmek için aşağıdaki adımları izleyin:
1. Adım: Gerekli Dosyaları Yükleyin
Projenize aşağıdaki bileşenleri ekleyin:
- TakvimForm
- TakvimClass


2. Adım: Takvim Açma Kodunu Butona Ekleyin
Herhangi bir UserForm üzerindeki bir butona veya butonlara aşağıdaki kodu ekleyin:
C++:
Private Sub CommandButton1_Click()
Dim ctrl As Control
Set ctrl = ActiveControl
If TypeName(ctrl) = "MultiPage" Then Set ctrl = ctrl.Pages(ctrl.Value).ActiveControl
If TypeName(ctrl) = "Frame" Then Set ctrl = ctrl.ActiveControl
TakvimForm.Tarih.Value = ctrl.Caption
TakvimForm.Show
ctrl.Caption = Evaluate(ActiveWorkbook.Names("SecilenTarih").RefersTo)
ActiveWorkbook.Names("SecilenTarih").Delete
End Sub

Takvim Formu Kullanarak Hücreye Tarih Yazdırma
Aşağıdaki VBA kodu, herhangi bir hücreye takvim ile tarih seçerek yazdırmanıza olanak tanır.
Örnek: A1 hücresine tarih yazdırmak için kodu bir modüle ekleyerek çalıştırabilirsiniz.
İhtiyaca göre Range("A1") kısmını değiştirebilir, farklı hücreler için uygulayabilirsiniz.

C++:
Sub RangeTarih()
Dim RngDate As Range
' Tarihin yazılacağı hücreyi belirleyin.⚠
Set RngDate = Range("A1")
TakvimForm.Tarih.Value = RngDate.Value
TakvimForm.Show
On Error GoTo HataKontrol
RngDate.Value = Evaluate(ActiveWorkbook.Names("SecilenTarih").RefersTo)
ActiveWorkbook.Names("SecilenTarih").Delete
Exit Sub
HataKontrol:
RngDate.Value = Date
End Sub
Son düzenleme: