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

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


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





البحث فى خلية مع التلوين

السلام عليكم ورحمة الله وبركاته هل من الممكن البحث عن قيمة فى خلية ما مع تلوين القيمة التى ابحث عنها مثال لو عندى جدول ف ..


موضوع مغلق


14-11-2021 10:04 مساء
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 258
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 

السلام عليكم ورحمة الله وبركاته
هل من الممكن البحث عن قيمة فى خلية ما مع تلوين القيمة التى ابحث عنها مثال
لو عندى جدول فى شيت 1 مثلاً فى الخلية رقم A10  مكتوب فيه كود الموظف 100 يتم تلوينها بالون الذى اقوم بإختياره مسبقاً اى ممكن ابحث عن كود موظف رقم 100 ويتم تلوينه بالون الأصفر وبعد كده ابحث عن الكود رقم 400  الموجود فى الخلية رقم A15 ويتم تلوينه بالون الأحمر  ويكون لى حرية تغيير اللون اللى بأبحث به زى ما انا أكون محتاج ومرفق ملف اكسيل يوضح الشرح .
لكم منى كل الأمنيات بالتوفيق النجاح
 
 
  البحث مح التلوين.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(11.857) KB



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

Private Sub CommandButton1_Click()
    If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
        lColor = ActiveWorkbook.Colors(10)
    End If
    TextBox1.SetFocus
End Sub

Private Sub TextBox1_AfterUpdate()
    Dim x
    If lColor = 0 Then MsgBox "Select Color First", vbExclamation: Exit Sub
    x = Application.Match(Val(TextBox1.Value), Sheet1.Columns(1), 0)
    If Not IsError(x) Then
        Sheet1.Cells(x, 1).Interior.Color = lColor
    End If
    TextBox1.Text = Empty
End Sub
عرض الإجابة




14-11-2021 10:54 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif البحث فى خلية مع التلوين
وعليكم السلام أخي الكريم أشرف
في الحقيقة أشعر أن موضوعاتك ليست واضحة بما فيه الكفاية ، وهذا يجعل الأعضاء يمتنعون عن المشاركة أو أن الأعضاء يشاركون والموضوع يطول بدون داعي .. لابد من ذكر كافة التفاصيل وشكل النتائج المتوقعة
عموماً حسب فهمي للطلب يمكنك إنشاء فورم بسيط عليه تكست بوكس وزر أمر ، بحيث تقوم أولاً باختيار اللون المطلوب من خلال الضغط على زر الأمر ثم تكتب رقم الموظف في التكست بوكس ثم تضغط إنتر فيتم تلوين رقم الموظف باللون الذي تم اختياره مسبقاً من خلال زر الأمر
إليك الكود
Dim lColor As Long

Private Sub CommandButton1_Click()
    If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
        lColor = ActiveWorkbook.Colors(10)
    End If
    TextBox1.SetFocus
End Sub

Private Sub TextBox1_AfterUpdate()
    Dim x
    If lColor = 0 Then MsgBox "Select Color First", vbExclamation: Exit Sub
    x = Application.Match(Val(TextBox1.Value), Sheet1.Columns(1), 0)
    If Not IsError(x) Then
        Sheet1.Cells(x, 1).Interior.Color = lColor
    End If
    TextBox1.Text = Empty
End Sub
 
 
  Sample.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(20.189) KB


15-11-2021 12:02 صباحا
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 258
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif البحث فى خلية مع التلوين
لقد اصبت يا استاذنا يا كبير وفورمه فى منتهى الجمال ومشكور جداً لسرعة استجابة حضرتك ومشاركتك لموضوعى هو ذاك المطلوب بالفعل
لكن هو مفيش كود للحدث فى الشيت عن تحديد خلية بها الكود او القيمة المراد البحث عنها فيتم التلوين بعد اختيار اللون المطلوب مسبقاً دون الإحتياج للدخول على الفورمه .
زادك الله تعالى من علمه وجعله فى ميزان حسناتك الى يوم القيامة يارب العالمين

15-11-2021 06:47 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif البحث فى خلية مع التلوين
بارك الله فيك أخي الكريم أشرف
بالنسبة لكود حدث ورقة العمل سيكون بنفس المنطق المعمول به الفورم ، حيث ستقوم بإظهار النافذة التي تختار منها اللون بمجرد إحداث تغيير في الخلية ، ثم يبحث عن الرقم في العمود الاول فإذا وجد الرقم يقوم بتلوين الخلية. سأترك الأمر لك كتدريب ، والأكواد لديك حاول دراستها وطوعها بنفسك ، وإذا واجهتك مشكلة في سطر ما أخبرنا وسنحاول إفادتك (ولكن لا تقول إني لا أعرف .. حاول وافشل .. بالفشل نتقبلك)



الكلمات الدلالية
البحث ، خلية ، التلوين ،


 










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

الساعة الآن 05:40 صباحا