اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

مرفق بالملف ( ادخال البيانات ) كود بحث بسيط باستخدام التصفية التلقائية عن رقم واحد ( 133 )

المطلوب من السادة الخبراء تعديل علي الكود بحيث يظهر صندوق حوارى يطلب الرقم الذي نبحث عنه ( من فضلك اكتب الرقم الذى تبحث عنه ) عند الضغط علي زر البحث

ولكم جزيل الشكر

_________________________.rar

قام بنشر

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

اخي الفاضل

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

وهو منقول عن الأستاذ الفاضل حسام نور جزاه الله خيرا :biggrin:


Application.SendKeys ("^f")

مع التحية

قام بنشر

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

الأخ aysam

بمعنى آخر

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

اذاكان هذا المطلوب

الحل ممكن بإذن الله تعالى

انته اعمل الفورم واربطة بالزر الموجود

والباقي يصير باذن الله

مع التحية

قام بنشر

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

الأخ aysam

بمعنى آخر

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

اذاكان هذا المطلوب

الحل ممكن بإذن الله تعالى

انته اعمل الفورم واربطة بالزر الموجود

والباقي يصير باذن الله

مع التحية

قام بنشر

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

أستاذنا أحمد

جزاك الله خيرا على الرد

نعم ما تقول صحيح و هو ما اريد

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

و اين الزر الذي تقصد ؟

الرجاء الشرح ويا ريت يكون بمثال

و لكم الشكر

قام بنشر
السلام عليكم

صندوق حوارى يطلب الرقم الذي نبحث عنه ( من فضلك اكتب الرقم الذى تبحث عنه ) عند الضغط علي زر البحث

ولكم جزيل الشكر

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

الفورم هو ما ذكرته في مشاركتك صندوق الحوار

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

الزر هو الزر الذي وضعته انت في الملف و مكتوب علية بحث

مع التحية

قام بنشر

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

‏ الأخ aysam

الملف المرفق تم وضع خانة حمراء اسفل رقم الجلوس

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

امسح الخانة الحمراء بواسطة ديليت Del وسوف تظهر لك تلقائيا جميع بيانات الشاشة

آمل ان يكون هذا المطلوب مع التحية

_________________________.rar

قام بنشر

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

أستاذنا أحمد

جزاك الله خيرا على الرد و الحل البديل لكنه رائع

ولكن كيف اقوم بتنفيذه فانا احتاجه فى ملفات اخرى

ارجو الشرح

جزاكم الله الف خير و شكر الله لك

قام بنشر

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

تم استخدام الكود التالي

Private Sub Worksheet_change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column <> 2 Then Exit Sub
If Not Range("B12") = "" Then
Range("B12").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter Field:=1, Criteria1:=[b12], Operator:=xlOr
        End If
        Application.ScreenUpdating = True
End Sub

و الذي وضع في الحدث التلقائي للصفحة التي تعمل بها

قام بنشر

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

أستاذنا أحمد

جزاك الله خيرا على الرد

تمت تجربة الكود الرائع على ملفاتى والنتيجة رائعة و الحمد لله

جعله الله فى ميزان حسناتك مثاقيل كثيرة

أخوك : أيسم إبراهيم

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information