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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تثبيت الكود علي خليه معينه اكسيل اسئله واجابات


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



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





استعلام عن كلفة كل دار

السلام عليكم - حياكم الله اريد معرفة كلفة كل دار حسب الكميات والفقرات المشمولة بها الدار من خلال الكشف وارفق ملف توضحيحي ..



14-07-2019 04:37 مساء
خالد ابوعوف
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-03-2019
رقم العضوية : 12203
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-7-1976
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 5
 offline 

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

مشكورين

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  بيان كلفة كل دار.rar   تحميل rar مرات التحميل :(8)
الحجم :(32.422) KB







14-07-2019 06:04 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif استعلام عن كلفة كل دار
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim ws1         As Worksheet
    Dim ws2         As Worksheet
    Dim sh          As Worksheet
    Dim x           As Variant
    Dim r           As Long
    Dim n           As Long
    
    Application.ScreenUpdating = False
        Set ws1 = ThisWorkbook.Worksheets(1)
        Set ws2 = ThisWorkbook.Worksheets(3)
        Set sh = ThisWorkbook.Worksheets(2)
        n = 4
        
        x = Application.Match(sh.Range("B1").Value, ws1.Rows(1), False)
        
        If Not IsError(x) Then
            With sh.Range("A4:E" & sh.UsedRange.Rows.Count)
                .ClearContents: .Borders.Value = 0
            End With
            
            For r = 2 To ws1.Cells(Rows.Count, "B").End(xlUp).Row
                If ws1.Cells(r, x).Value <> "" Then
                    sh.Range("A" & n).Value = ws1.Range("A" & r).Value
                    sh.Range("B" & n).Value = ws1.Range("B" & r).Value
                    sh.Range("C" & n).Value = ws1.Cells(r, x).Value
                    sh.Range("D" & n).Value = ws2.Cells(r, 4).Value
                    sh.Range("E" & n).Value = Val(sh.Range("C" & n).Value) * Val(sh.Range("D" & n).Value)
                    
                    n = n + 1
                End If
            Next r
            
            With sh.Range("A4:E" & sh.Cells(Rows.Count, 1).End(xlUp).Row)
                .Borders.Value = 1
            End With
        End If
    Application.ScreenUpdating = True
End Sub





14-07-2019 07:31 مساء
مشاهدة مشاركة منفردة [2]
خالد ابوعوف
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-03-2019
رقم العضوية : 12203
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-7-1976
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 5
 offline 
look/images/icons/i1.gif استعلام عن كلفة كل دار
رضى الله عنك اخ ياسر

هو المطلوب

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




14-07-2019 07:40 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif استعلام عن كلفة كل دار
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث و الاستعلام فى الاكسال salim5d
10 391 عبدالله فتحى
الاستعلام عن ارقام الفواتير بدون تكرار عبدالرحمن صبحى
3 174 YasserKhalil
استعلام تحديث بيانات جدول جبرة
0 455 جبرة
الاستعلام بالصورة أو إدارج الصورة محمود الشريف
11 1375 teguera
استعلام عن فترة بين تاريخين عن طريق الليست بوكس ashraf_hertlion
6 564 mohamedyoussef

الكلمات الدلالية
كلفة ، استعلام ،


 







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



الساعة الآن 02:34 صباحا

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