هل ممكن تلوين نتيجة البحث باللون الاصفر باستخدم مسطرة لوحة المفاتيح

[abouelhassan]

الاخوة الافاضل جميعا وحشتونى والله العظيم

مرفق لسيادتكم ملف به العمو دG به مبالغ ابحث عن المبلغ بالبحث العادى للاكسيل

المطلوب عندم اجد ما ابحث عنه اضغط مسطرة الكى بورد يتم تلوين الخلية بالعمود G باللون الاصفر هل ممكن المساعدة

احترامى الشديد

1.rar

تم تعديل نوفمبر 24, 2012 بواسطه abouelhassan

[الـعيدروس]

السلام ليكم

طلبك معقد بالطريقة التي تريدها

ولاكن جرب المرفق وبه زر لتنفيذ الكود

تكتب القيمة التي تريد البحث عنها ثم انتر

وبعدها تضغط المسطره يحدد الخليه ويعمل عليها لون

A_1.rar

[عبدالله باقشير]

السلام عليكم

احسنت واحسن الله اليك

وجزاك خيرا وبارك فيك

تقبل تحياتي وشكري

[abouelhassan]

الله يحفظك استاذنا ابا نصار استاذنا عبد الله اشرقت الانوار وبارك الله فيك

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

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

وتأخذ منى وقت طويل

كل ما احتاجه طريقة اسرع

لذا فكرت ان ابحث عادى مثلا عن الرقم 500 كما بالمرفق فأذا كانت صحيحة اضغط مسطرة تتلون الخلية التى بها الرقم

فلو هناك طريقة اسرع يكون خير استلذنا

احترم من القلب

[الـعيدروس]

السلام عليكم

استاذ الحبيب عبدالله باقشير

جزاك الله كل خير على مرورك الكريم وكلماتك الطيبه

مرورك شرف كبير

اخي الفاضل abouelhassan

اذا تريد اسهل طريقة تحدد قيمة البحث في خليه معينه

جرب المرفق

A_2.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ ابو نصار حفظك الله سبحانه وتعالى ورعاك هذه رائعة من الروائع ولا في الخيال نسال الله سبحانه وتعالى ان يديم عليك نعمة العلم والمعرفة ويزيدك من فضله

ودمتم برعاية الله وحفظه

[مجدى يونس]

الاخ / عباد

عمل رائع من فنان

[الـعيدروس]

السلام عليكم

الاخ الحبيب عباس السماوي

اشكرك على مرورك الكريم وكلماتك الطيبه

الاستاذ والاخ الحبيب مجدي يونس

مشكور جدا على مرورك وكلماتك الطيبه

تقبلو تحياتي وشكري

[abouelhassan]

استاذنا ابا نصار الله يبارك لك والله رائع

بس اريد ان تظل الخلية التى ابحث عنها باللون الاصفر لاتتغير عندما ابحث عن قيمة اخرى

الغرض الذى اريده

بعد اذنك

ابحث عن رقم عندما اجده اقوم بتلوينه بالاصفر ويظل اصفر

لانى اقوم بعد كده بفرز ما هو غير ملون بالاصفر ويتم وضع قيمة صفر مكانه وحضرتك ايضا من صنع لى كود اضافة الصفر

اتمنى انى اجد طلبى احترامى الشديد

[الـعيدروس]

السلام عليكم

ماعليك سوى حذف الاسطر التاليه من الكود او تضليلها

بعلامة حرف "ط"

With Range("G2").Resize(Cells(Rows.Count, 7).End(xlUp).Row, 7)

  .Interior.Color = xlNone

  .ClearComments

End With

[abouelhassan]

الله يبارك لك ويحفظك تم العمل تمام التمام

كل احترامى استاذى ابا نصار الرائع

بارك الله لك

احترام شديد من القلب

[abouelhassan]

واجهتنى مشكلة استاذنا

انه فى حالة تكرار الرقم يقوم بالبحث وتلوين كل الارقام المتشابهة

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

او اى حل اخر بس لا يلون كل الارقام المتشابهة

كل الحب والاحترام

[الـعيدروس]

السلام عليكم

الاخ الفاضل abouelhassan

استبدل الكود الذي في المودويل بالكود التالي

وأي تعديل او اضافه انا موجود

Public Sub Ali_Se(My_R As Range, ByVal S_A As String)

Dim Rt As Range

Dim F_A As String

Dim B_A As Boolean

Set Rt = My_R

If Trim(S_A) = "" Then

	 Exit Sub

End If

