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

م.مهند القانوع

03 عضو مميز
  • Posts

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

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

مشاركات المكتوبه بواسطه م.مهند القانوع

  1. الاخوة الاحباب في قاعدة البيانات رقم المبنى 20/1000 به 13 شقة سكنية اريد المساعدة في استكمال العمود I  بحيث يعطي عدد الوحدات السكنية لكل رقم مبنى وبارك الله فيكم   .. من فضلك ممنوع رفع الملف مضغوط طالما حجمه صغير , تـــم تعديل رفع الملف بدون ضغط

    test.xls

  2. التطبيق واضح تماما و بارك الله فيك

    استفسار آخر و اخير ان شاء الله اذا امكن

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

    السؤال : كيف يمكن طباعة محتوى النتائج بشكل تلقائي دون طباعة صفحات فارغة او اذا زاد عدد الورقات عن الاطار المحدد و هو حاليا 3 صفحات ان يقوم بطباعة كافة النتائج و بارك الله فيكم جميعا

  3. أخي الحبيب محمد الريفي ...

    تقبل الله منا ومنكم وكل عام وأنت بخير

     

    بالنسبة للحل المقدم يقوم باستخراج القيم من عمود واحد فقط وبدون ترتيب

    والمطلوب على ما يبدو لي : استخراج كل القيم من الثلاثة أعمدة بدون فراغات ثم ترتيب البيانات حسب العمود الثالث في النتائج المستخرجة

    الاخوة الاحباب في موقع اوفيسنا العظيم تقبل الله منا و منكم صالح الاعمال و كل عام و انتم بالف الف خير

    لقد حصلت على المطلوب من خلال مساعدتكم و انا بصدد اعداد برنامج متواضع لمساعدة هيئة التمريض في احد المستشقيات يعينهم على تدبير اوقات الدوام و انا متاكد انكم لن تبخلو في تقديم المزيد من الافكار عندما اتوقف عند جزئية ما في البرنامج .

    و بارك الله فيكم

    • Like 1
  4.  

    الأخ الكريم

    يرجى تغيير اسم الظهور للغة العربية

     

    بعد إذن أخي الحبيب سليم وإثراءً للموضوع

    إليك حل بالأكواد عله يفي بالغرض .. تم الفرز على أساس العمود M

    Sub ExtractUniqueAndSort()
        Dim lRow As Long
        Dim Element As Variant
        Dim Dict As Object
        Dim J As Long
        Set Dict = CreateObject("Scripting.Dictionary")
        
        With ThisWorkbook.Worksheets("2")
            .Columns("K:M").ClearContents
            For lRow = 1 To 100
                If Len(.Cells(lRow, 1)) Then
                    If Not Dict.exists(.Cells(lRow, 1).Value) Then
                        Dict.Add .Cells(lRow, 1).Value, 1
                        J = J + 1
                        .Cells(J, 11).Resize(, 3).Value = .Cells(lRow, 1).Resize(, 3).Value    '***
                    End If
                End If
            Next lRow
            Set Dict = Nothing
        End With
        Set Dict = Nothing
        
        With Range("K1:M1").CurrentRegion
            .Sort Key1:=.Cells(1, 3), Order1:=xlAscending
        End With
    End Sub
    

    تقبل تحياتي :fff: :fff: :fff:

    اشكرك اخى ياسر على الاهتمام و فعلا الكود رائع جدا و لكن عندما قمت بتطبيق الكود على قاعدة بيانات تتكون من 38 صف قام بفرز 35 فقط و التوضيح في الملف المرفق

    Unique Values & Sort YasserKhalil11.rar

  5. تفضل المطلوب 

    اضغط (افضل اجابة) اذا كان الامر كذلك

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

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

    و بارك الله فيك

    ‫تجريب - نسخة 2.rar

  6. الاخوة الافاضل الدالة counta تستخدم لعد الاسماء.

    عندى ملف استخدم الدالة vlookup لاستدعاء اسماء من ملف اخر و اريد عد الاسماء التى يتم استدعائها و عند استخدام الدالة counta يقوم بعد الخلايا التى تحتوى على دالة vlookup بالاضافة الى الاسماء التى تم استدعاؤها

    فكيف يمكن عد الاسماء المستدعاه فقط و بارك الله فيكم

  7. الاخوة الافاضل

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

  8. اخواني الاعزاء الافاضل

    اعتقد ان الفكرة لم تتضح بعد و ليس ما قمتم باعداده هو المطلوب

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

    و لارك الله فيكم

×
×
  • اضف...

Important Information