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

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


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





تعديل كود

السلام عليكم هذا الكود من عمل الاستاذ ياسر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Cou ..


موضوع مغلق


subject icon تمت الإجابة تعديل كود
29-01-2022 11:05 مساء
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 

السلام عليكم 
هذا الكود من عمل الاستاذ ياسر 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Target.Column = 2 Then
            Cells(Target.Row, 2).Value = Format(Now(), "dd/mm/yyyy hh:mm:ss")
        End If
End Sub

كيف يمكن التعديل على الكود ليبدا من العمود 5 الى العمود 15 ويضع التاريخ في العمود 18 


أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم 
الكود بسيط ويمكنك دراسته والتعديل عليه ، حاول فقط قراءة الكود جيداً
التعديل الأول
If Target.Column >= 5 And Target.Column <= 15 Then


التعديل الثاني استبدل الرقم 2 بالرقم 18 في الجزء التالي
Cells(Target.Row, 2).Value
عرض الإجابة




29-01-2022 11:15 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل كود
وعليكم السلام أخي الكريم 
الكود بسيط ويمكنك دراسته والتعديل عليه ، حاول فقط قراءة الكود جيداً
التعديل الأول
If Target.Column >= 5 And Target.Column <= 15 Then


التعديل الثاني استبدل الرقم 2 بالرقم 18 في الجزء التالي
Cells(Target.Row, 2).Value

30-01-2022 09:49 صباحا
مشاهدة مشاركة منفردة [2]
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 
look/images/icons/i1.gif تعديل كود
جزاك الله خيرا 

30-01-2022 05:51 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل كود
وجزيت خيراً أخي الكريم بمثل ما دعوت لي وزيادة



الكلمات الدلالية
تعديل ،


 










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

الساعة الآن 07:32 مساء