UserForm Üstünde Formül Hesabı

[badmad34]

Merhaba arkadaşlar,

Eklediğim userform'da TextBox1 ve TextBox2 verileri elle girildikten sonra TextBox3'ün ekranda otomatik hesaplanmasını istiyorum. Bu kodlamayı nasıl yapabilirim? TextBox3'ün formülü aşağıdaki gibidir :

TextBox3.Value = TextBox2.Value - TextBox1.Value

Not: TextBox1 ve TextBox2 kutularına saat formatında veriler girilmelidir ve TextBox3'ün hesabı yine saat farkı şeklinde yapılmalıdır. Örneğin;

TextBox1 = 20:00 ve TextBox2 = 22:00 ise,
TextBox3 = 22:00 - 20:00 = 2:00 olmalıdır ve anında userform üstünde ekrana yazılmalıdır.

Bunun kodlaması nasıl yapılabilir?

 

[truvali27m]

Merhaba arkadaşlar,

Eklediğim userform'da TextBox1 ve TextBox2 verileri elle girildikten sonra TextBox3'ün ekranda otomatik hesaplanmasını istiyorum. Bu kodlamayı nasıl yapabilirim? TextBox3'ün formülü aşağıdaki gibidir :

TextBox3.Value = TextBox2.Value - TextBox1.Value

Not: TextBox1 ve TextBox2 kutularına saat formatında veriler girilmelidir ve TextBox3'ün hesabı yine saat farkı şeklinde yapılmalıdır. Örneğin;

TextBox1 = 20:00 ve TextBox2 = 22:00 ise,
TextBox3 = 22:00 - 20:00 = 2:00 olmalıdır ve anında userform üstünde ekrana yazılmalıdır.

Bunun kodlaması nasıl yapılabilir?

Merhaba aşağıya bir örnek ekliyorum o şekilde birşey mi olcak?

 

[excel03]

merhaba;

Dim tar2
Dim tar1

Private Sub TextBox1_Change()
tar1 = TextBox1.Text
tar1 = Format(tar1, "hh:mm")
If Len(tar1) = 5 And Len(tar2) = 5 Then
x = CDate(tar2) - CDate(tar1)
x = Format(x, "hh:mm")
TextBox3.Text = x
End If

End Sub

Private Sub TextBox2_Change()
tar2 = TextBox2.Text
tar2 = Format(tar2, "hh:mm")
If Len(tar1) = 5 And Len(tar2) = 5 Then
x = CDate(tar2) - CDate(tar1)
x = Format(x, "hh:mm")
TextBox3.Text = x
End If
End Sub

 

[badmad34]

Cevaplar için ikinize de teşekkürler.

Truvali27m ekstra bir butona basmaya erek kalmadan anında hesap yapsın istiyorum ben.

excel03, verdiğiniz kodalrı kendi dosyama uyarlayamadım bir türlü, sorun çıkıyor. Zahmet olmazsa ilk mesajda eklediğim dosyaya uyarlar mısınız?

 

[excel03]

...Zahmet olmazsa ilk mesajda eklediğim dosyaya uyarlar mısınız?

merhaba;
ekli dosyayı inceleyiniz.

 

[badmad34]

Çok teşekkür ederim yardımlarınız için.