عمل مربع بحث

[الاهلاوى 2007]

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

المساعد فى عمل مربع بحث يظهر بيه كود الصنف واسم الصنف والبحث يكون من المخزن بسبب كثرة الاصناف اكثر من 5000 صنف ويظهر مربع البحث فى ثلاث شيتات المبيعات والمشتريات ومباع اليومية حتى استطيع البحث عن الاصناف المراد التعامل معها

ولكم وافر التحية والاحترام

https://www.mediafire.com/file/wg3ianhd82chf7k/%D9%85%D8%AD%D9%84_%D8%A7%D9%84%D8%A8%D9%82%D8%A7%D9%84%D8%A91.xlsm/file

 

تم تعديل فبراير 13 بواسطه الاهلاوى 2007

[abouelhassan]

لم استطيع تحميل الملف ممكن تشرح المطلوب 

[الاهلاوى 2007]

المطلوب عمل مربع حوار بحث فى شيت المبيعات والمشتريات ومباع اليومية ويكون البحث عن الاصناف فى شيت المخزن يظهركود الصنف واسم الصنف

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

تجربة.xlsm

تم تعديل فبراير 13 بواسطه الاهلاوى 2007

[abouelhassan]

اليك الطريقه اخى الكريم جرب لإضافة مربع بحث للبحث عن الأصناف في ورقة العمل، يمكنك اتباع الخطوات التالية:

1. **إنشاء مربع حوار بحث:**

   - قم بالنقر على "مطور" في شريط الأدوات، ثم اختر "إدراج" واختر "زر التحكم".

   - ارسم مربعًا على الورقة ليكون زر البحث.

   - انقر بزر الماوس الأيمن على الزر الذي أنشأته واختر "تعيين معرف" لإعطاء الزر اسمًا مثل "btnSearch".

 

2. **إضافة الكود VBA للبحث:**

   - انقر بزر الماوس الأيمن على ورقة العمل واختر "عرض الكود".

   - استخدم الكود التالي لإنشاء نافذة حوار للبحث عن الأصناف

Sub SearchItem()
    Dim wsInventory As Worksheet
    Dim rngItems As Range, cell As Range
    Dim searchItem As String
    
    ' تحديد ورقة العمل للبحث فيها
    Set wsInventory = ThisWorkbook.Sheets("اسم_ورقة_العمل")
    
    ' مربع حوار البحث
    searchItem = InputBox("ادخل اسم الصنف للبحث عنه:")
    
    ' البحث عن الصنف وعرض النتائج
    If searchItem <> "" Then
        Set rngItems = wsInventory.Range("E:E").Find(What:=searchItem, LookIn:=xlValues, LookAt:=xlWhole)
        If Not rngItems Is Nothing Then
            MsgBox "كود الصنف: " & rngItems.Offset(0, -1).Value & vbNewLine & "اسم الصنف: " & rngItems.Value, vbInformation, "نتائج البحث"
        Else
            MsgBox "لم يتم العثور على الصنف.", vbExclamation, "نتائج البحث"
        End If
    End If
End Sub

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

[الاهلاوى 2007]

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

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

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

ارجو تنفيذه فى الشيتات الموجوده بالملف بما فيها المخزن

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

محل البقالة1.xlsm

تم تعديل فبراير 14 بواسطه الاهلاوى 2007

[الاهلاوى 2007]

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

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

ولكم وافر التحية والاحترام

تم تعديل فبراير 14 بواسطه الاهلاوى 2007

[الاهلاوى 2007]

 

ننتظر المساعده من الاساده الافاضل

 

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

 

تم تعديل فبراير 14 بواسطه الاهلاوى 2007