حساب العمر بالعام

[Alaaq3]

السلام عليكم : اريد ان اكتب المواليد في خانة المواليد بالسنة فقط (1981) يظهر لي في خانة العمر (40) سنة كما في الصورة المرفقة

[أ / محمد صالح]

على افتراض ان خلية المواليد B2

يمكنك استعمال هذه المعادلة 

=year(today())-b2

بالتوفيق 

[Alaaq3]

استاذنا العزيز الموضوع على اليوزر فورم وليس على الشيت

 textbox1 = المواليد

textbox2 = العمر

 

[أ / محمد صالح]

نفس الفكرة 

يمكنك التوصل لها بمفردك 

Private Sub TextBox1_AfterUpdate()
Me.TextBox2.Value = Year(Date) - Val(Me.TextBox1.Value)
End Sub

بالتوفيق 

[Alaaq3]

بارك الله بك استاذنا العزيز 

[أ / محمد صالح]

جميعا بإذن الله تعالى