اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





كيف اجعل تاريخ اليوم يقفز الى الخلية الموالية بعد مرور 24 ساعة

نفترض ان الخانة a1 بها تاريخ اليوم كيف يمكن ان يقفز الى الخانة b1 بعد مرور 24 ساعة وتصبح الخانة a1 فارغة ثم في اليوم ال ..



11-08-2018 01:46 صباحا
hellong
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-07-2018
رقم العضوية : 7290
المشاركات : 25
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 35
الاعجاب : 11
 offline 

نفترض ان الخانة  a1 بها تاريخ اليوم
كيف يمكن ان يقفز الى الخانة b1 بعد مرور 24 ساعة وتصبح الخانة a1 فارغة ثم في اليوم الموالي ينتقل التاريخ الى c1 وهكذا دواليك...
ارجو الافادة وشكرا






11-08-2018 06:42 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4626
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13314
الاعجاب : 4921
 offline 
look/images/icons/i1.gif كيف اجعل تاريخ اليوم يقفز الى الخلية الموالية بعد مرور 24 ساعة
أخي الكريم يرجى تعديل عنوان الموضوع ليعبر عن محتوى الموضوع .. راجع التوجيهات الخاصة بالمنتدى

جرب الكود التالي عله يفي بالغرض
Sub Test()
    Dim c As Long
    
    For c = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Not IsEmpty(Cells(1, c).Value) Then
            If Cells(1, c).Value2 = Date Then
                Exit For
            Else
                Cells(1, c).Value = ""
                Cells(1, c + 1).Value = Date
            End If
        End If
    Next c
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali،




11-08-2018 09:02 صباحا
مشاهدة مشاركة منفردة [2]
hellong
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-07-2018
رقم العضوية : 7290
المشاركات : 25
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 35
الاعجاب : 11
 offline 
look/images/icons/i1.gif كيف اجعل تاريخ اليوم يقفز الى الخلية الموالية بعد مرور 24 ساعة
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
أخي الكريم يرجى تعديل عنوان الموضوع ليعبر عن محتوى الموضوع .. راجع التوجيهات الخاصة بالمنتدى

جرب الكود التالي عله يفي بالغرض
Sub Test()
    Dim c As Long
    
    For c = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Not IsEmpty(Cells(1, c).Value) Then
            If Cells(1, c).Value2 = Date Then
                Exit For
            Else
                Cells(1, c).Value = ""
                Cells(1, c + 1).Value = Date
            End If
        End If
    Next c
End Sub

=====
اشكرك استاذي على تفاعلك قمت بالصاق الكود لكنه لا يحدث اي اثر على صفحة الاكسيل كانه غير موجود وانا اريد ان يكتب تاريخ اليوم
وشكرا





11-08-2018 10:02 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4626
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13314
الاعجاب : 4921
 offline 
look/images/icons/i1.gif كيف اجعل تاريخ اليوم يقفز الى الخلية الموالية بعد مرور 24 ساعة
لابد من تنفيذ الكود .. لن يعمل الكود بمفرده
قم بتجربة الكود بالشكل التالي .. ضع تاريخ اليوم في الخلية A1 ثم نفذ الكود عن طريق Alt + F8 واختر اسم الماكرو
النتيجة لن يحدث شيء لأن التاريخ المكتوب في A1 هو تاريخ اليوم

جرب وضع تاريخ آخر وليكن 10/8/2018 ثم قم بتنفيذ الكود ولاحظ النتائج

إذا أردت أن يقوم الكود بالتنفيذ بمجرد التغيير في أي خلية بالصف الأول فعليك أن تقوم بوضع الكود في حدث ورقة العمل مع تغيير طفيف

أثارت هذه المشاركة إعجاب: hellong،




11-08-2018 10:44 صباحا
مشاهدة مشاركة منفردة [4]
hellong
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-07-2018
رقم العضوية : 7290
المشاركات : 25
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 35
الاعجاب : 11
 offline 
look/images/icons/i1.gif كيف اجعل تاريخ اليوم يقفز الى الخلية الموالية بعد مرور 24 ساعة
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
لابد من تنفيذ الكود .. لن يعمل الكود بمفرده
قم بتجربة الكود بالشكل التالي .. ضع تاريخ اليوم في الخلية A1 ثم نفذ الكود عن طريق Alt + F8 واختر اسم الماكرو
النتيجة لن يحدث شيء لأن التاريخ المكتوب في A1 هو تاريخ اليوم

جرب وضع تاريخ آخر وليكن 10/8/2018 ثم قم بتنفيذ الكود ولاحظ النتائج

إذا أردت أن يقوم الكود بالتنفيذ بمجرد التغيير في أي خلية بالصف الأول فعليك أن تقوم بوضع الكود في حدث ورقة العمل مع تغيير طفيف

====
أنت انسان رائع تشكراتي





11-08-2018 11:46 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4626
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13314
الاعجاب : 4921
 offline 
look/images/icons/i1.gif كيف اجعل تاريخ اليوم يقفز الى الخلية الموالية بعد مرور 24 ساعة
بارك الله فيك أخي الكريم
والحمد لله أن تم المطلوب على خير

* برجاء عدم تكبير الخط لأن الخط الافتراضي واضح .. تقبل تحياتي

أثارت هذه المشاركة إعجاب: hellong،






الكلمات الدلالية
سؤال ،


 







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



الساعة الآن 10:43 مساء

أعلن هنا
أعلن هنا
أعلن هنا