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

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


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





تنشيط خليه اخرى عند الاختيار من القائمة المنسدلة في العمود المحدد

السلام عليكم اساتذتنا الافاضل هل يوجد طريقه لدمج الكود ادناه مع كود الملف لتنفيذ المطلوب بعد الاختيار من القائمة المنس ..


موضوع مغلق


16-03-2021 11:32 صباحا
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 



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

Private Sub Worksheet_Change(ByVal Target As Range)     ActiveCell.Offset(1, 0).Select End Sub


او اذا يوجد طريقة أخرى لتنفيذ المطلوب مع جزيل الشكر والامتنان








 
 
  File .xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(52.029) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
جرب الكود بهذا الشكل
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D8")) Is Nothing Then
        Range("E9:E10").Value = "100"
        Range("E11:E12").ClearContents
        Range("E13:E14").Value = "yes"
        Range("E15:E16").ClearContents
    ElseIf Not Intersect(Target, Range("E9:E12")) Is Nothing Then
        Target.Offset(1).Select
    End If
End Sub
عرض الإجابة




16-03-2021 05:22 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تنشيط خليه اخرى عند الاختيار من القائمة المنسدلة في العمود المحدد
جرب الكود بهذا الشكل
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D8")) Is Nothing Then
        Range("E9:E10").Value = "100"
        Range("E11:E12").ClearContents
        Range("E13:E14").Value = "yes"
        Range("E15:E16").ClearContents
    ElseIf Not Intersect(Target, Range("E9:E12")) Is Nothing Then
        Target.Offset(1).Select
    End If
End Sub

16-03-2021 08:10 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تنشيط خليه اخرى عند الاختيار من القائمة المنسدلة في العمود المحدد
مشكوره جهودك استاذ ياسر العزير جعلها الله في ميزان حسناتك 

16-03-2021 11:03 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تنشيط خليه اخرى عند الاختيار من القائمة المنسدلة في العمود المحدد
تسلم أخي الكريم أبو طيبة والحمد لله أن تم المطلوب على خير.



الكلمات الدلالية
خليه ، تنشيط ، المحدد ، اخرى ، الاختيار ، القائمة ، المنسدلة ، العمود ،


 










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

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