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

نجوم المشاركات

  1. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      7

    • Posts

      3,491


  2. husamwahab

    husamwahab

    الخبراء


    • نقاط

      6

    • Posts

      1,047


  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      4

    • Posts

      8,723


  4. محي الدين ابو البشر

Popular Content

Showing content with the highest reputation on 18 أكت, 2020 in all areas

  1. اتفضل اليك تعديل اخر الان تعمل مع اربع ملفات اكسل تم تم Fayz.rar
    3 points
  2. وعليكم السلام استاذ حسين العربى مشاركة مع استاذ ازهر عبد العزيز ارجو ان تكون موفقة test-root.rar
    2 points
  3. تفضل اخي العزيز ارجو ان يكون طلبك Adddte-root.rar
    1 point
  4. بعد ادن اخي محي الدين و زيادة في اثراء الموضوع هذا الكود Option Explicit Sub test_1() Dim arr(), i%, t%, itm, col% Dim B As Worksheet Dim Tas As Worksheet Set B = Sheets("البيان") Set Tas = Sheets("التصنيفات") B.Range("D2").CurrentRegion.ClearContents Dim Rg As Range Set Rg = Tas.Range("B2:D20") For i = 1 To Rg.Cells.Count If Rg.Cells(i) <> "" Then ReDim Preserve arr(t) arr(t) = Rg.Cells(i) t = t + 1 End If Next t = 2 For i = 2 To 9 For Each itm In arr If InStr(B.Cells(i, 2), itm) Then col = Rg.Find(itm, lookat:=1).Column B.Cells(t, 4) = Replace(B.Cells(i, 2), _ itm, Tas.Cells(1, col)) t = t + 1: Exit For End If Next itm Next i End Sub الملف مرفق Mh_Fayz.xlsm
    1 point
  5. عفواً مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول البيان احتياطاً Sub test() With Sheet1 lr = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lr x = Split(.Cells(i, 2), " ") Set fin = Sheet2.Range("b2:d20").Find(x(4)) .Cells(i, 3) = Sheet2.Cells(1, fin.Column) Next End With End Sub تصنيف الوصف.xlsm
    1 point
  6. حسب ما فهمت مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول التصنيفات تصنيف الوصف.xlsm
    1 point
  7. احسنت و ابدعت اخي الكريم
    1 point
  8. السلام عليكم كيف تفتح التقرير هل عن طريق زر أمر ورائه كود أو ماكرو مثلا وما هو هذا الأمر الذي تستخدمه في فتح التقرير وان كان بامكان حضرتك أن ترسل لنا مثالا للمشكلة التي توجهك هنا لنتعامل معها عيانا لا سماعا. ولحين الاجابة علي هذه التسائلات من فضلك افتح التقرير في طريقة عرض التصميم وراجع هذه الخاصية
    1 point
  9. On Error Resume Next DoCmd.OpenReport "RS", acPreview هذا يظهر التقرير ولكن معاينة فقط
    1 point
  10. اخي الكريم طلبك واضح لكنه عدت طلبات في طلب واحد بالنسبة لموضوع قاعدة البيانات على سيرفر خارجي فالموضوع سهل جدا لكن يجب قبل البدء ان تكون جميع المسميات باللغة الانجليزية يجب ان لا يكون هنالك مسافات بين المسميات في الجدول لأنك ستواجه مشكلة في حال اردت ان تبني تقارير داخل السيرفر فلن تتعرف التقارير على المسافات و لن تعمل معك اخيرا اتبع الشرح على هذا الرابط مشاركة قواعد البيانات على الانترنت آخرا في حال واجهتك اي صعوبات فأنا في خدمتك فالموضوع بسيط للغاية ما هي الفائدة من رفع قاعدة البيانات على سيرفر خارجي تستطيع ترقية تصاميمك على الاكسس الى احد لغات البرمجة في حال قمت برفع قاعدة البيانات على سيرفر خارجي كذلك تستطيع ان تبني صفحات على مثلا الفيجوال بيسك و جعلها متوافقة مع الهواتف المحمولة مما يتيح لك العمل على برنامج سواء على الكمبيوتر او الهواتف المحمولة لا تقلق من هذه النقطة تستطيع البدء مع احد الشركات فكثير من الشركات تقدم استضافة مجانية تستطيع البدء من خلالها الى ان تصل لهدفك و بعدها تقوم بشراء استضافة و مساحة حسب احتياجك من وجهة نظري لغات البرمجة الأخرى اكثر مرونه و سهولة من الاكسس فقط في حال اردت ان يكون برنامج له عدت واجهات اخيرا و ليس آخرا ستجدني و جميع الأخوة معك قلبا و قالبا الى ان تنهي مشروعك نسأل الله لك و للجميع التوفيق و السداد اخوك : حسين كمال (د.كاف يار)
    1 point
  11. عليكم السلام استاذ AboBahaa تفضل التعديل ارجو ان يكون طلبك تحديث حساب العمر2.rar
    1 point
  12. اظن ان هناك خطا في ادخال قم بحذف كل البيانات وبعدين قم بادخالها من جديد وشوف النتيجة اليك قاعدة بعد تنظيف و تعبئة من جديد تاريخ الواصل (1).rar
    1 point
  13. هل جربت هذا Docmd.Open Docmd.OpenReport "NameForReport", acViewReport
    1 point
  14. هذا عمل من الصعب تنفيذه بالمعادلات جرب هذا الكود Option Explicit Sub Extract_Codes() Dim col As Object Dim i% Dim RoB%, RoD% Set col = CreateObject("System.Collections.ArrayList") With Sheets("Sheet2") i = 2 Do Until .Cells(i, 1) = vbNullString If Not col.Contains(.Cells(i, 2).Value) _ And .Cells(i, 2) <> "" _ And IsNumeric(.Cells(i, 2)) Then col.Add .Cells(i, 2).Value End If If Not col.Contains(.Cells(i, 4).Value) _ And .Cells(i, 4) <> "" _ And IsNumeric(.Cells(i, 4)) Then col.Add .Cells(i, 4).Value End If i = i + 1 Loop col.Sort .Cells(1, "I").CurrentRegion.ClearContents .Cells(1, "I").Resize(col.Count).Value = _ Application.Transpose(col.ToArray) End With End Sub الملف مرفق Saher.xlsm
    1 point
  15. ما تطلبه ليس بالسهل او الهين فعليك بالتحلى بالصبر حتى تحين الفرصة للمساعدة من قبل الأساتذة والخبراء
    1 point
  16. قلت دون كلمات لا معنى لها هل هناك شركة باسم غشاخخ أو لخخخلث
    1 point
  17. السلام عليكم و رحمة الله و بركاته اولا لك جزيل الشكر على المجهود الرائع امابعد لى سؤال لو تكرمت لماذا لا يظهر سعر الجملة و النصف جملة فى خيارات فواتير المبيعات و مرتجعات البيع ولك الشكر جزاك الله خيرا اشكرك للمرة الثانية فلقدوجد الحل فى تفعيل البيانات الاساسية جزاك الله كل خير
    1 point
  18. ألف شكر استاذنا الفاضل ... بارك الله فيك
    1 point
  19. انا استخدم اوفيس 2010 ويعمل عندي بالتمام ليس فيها اي مشكلة تحياتي
    1 point
  20. ضع كل احتمالات الكتابة في عامود واحد (دون فراغات) ودون كلمات لا معنى لها ( الاسهم الزرقاء) و في عامود اخر ما تريد استبداله كما في هذه الصورة
    1 point
  21. رحم الله والديك وانا بخدمتك
    1 point
×
×
  • اضف...

Important Information