Textbox Nesnesinde Tarih Toplama isimli içerikte, Textbox kullanarak tarihleri nasıl toplayacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Private Sub CommandButton1_Click()
Dim tarih1 As Date
Dim tarih2 As Date
Dim toplamTarih As Date
tarih1 = CDate(TextBox1.Value)
tarih2 = CDate(TextBox2.Value)
toplamTarih = DateAdd("d", DateDiff("d", tarih1, tarih2), tarih1)
TextBox3.Value = toplamTarih
End SubAçıklama
Bu kod, iki tarih arasındaki farkı hesaplayıp, bir başlangıç tarihine ekleyerek sonucu bir TextBox içinde gösterir. Kullanıcı, TextBox1 ve TextBox2'ye iki farklı tarih girdiğinde, CommandButton1'e tıklayarak bu tarihleri toplayabilir. Sonuç, üçüncü bir TextBox'ta (TextBox3) görüntülenir.Kullanım
- Bir UserForm oluşturun ve üç TextBox ile bir CommandButton ekleyin.
- CommandButton'a çift tıklayın ve yukarıdaki kodu olay prosedürü içerisine yapıştırın.
- UserForm'u çalıştırarak tarihlerinizi toplama işlemini gerçekleştirin.
