أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ادراج التواريخ بشروط محدده

اساتذتى الكرام .. مرفق ملف به المطلوب وهو كالتالى .. عند أدخال بيانات فى نطاق معين يتم أدخال تاريخ اليوم اذا تم تعديل هذ ..


موضوع مغلق


25-08-2021 05:34 مساء
Excelawy
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 460
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 8
يتابعونه : 10
قوة السمعة : 730
 offline 

اساتذتى الكرام .. مرفق ملف به المطلوب وهو كالتالى .. عند أدخال بيانات فى نطاق معين يتم أدخال تاريخ اليوم
اذا تم تعديل هذه ايا من هذا البيانات يتم اددراج تاريخ اليوم فى نطاق أخر.. وان يسر هذا الكلام على النسخ و الصق .. شكرا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تاريخ التعديل.rar   تحميل rar مرات التحميل :(15)
الحجم :(14) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
لا يمكن معرفة ما إذا كانت الخلية فارغة قبل حدث التغيير أو لا ولكن يمكن استخدام أعمدة مساعدة (5 أعمدة بعيداً عن الجدول لتسجيل الإدخالات السابقة)
عموماً جرب التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And (Target.Column >= 5 And Target.Column <= 9) Then
        Application.EnableEvents = False
            If Target.Offset(, 20).Value = "" Then
                Cells(Target.Row, "P").Value = Date
                Target.Offset(, 20).Value = Target.Value
            Else
                Cells(Target.Row, "Q").Value = Date
            End If
        Application.EnableEvents = True
    End If
End Sub
عرض الإجابة




01-09-2021 01:11 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif ادراج التواريخ بشروط محدده
السلام عليكم ورحمه الله وبركاته
وبها نبدأ
 
عدل هذا السطر

If c.Value = "" Then

الى

If ActiveSheet.Range("P" & c.Row) = "" Then


وان شاء الله تفي بالمطلوب

04-09-2021 09:10 صباحا
مشاهدة مشاركة منفردة [2]
Excelawy
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 460
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 8
يتابعونه : 10
قوة السمعة : 730
 offline 
look/images/icons/i1.gif ادراج التواريخ بشروط محدده
جزاك الله كل خير أخى Hassona

لكن اود ان اوضح شيئا لك أخى الكريم
أنه اذا تم أدخال اى بيانات فى اى خلية من النطاق من E:I 
بتم أدخال تاريخ اليوم فى الخلية P
وعلية اذا تم تغيير أى بيانات فى اى خلية فى النطاق من E:I
بتم أدخال تاريخ اليوم فى الخلية Q

شكرا أخى الكريم

26-09-2021 06:00 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif ادراج التواريخ بشروط محدده
أخى الكريم
أنه اذا تم أدخال اى بيانات فى اى خلية من النطاق من E:I 
بتم أدخال تاريخ اليوم فى الخلية P

مثال اذا تم إدخال بيانات في الخليه e سوف يتم إدخال التاريخ في الخليه p
طب اذا تم ادخال بيانات في الخليه f ما المتوقع
 

27-09-2021 08:58 صباحا
مشاهدة مشاركة منفردة [4]
Excelawy
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 460
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 8
يتابعونه : 10
قوة السمعة : 730
 offline 
look/images/icons/i1.gif ادراج التواريخ بشروط محدده
شكرا أخى لردك
اذا تم ادخال بيانات فى الخليه F
سيتم ادخال تاريخ اليوم ايضا فى الخليه P
 

27-09-2021 09:29 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ادراج التواريخ بشروط محدده
لا يمكن معرفة ما إذا كانت الخلية فارغة قبل حدث التغيير أو لا ولكن يمكن استخدام أعمدة مساعدة (5 أعمدة بعيداً عن الجدول لتسجيل الإدخالات السابقة)
عموماً جرب التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And (Target.Column >= 5 And Target.Column <= 9) Then
        Application.EnableEvents = False
            If Target.Offset(, 20).Value = "" Then
                Cells(Target.Row, "P").Value = Date
                Target.Offset(, 20).Value = Target.Value
            Else
                Cells(Target.Row, "Q").Value = Date
            End If
        Application.EnableEvents = True
    End If
End Sub



الكلمات الدلالية
ادراج ، التواريخ ، بشروط ، محدده ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:06 صباحا