أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل واضافة كود اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





مساعده فى تقرير بشروط

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



02-03-2020 10:14 مساء
سعد عابد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 100
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
قوة السمعة : 114
الاعجاب : 3
 offline 
السلام عليكم
تقرير من جدول بياناته فى اعمدة
احاول ان استخرجه بطريقة طولية لا عرضيه بيانات الجدول
فالبحث باسم الشركة 
اذا كان لها مستخلص رقم 1 مثلا
تاتى باجمالية فى العمودe
والاستقطاعات كلا حسب اسمه الموجود فى العمودd تاتى بقيمته فى العمود f
اتمنى ان يصل الشرح اليكم
حاولت ولكن كودى لا يعمل بشكل صحيح
 
 
  report.xlsb   تحميل xlsb مرات التحميل :(5)
الحجم :(28.388) KB





03-03-2020 06:14 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25526
الاعجاب : 195
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
وعليكم السلام أخي العزيز سعد
يفضل في طرح الموضوع أن يرفق بمثال لشكل النتائج المتوقعة .. عموماً قمت بقراءة الكود الموجود وفهمت بعضاً من المطلوب بشكل عام وقمت بعمل كود آخر بشكل مختلف .. عله يفي بالغرض إن شاء الله
Sub Test()
    Dim wsData As Worksheet, ws As Worksheet, sh As Worksheet, c As Range, m As Long, n As Long, r As Long, x As Long, col As Long
    
    Application.ScreenUpdating = False
        Set wsData = data0: Set ws = Sheet3: Set sh = sheet10
        
        sh.Range("B5:H" & Rows.Count).ClearContents
        m = ws.Cells(Rows.Count, 10).End(xlUp).Row
        If m < 5 Then Exit Sub
        
        For r = 5 To m
            If ws.Cells(r, 10).Value = sh.Range("D2") Then
                n = sh.Cells(Rows.Count, 4).End(xlUp).Row + 2: x = 0
                sh.Cells(n, 3).Value = ws.Cells(r, 5).Value
                sh.Cells(n, 4).Value = "مستخلص رقم " & ws.Cells(r, 5).Value
                sh.Cells(n + 1, 4).Resize(11).Value = wsData.Range("B5").Resize(11).Value
                
                sh.Cells(n, 5).Value = ws.Cells(r, 15).Value
                
                For Each c In sh.Range("D" & n + 1).Resize(11).Cells
                    x = x + 1
                    col = Choose(x, 17, 19, 21, 23, 25, 27, 29, 31, 32, 33, 34)
                    sh.Cells(c.Row, 6).Value = ws.Cells(r, col).Value
                Next c
            End If
        Next r
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

أثارت هذه المشاركة إعجاب: سعد عابد، عبدالله فتحى،



03-03-2020 07:22 صباحا
مشاهدة مشاركة منفردة [2]
سعد عابد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 100
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
قوة السمعة : 114
الاعجاب : 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اخى العزيز / استاذ ياسر خليل
اشكرك كل الشكر 
والله بهرت بهذ الكود
ولقد اضفت عدة سطور لنفس الاسم وعمل الكود بشكل سليم وسريع 
اشكرك اخى العزيز جدا جدا 
اسال الله ان يكرمكم فى الدارين وان يبارك لك فى اولادك 

أثارت هذه المشاركة إعجاب: YasserKhalil،



03-03-2020 07:42 صباحا
مشاهدة مشاركة منفردة [3]
سعد عابد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 100
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
قوة السمعة : 114
الاعجاب : 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اخى ياسر
هناك ملحوظه واحده هل يمكن تداركها
الكود يعمل بكفاؤه وبسرعة
من الممكن ان يكون المستخلص فى اكثر من صف
فهو حاليا ياتى بكل صفه لوحده وهو فى الحساب صجيج مش خطا
ولكن هل  من الممكن جمعهم 
================
يذكر رقم المستخلص مره واحده 
وبنود الاستقطاعات مره واحده مع جمع الارقام
 




03-03-2020 05:32 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25526
الاعجاب : 195
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
بارك الله فيك أخي العزيز سعد
لم أفهم المشكلة بشكل جيد . يفضل إرفاق ملف ووضع بعض البيانات الكافية ليساعدك الأعضاء بقدر استطاعتهم .. لأنني لن أكون متاح لفترة كبيرة 

أثارت هذه المشاركة إعجاب: سعد عابد،



03-03-2020 06:32 مساء
مشاهدة مشاركة منفردة [5]
سعد عابد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 100
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
قوة السمعة : 114
الاعجاب : 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اذا نظرت الى التقرير (البيانات المظلله  بالاصفر)
ستجد ان رقم 2 بياناته مكرره 
وهى لن تضر الحسابات 
ولكن ان امكن يجمع بيانات المستخلص هتكون افضل
 
 
  report.xlsb   تحميل xlsb مرات التحميل :(3)
الحجم :(32.419) KB





07-03-2020 09:34 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25526
الاعجاب : 195
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
أخي العزيز سعد
كيف سيكون دمج المستخلصات المتشابهة وجمعها وخصوصأً أن هناك نصوص مثل "خصومات موقع" ..؟ 
يرجى وضع تصور لشكل المتوقع بعد الدمج .. ليتمكن الأعضاء من محاولة المساعدة في الموضوع

أثارت هذه المشاركة إعجاب: سعد عابد،



07-03-2020 10:04 صباحا
مشاهدة مشاركة منفردة [7]
سعد عابد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 100
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
قوة السمعة : 114
الاعجاب : 3
 offline 
look/images/icons/i1.gif مساعده فى تقرير بشروط
اخى ياسر خليل
النصوص ثابته فى اى مستخلص وهو سيجمع بدلالة رقم المستخلص والنصوص
============================
توضيح اكثر
======
استدعاء البيانات سيكون شرطه الاول (اسم الشركة )
ثم رقم المستخلص ونصوص الاستقطاعات (النصوص 11نص يذكروا مره واحده لكل مستخلص)
=================






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
جلب تقرير بيانات الطلاب الذين سددوا المصروفات الدراسية أبو سجده
6 329 YasserKhalil
استخراج تقرير من بيانات بشروط yousef_kaf
1 91 yousef_kaf
مشكلة في تقرير سحب حبيب
13 345 حبيب
تقرير حساب بين فترات مأخوذ من عدة اوراق yosif
2 220 YasserKhalil
برنامج مخازن شامل فاتورة بيع +كشف النواقص+ تقرير مراقبة المخزون رمضان بكري
116 7694 محمج احمد سعد

الكلمات الدلالية
بشروط ، مساعده ، تقرير ،


 







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

الساعة الآن 11:48 مساء

أعلن هنا
أعلن هنا
أعلن هنا