With ActiveSheet.Columns(7)

	 Set Rt = .Find(S_A, [G1])

	 If Not Rt Is Nothing Then

		 F_A = Rt.Address

		 Do

		 Application.Goto Rt, False

		 With Range(Rt.Address)

		 .Select

		 .Interior.Color = 65535

		 End With

	 If MsgBox("... انقر فوق نعم للبحث عن السجل التالي ، أو لا لوقف البحث ", vbYesNo + vbQuestion, "القيم المطابقة?") <> vbYes Then

	 B_A = True

		 With Range(Rt.Address)

			 .Select

			 .Interior.Color = 65535

			 .AddComment Text:="نتيجة البحث في هذا الخليه"

			 .Comment.Visible = True

		 End With

		 Exit Do

		 Else

		 With Range(Rt.Address)

			 .ClearComments

			 .Interior.Color = xlNone

		 End With

	 End If

		 Set Rt = .FindNext(Rt)

		 Loop While (Rt.Address <> F_A) And Not (Rt Is Nothing)

	 If Not B_A Then

		 MsgBox "لاتوجد قيم اخرى مشابهه لـ " & S_A, vbInformation, "بحث"

		 With Range(Rt.Address)

			 .Select

			 .Interior.Color = 65535

			 .AddComment Text:="نتيجة البحث في هذا الخليه"

			 .Comment.Visible = True

		 End With

	 End If

	 Else

		 MsgBox S_A & " لاتوجد قيم مشابهه للبحث...", vbExclamation, "بحث"

	 End If

End With

End Sub

A_3.rar

تم تعديل نوفمبر 30, 2012 بواسطه عباد

[abouelhassan]

استاذنا الحبيب الغالى لقلبى ابا نصار اشكرك كل الشكر وبارك الله فيك ولك وبك امين

كده رائع جدااااااااااااااااااااااااااااا

بس المشكلة

اننى لو مثلا 3 خلايا بها رقم 1

وبحثت عن رقم 1 وكنت ملونه باللون الاصفر وبحثت عن رقم 1 واخترت نعم بالبحث يقوم بتلوينه باللون الاخضر

وانا كنت ملونه بالاصفر

لو امكن ان يتجاهل البحث الخلايا الملونة بالاصفر حتى لايبحث بها مجدد ويلونها بالاخضر فهمنى استاذى

وهذه اخر مشكلة ان شاء الله

احترام وخالص الدعاء

تم تعديل ديسمبر 2, 2012 بواسطه abouelhassan

[abouelhassan]

الله يعزك اريد ان يتجاهل البحث الخلايا الملونة بالاصفر

استاذنا

احترامممممممممممم من كل قلبى

[الـعيدروس]

السلام عليكم

لم افهم الطلب

ارجو التوضيح اكثر

عند البحث يحدد خلية البحث ويلونها باللون الاصفر

وماهو اللون الاخضر الذي تقصده ؟

وبعد التحديد والتلوين لايقوم الكود بالرجوع للخليه مره ثانيه ؟

اعذرني لم افهم ارجو مزيد من التوضيح

[abouelhassan]

اشكرك استاذنا جزيل الشكر

حضرتك جرب واكتب رقم 1 فى 3 خلايا ولونهم باللون الاصفر

وابحث عن رقم 1

واختر yes

سيقوم البحث بتلوين الخلايا الملونة بالاصفر باللون الاخضر وهذا غير مطلوب

المطلوب

ان يقوم البحث عن قيمة واذا كانت القيمة ملونة بالون الاصفر البحث لايلونها بأى لون بل تظل باللون الاصف

اى بمجرد تلوين خلية باللون الاصفر لايعيد البحث ايجادها

يتجاهل البحث الخلايا الملونة بالاصفر ويبحث فقط فى الخلايا غير الملونة

بمعنى لو50 خلية فى العمود بهم رقم 1 و30 خلية منهم ملونين بالاصفر وانا ابحث عن رقم 1 يبحث فى 20 خلية غير الملونين اما الملونين

فيظلوا كما هم

فهمتنى استاذى احترامى

[abouelhassan]

اشكرك استاذنا جزيل الشكر

حضرتك جرب واكتب رقم 1 فى 3 خلايا ولونهم باللون الاصفر

وابحث عن رقم 1

واختر yes

سيقوم البحث بتلوين الخلايا الملونة بالاصفر باللون الاخضر وهذا غير مطلوب

المطلوب

ان يقوم البحث عن قيمة واذا كانت القيمة ملونة بالون الاصفر البحث لايلونها بأى لون بل تظل باللون الاصف

اى بمجرد تلوين خلية باللون الاصفر لايعيد البحث ايجادها

يتجاهل البحث الخلايا الملونة بالاصفر ويبحث فقط فى الخلايا غير الملونة

بمعنى لو50 خلية فى العمود بهم رقم 1 و30 خلية منهم ملونين بالاصفر وانا ابحث عن رقم 1 يبحث فى 20 خلية غير الملونين اما الملونين

فيظلوا كما هم

فهمتنى استاذى احترامى

للرفع رفع الله قدركم

[abouelhassan]

اشكرك استاذنا جزيل الشكر

حضرتك جرب واكتب رقم 1 فى 3 خلايا ولونهم باللون الاصفر

وابحث عن رقم 1

واختر yes

سيقوم البحث بتلوين الخلايا الملونة بالاصفر باللون الاخضر وهذا غير مطلوب

المطلوب

ان يقوم البحث عن قيمة واذا كانت القيمة ملونة بالون الاصفر البحث لايلونها بأى لون بل تظل باللون الاصف

