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

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


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





ادراج التاريخ

الى اهل الخبرة السلام عليكم مرفق شيت اكسل والمطلوب عند ادراج مبلغ السداد يدرج تاريخ السداد ويتم تثبيتة ولا يتغير عند ..



subject icon غير مجابة ادراج التاريخ
29-12-2022 12:24 مساء
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 46
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 

الى اهل الخبرة 
السلام عليكم 
مرفق شيت اكسل والمطلوب عند ادراج مبلغ السداد يدرج تاريخ السداد  ويتم تثبيتة ولا يتغير عند فتح الشيت مرة اخرى
وشكرا جزيلا 
 
 
  Book1.xlsx   تحميل xlsx مرات التحميل :(3)
الحجم :(10.318) KB


30-12-2022 07:17 مساء
مشاهدة مشاركة منفردة [1]
osama barawy
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2017
رقم العضوية : 1307
المشاركات : 27
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 27-5-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 460
عدد الإجابات: 13
 offline 
look/images/icons/i1.gif ادراج التاريخ
عليكم السلام ورحمة الله وبركاته
يمكنك اضافة الماكرو التالى لورقة العمل بالضغط على الزر الايمن على أسم ورقة العمل المطلوبه و اختار View Code ثم اضافة الكود التالى


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Val(Target.Value) > 0 Then
           Target.Offset(0, 1).Value = Now()
        Else
            Target.Offset(0, 1).Clear
        End If
    End If
End Sub



وهو يتم استدعاءة عند تغيير قيمة اى خلية فى ورقة العمل ويقوم بالتأكد من رقم العمود الذي قمت بتغير خلية واذا كان العمود رقم 3 وقيمة الخلية اكبر من صفر يتم إضافة التاريخ الان الى الخلية المجاورة
 
 
 
  Book1.xlsm   تحميل xlsm مرات التحميل :(0)
الحجم :(14.899) KB



تم تحرير المشاركة بواسطة :osama barawy
بتاريخ:30-12-2022 07:22 مساء


01-01-2023 11:48 صباحا
مشاهدة مشاركة منفردة [2]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 46
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif ادراج التاريخ
استاذ اسامة
ربنا يخليك واشكرك شكرا جزيلا وجعله الله في ميزان حسناتك وكل عام وحضرتك بالف خير
مجدى


تم تحرير المشاركة بواسطة :toytotan
بتاريخ:01-01-2023 11:49 صباحا


01-01-2023 11:53 صباحا
مشاهدة مشاركة منفردة [3]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 46
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif ادراج التاريخ
طلب اخر
برجاء تثبيت التارخ حتى لو تم تغيير قيمة الخلية مرة اخرى

02-01-2023 09:59 صباحا
مشاهدة مشاركة منفردة [4]
osama barawy
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2017
رقم العضوية : 1307
المشاركات : 27
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 27-5-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 460
عدد الإجابات: 13
 offline 
look/images/icons/i1.gif ادراج التاريخ
ممكن بتعديل الكود كالتالى:
لو فى تاريخ ها يسيبه من غير تعديل لكن لو اتمسحت القيمة هايمسح التاريخ

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Val(Target.Value) > 0 Then
           if Val(Target.Offset(0, 1).Value) = 0 then Target.Offset(0, 1).Value = Now()
        Else
            Target.Offset(0, 1).Clear
        End If
    End If
End Sub




تم تحرير المشاركة بواسطة :osama barawy
بتاريخ:02-01-2023 10:03 صباحا


26-01-2023 05:15 مساء
مشاهدة مشاركة منفردة [5]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 46
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif ادراج التاريخ
استاذ اسامة
باشكر حضرتك وربنا يجعلة فى ميزان حسناتك وربنا يزيدك من فضلة

26-01-2023 05:15 مساء
مشاهدة مشاركة منفردة [6]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 46
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif ادراج التاريخ
استاذ اسامة
باشكر حضرتك وربنا يجعلة فى ميزان حسناتك وربنا يزيدك من فضلة




الكلمات الدلالية
ادراج ، التاريخ ،


 










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

الساعة الآن 04:19 صباحا