اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

xctwmkluert

عضو جديد 01
  • Posts

    3
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

عن العضو xctwmkluert

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    account

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم برجاء شرح الكود التالي الخاص بالبحث وكيفية التعديل فيه Sub Macro1() Columns("C:F").Select Range("F1").Activate Selection.ClearContents Range("B16").Select i = 1 w = InputBox("Find", "Find What:", "") Cells(1, 3) = "Voucher No." Cells(1, 4) = "Date" Cells(1, 5) = "Particular" Cells(1, 6) = "Amount" For Each sh In Worksheets If sh.Name = "Sheet" Then End With sh.Range("C1:C500") Set a = .Find(w) If Not a Is Nothing Then f = a.Address Do i = i + 1 Workbooks("find").Worksheets("sheet").Cells(i, 5) = a x = a.Row y = a.Column Workbooks("find").Worksheets("sheet").Cells(i, 3) = Workbooks("find").Worksheets(sh.Name).Cells(x, y - 2) Workbooks("find").Worksheets("sheet").Cells(i, 4) = Workbooks("find").Worksheets(sh.Name).Cells(x, y - 1) Workbooks("find").Worksheets("sheet").Cells(i, 6) = Workbooks("find").Worksheets(sh.Name).Cells(x, y + 3) Set a = .FindNext(a) Loop While Not a Is Nothing And a.Address <> f End If End With Next sh End Sub شكرا جزيلا
  2. اولا جزاك الله كل خير علي تعبك وبارك الله فيك برجاء لو توضيح بسيط كيف التعديل لاني ليس عندي خبرة في المجال لو ممكن التوضيح في عدة نقاط وانا حاتبع الخطوات شكرا جزيلا لحضرتك
  3. السلام عليكم برجاء المساعدة انا صممت ملف بسيط لعمل قاعدة بيانات لمدرسة مع المصاريف ولكن محتاج شيت منفصل للبحث بحيث ابحث عن اي اسم في المستند كله ونتيجة البحث تكتب في شيت البحث بكل التفاصيل لتكون جاهزة للطباعة انا وجدت ملف انفس الغرض ولكن فشلت في كتابة الكود الخاص بالبحث مرفق الملف المطلوب باسم SCHOOL والملف المراد عمل كود البحث مثله باسم FIND برجاء المساعدة وجزاكم الله خيرا SCHOOL.xlsx find.xls
×
×
  • اضف...

Important Information