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

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


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





محتويات خليه تعتمد على محتويات الخلايا الاخرى

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


22-08-2020 10:48 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم اساتذتنا الافاضل محتاج طريقه تغيير محتويات خليه محدده حسب محتويات خلايا اخرى محدده كما موضح بالملف المرفق مع جزيلا الشكر 
 
 
  نموذج.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(90.156) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم أبو طيبة
يجب أن تظهر لنا المحاولات التي قمت بها في سبيل تحقيق المطلوب .. 
عموماً جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim c As Range, b As Boolean
    For Each c In Range("O9:W16")
        If InStr(c.Value, "+") Then
            Range("G10").Value = "Trbit": b = True: Exit For
        End If
    Next c
    If b Then Exit Sub Else Range("G10").Value = "Clear"
End Sub
عرض الإجابة




22-08-2020 11:20 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif محتويات خليه تعتمد على محتويات الخلايا الاخرى
وعليكم السلام أخي الكريم أبو طيبة
يجب أن تظهر لنا المحاولات التي قمت بها في سبيل تحقيق المطلوب .. 
عموماً جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim c As Range, b As Boolean
    For Each c In Range("O9:W16")
        If InStr(c.Value, "+") Then
            Range("G10").Value = "Trbit": b = True: Exit For
        End If
    Next c
    If b Then Exit Sub Else Range("G10").Value = "Clear"
End Sub

23-08-2020 10:48 صباحا
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif محتويات خليه تعتمد على محتويات الخلايا الاخرى
شكر استاذ ياسر العزيز  هل يمكن تنفيذ بدون زر ( اي اضافة الكود في حد الصفحة) لتنفيذه مع جزيل الشكر لجهودك
 
 
  نموذج.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(93.51) KB


23-08-2020 11:48 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif محتويات خليه تعتمد على محتويات الخلايا الاخرى
لا أفهم ماذا تفيد الخلايا المدمجة في هذه الحالة
الكود

Sub Test()
    Dim i%, Lc%
    Dim str$
    str = "Trbit"
        Lc = Cells(Rows.Count, 3).End(3).Row
    If Lc < 9 Then Exit Sub
    i = 10
    Do Until i = Lc + 1
       Cells(i, 3) = _
       IIf(InStr(Cells(i, 4), "+") _
       , str, Cells(i, 3))
      i = i + 1
    Loop
   
End Sub


 
 
 
  Simple_file.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(93.163) KB


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

23-08-2020 02:46 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif محتويات خليه تعتمد على محتويات الخلايا الاخرى
يمكنك وضع الكود في حدث Worksheet_Activate للصفحة

في كل مرة تفتح الصفحة الكود يعمل


Private Sub Worksheet_Activate()
   Dim c As Range, b As Boolean
    For Each c In Range("O9:W16")
        If InStr(c.Value, "+") Then
            Range("G10").Value = "Trbit": b = True: Exit For
        End If
    Next c
    If b Then Exit Sub Else Range("G10").Value = "Clear"
End Sub

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


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
خليه ، محتويات ، محتويات ، تعتمد ، الاخرى ، الخلايا ،


 










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

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