logo

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



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





27-07-2024 09:41 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 27-07-2024
رقم العضوية : 24573
المشاركات : 1
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 12-7-1934
قوة السمعة : 10
الاعجاب : 0
في المرفق ملف اكسل يحتوي على خانة التسلسل وكود الصنف واسم الصنف والحالة 

المطلوب بعد كتابة جميع المعلومات وبمجرد اختيار كلمة SIEMENS من الحالة يتم تجميد الخلية اللي سجلت فيها المعلومات 
 
 
  تجربة.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(1470.728) KB





look/images/icons/i1.gif سؤال عن كيفية تجميد خلايا اكسل من التعديل بعد اختيار كلمة SIEMENS
  28-07-2024 07:02 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10535
رصيد العضو : 4
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36776
الاعجاب : 193
السلام عليكم ورحمة الله وبركاته 
جرب الكود التالى في حدث ورقة العمل

CODE
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 8 And Target.Column = 6 Then
        If Target.Value <> Empty Then
            On Error Resume Next
                Target.Locked = True
            On Error GoTo 0
            Target.Offset(, -2).Select
            ActiveSheet.Protect "123"
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 8 And Target.Column = 4 Then
        If Target.Value = Empty Or Target.Offset(, 1).Value = Empty Or Target.Offset(, 2).Value = Empty Then
            ActiveSheet.Unprotect "123"
        Else
            On Error Resume Next
                Target.Locked = True
            On Error GoTo 0
            ActiveSheet.Protect "123"
        End If
    ElseIf Target.Row > 8 And Target.Row = 6 Then
        If Target.Value <> Empty Then
            On Error Resume Next
                Target.Locked = True
            On Error GoTo 0
            Target.Offset(, -2).Select
            ActiveSheet.Protect "123"
        End If
    End If
End Sub

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



look/images/icons/i1.gif سؤال عن كيفية تجميد خلايا اكسل من التعديل بعد اختيار كلمة SIEMENS
  28-07-2024 07:25 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 22
المشاركات : 13
رصيد العضو : 0
الدولة : Egypt (مصر)
الجنس :
تاريخ الميلاد : 13-6-1981
قوة السمعة : 14
الاعجاب : 1
تمت التجربة ولم ينجح معي هل بالامكان تجربته ورفعه لنا كي يستفيد الجميع من هذي الخاصية 




look/images/icons/i1.gif سؤال عن كيفية تجميد خلايا اكسل من التعديل بعد اختيار كلمة SIEMENS
  29-07-2024 11:17 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 22
المشاركات : 13
رصيد العضو : 0
الدولة : Egypt (مصر)
الجنس :
تاريخ الميلاد : 13-6-1981
قوة السمعة : 14
الاعجاب : 1
مازلت في انتظار الرد




look/images/icons/i1.gif سؤال عن كيفية تجميد خلايا اكسل من التعديل بعد اختيار كلمة SIEMENS
  29-07-2024 07:10 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 22
المشاركات : 13
رصيد العضو : 0
الدولة : Egypt (مصر)
الجنس :
تاريخ الميلاد : 13-6-1981
قوة السمعة : 14
الاعجاب : 1
حاولت بشتى الطرق دون فائدة هل من الممكن مساعدتي




look/images/icons/i1.gif سؤال عن كيفية تجميد خلايا اكسل من التعديل بعد اختيار كلمة SIEMENS
  15-09-2024 09:25 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
رصيد العضو : 1
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9687
الاعجاب : 26
بارك الله فيك أستاذ ياسر كود بالفعل ممتاز .. بعد اذن حضرتك طبعا سوف أقوم برفع الملف بعد وضع الكود به حتى يتثنى لطالب المشاركة أنه تم حل مشكلته والكود يعمل على أكمل وجه.. وجعل الله هذا العمل فى ميزان حسناتك
 
 
  تجربة.xlsb   تحميل xlsb مرات التحميل :(0)
الحجم :(1178.938) KB


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


توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سلسلة اتعلم كيف تصطاد - شروحات الفورم - الدرس الثانى والعشرون- شروحات Frame-كيفية انشاء Frame -حسام الصقر
10 128 علي بطيخ سالم
كيفية استخراج بيانات من عمود بواسطة بوضع نجمة امامه وشوية تريكات mmagedmemo
2 1302 EM_ACC
كيفية إضافة التاريخ والوقت والتغلب على معادلة الوقت عند استخدام ماكينة الباركود mmagedmemo
4 328 EM_ACC
كيفية اظهار يوزرفورم فى اكسيل اوتوماتيكياً عند انقطاع الانترنت gemy2010
4 365 gemy2010
كيفية وضع ملف فى فولدر تم انشاءة toytotan
12 283 YasserKhalil

الكلمات الدلالية
كلمة ، اختيار ، التعديل ، اكسل ، خلايا ، تجميد ، كيفية ، سؤال ، SIEMENS ،









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

الساعة الآن 11:01 AM