اى بمجرد تلوين خلية باللون الاصفر لايعيد البحث ايجادها

يتجاهل البحث الخلايا الملونة بالاصفر ويبحث فقط فى الخلايا غير الملونة

بمعنى لو50 خلية فى العمود بهم رقم 1 و30 خلية منهم ملونين بالاصفر وانا ابحث عن رقم 1 يبحث فى 20 خلية غير الملونين اما الملونين

فيظلوا كما هم

فهمتنى استاذى احترامى

للرفع رفع الله قدركم

احترامى

[أبو حنــــين]

أخي ابو الحسن

ما رأيك في هذه الطريقة بعد اذن اخي عباد

تلوين.rar

[abouelhassan]

اشكرك استاذنا ابا حنين

بس المطلوب

1- ان يظل اللون الاصفر بالخلية التى ابحث عنها

2-فى حالة وجود اكثر من خلية بها نفس الرقم يظهر لى مربع حوارى به هل هذهالخلية المطلوبة نعم =تلوينها بالاصفر لا = تجاهلها

3- فى حالة البحث يتجاهل الخلايا الملونة بالاصفر

الغرض من الموضوع ايه؟

ان هذا العمود به مرتبات اقوم بالبحث عن الاسم من كشوف عن طريق المبلغ واقوم بتلوينه بالاصفر وما لايتم تلوينه

لدى كود يقوم بنقله من هذا العمود الى العمود المجاور ويتم وضع صفر بدلا منه

فأخذ وقت كبير بالموس ابحث ثم اقوم بالذهاب للالوان للون الاصفر لتلوين نتيجة البحث

فهمتنى استاذى

اريد ما اسرع به البحث وتلوين النتيجة اذا كانت موجودة وتظل ملونة وما لا يوجد لا يتلون

وفى حالة تكرار الرقم مثلا عندى 10 خلايا بها رقم 100.5 3 ملونين بالاصفر يقوم البحث فى 7 خلايا غير الملونة ويسألنى عل

هى هذه الخلية المطلوبة لان بجانب كل رقم اسم الموظف فأذا كان اسمه فى كشف المرتب اختار نعم فيتلون الخلية باللون الاصفر

هذا هو المطلوب بالتغصيل

احترام من كل قلبى

[abouelhassan]

اشكرك استاذنا ابا حنين

بس المطلوب

1- ان يظل اللون الاصفر بالخلية التى ابحث عنها

2-فى حالة وجود اكثر من خلية بها نفس الرقم يظهر لى مربع حوارى به هل هذهالخلية المطلوبة نعم =تلوينها بالاصفر لا = تجاهلها

3- فى حالة البحث يتجاهل الخلايا الملونة بالاصفر

الغرض من الموضوع ايه؟

ان هذا العمود به مرتبات اقوم بالبحث عن الاسم من كشوف عن طريق المبلغ واقوم بتلوينه بالاصفر وما لايتم تلوينه

لدى كود يقوم بنقله من هذا العمود الى العمود المجاور ويتم وضع صفر بدلا منه

فأخذ وقت كبير بالموس ابحث ثم اقوم بالذهاب للالوان للون الاصفر لتلوين نتيجة البحث

فهمتنى استاذى

اريد ما اسرع به البحث وتلوين النتيجة اذا كانت موجودة وتظل ملونة وما لا يوجد لا يتلون

وفى حالة تكرار الرقم مثلا عندى 10 خلايا بها رقم 100.5 3 ملونين بالاصفر يقوم البحث فى 7 خلايا غير الملونة ويسألنى عل

هى هذه الخلية المطلوبة لان بجانب كل رقم اسم الموظف فأذا كان اسمه فى كشف المرتب اختار نعم فيتلون الخلية باللون الاصفر

هذا هو المطلوب بالتغصيل

احترام من كل قلبى

للرفع رفع الله قدركم

[abouelhassan]

للرفع رفع الله قدركم

[abouelhassan]

اشكرك استاذنا جزيل الشكر

حضرتك جرب واكتب رقم 1 فى 3 خلايا ولونهم باللون الاصفر

وابحث عن رقم 1

واختر yes

سيقوم البحث بتلوين الخلايا الملونة بالاصفر باللون الاخضر وهذا غير مطلوب

المطلوب

ان يقوم البحث عن قيمة واذا كانت القيمة ملونة بالون الاصفر البحث لايلونها بأى لون بل تظل باللون الاصف

اى بمجرد تلوين خلية باللون الاصفر لايعيد البحث ايجادها

يتجاهل البحث الخلايا الملونة بالاصفر ويبحث فقط فى الخلايا غير الملونة

بمعنى لو50 خلية فى العمود بهم رقم 1 و30 خلية منهم ملونين بالاصفر وانا ابحث عن رقم 1 يبحث فى 20 خلية غير الملونين اما الملونين

فيظلوا كما هم

فهمتنى استاذى احترامى

للرفع رفع الله قدركم

احترامى

احترامى

[abouelhassan]

استاذنا ابا نصار برجاء التكرم

بالرد اخيك بمنتهى الاحترام