كود تاريخ الميلاد

[محمد ابومروان]

السلام عليكم

هذا نفس المثال مع إضافة رقم قومى

ما أطلبه فضلا وليس أمرا هو أنه عند كتابة الرقم القومى فى شاشة الفورم يظهر معى تاريخ الميلاد اتوماتيكى فى نفس شاشة الفورم داخل textbox2 ثم اضافة البيانات إلى الشيت  ..ولك جزيل الشكر

Book12.xlsm

[AbuuAhmed]

أحتاج رقم قومي بعد عام 1999 

Book12_02.xlsm

[ابراهيم الحداد]

السلام عليكم و رحمة الله

استخدم الاكواد الآتية كلها

انسخها و ضعها كما هى

Private Sub CommandButton5_Click()
Dim ws As Worksheet, C As Range
Set ws = Sheets("Sheet1")
For Each C In ws.Range("C2:C" & ws.Range("C" & Rows.Count).End(3).Row)
If C.Value = Val(Me.TextBox2.Value) Then
C.Offset(0, 1).Value = Me.TextBox3.Value
End If
Next
End Sub
Private Sub CommandButton6_Click()
Unload Me
End Sub

Private Sub TextBox2_Change()
If Len(Me.TextBox2.Value) <> 14 Then Exit Sub
Dim a As Single, b As Single, C As Single
Dim m As Single, n As Single, cd, sn
cd = Val(Me.TextBox2.Value)
m = Left(cd, 1)
If m = 2 Then
n = 19
Else
n = 20
End If
a = Mid(cd, 2, 2)
b = Mid(cd, 4, 2)
C = Mid(cd, 6, 2)
sn = n & a & "/" & b & "/" & C
Me.TextBox3.Value = sn
End Sub

 

[AbuuAhmed]

جرب الآن

Book12_03.xlsm

[AbuuAhmed]

 @محمد ابومروان 
🙂 ظلمت الإكسل ، مع أني محترف كتابة شفرات ولكن لا أنصحك باللجوء إلى الفيجول إلا إذا عجز الإكسل عن الحل.
موفقين.                 وهذا إذا أردته للنموذج

Private Sub TextBox2_Change()
  Dim cd As String
    cd = Me.ActiveControl
  If Len(cd) <> 14 Then Exit Sub
    Me.TextBox3 = DateSerial(1700 + Left(cd, 1) * 100 + Mid(cd, 2, 2), Mid(cd, 4, 2), Mid(cd, 6, 2))
End Sub

 

[محمد ابومروان]

الأخ ابراهيم الحداد والأخ AbuuAhmed لا أجد كلمات تعبر عن امتنانى لكما بالتكرم والرد على استفسارى وعرض الحل

جزاكما الله كل خير عما قدمتموه  ..هذا ما أسعى إليه فعليا ..شكرا جزيلا لكما