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

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

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




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





عرض كشف الحساب دون معادلات دون الضغط علي الزر

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



24-02-2018 02:05 مساء
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 871
الاعجاب : 241
 offline 

السلام عليكم 
اريد هنا عندما يكتمل  كتابة الفترة واسم الصنف والفرع 
يعطني عرض التقرير  دون الضعط علي اي زر  ملحوظة  دون معادلات 
 لو في كود يكود افضل  المطلوب مرفق ايضا  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  كشف حساب 2018.rar   تحميل rar مرات التحميل :(46)
الحجم :(55.311) KB







24-02-2018 07:01 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14688
الاعجاب : 5483
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
أخي الكريم رمضان
لما ألاحظ أن موضوعاتك غير مكتملة بشكل واضح .. هل تتعمد عدم التوضيح ؟! أم أن ذلك غير متعمد؟! أعتذر لكلماتي ...

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

أمر آخر أرى صورة لكود في ورقة العمل الثانية .. هل هذا هو الكود المطلوب التعديل عليه وإذا كان الأمر كذلك لما لا تضع الكود نفسه في الموديول بدلاً من الصورة؟

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




25-02-2018 12:04 مساء
مشاهدة مشاركة منفردة [2]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 871
الاعجاب : 241
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبا لسلام عليكم 
أخي  ياسر ابو البراء اخيرا 
كيف حالك 
اتفضل  المطلوب كله ان مش عايز عند عرض التقرير مش عايز ادوس علي زر عرض التقرير 
عايز بس لما اكتب اسم الصنف  والفرع  تاريخ البداية والنهاية 
يعرض التقرير اتوماتيك  الغاء الضغط علي الزر عرض 
هنا عملت المطلوب  كما في التقرير مع ألغاء الزر 
 
 
  كشف حساب 2018.rar   تحميل rar مرات التحميل :(34)
الحجم :(56.898) KB






25-02-2018 12:08 مساء
مشاهدة مشاركة منفردة [3]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 871
الاعجاب : 241
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
الموديول الي الاخ  حسام الصقر 
حضرتو عامل الكود ده علي كشف حساب  عايز اطور فيه ويظهر معايا  كما في التقرير  لما اعطي كل المعطيات  يعرض اتوماتيك دون زر 
 





25-02-2018 02:59 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14688
الاعجاب : 5483
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
أخي الكريم رمضان .. لم تستجب لمطلبي في المشاركة السابقة ..
الملف المرفق لا يحتوي على اية أكواد بل مجرد صورة للكود الذي قدمه لك أخونا حسام ، كما أنك لم تلون الخلايا التي بها المدخلات كما طلبت منك
عموماً حاولت فهم المطلوب وإليك الحل التالي عله يفي بالغرض
أولاً في موديول جديد ضع الكود التالي
Sub Test()
    Dim a           As Variant
    Dim b           As Variant
    Dim i           As Long
    Dim j           As Long
    Dim k           As Long

    a = Sheets(1).Range("A3:T" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    Sheets(2).Range("A13:T10000").ClearContents
    
    For i = 1 To UBound(a, 1)
        If a(i, 1) >= Sheets(2).Range("B3").Value And a(i, 1) <= Sheets(2).Range("B4").Value Then
            If a(i, 4) = Sheets(2).Range("E4").Value And a(i, 20) = Sheets(2).Range("H4").Value Then
                k = k + 1
                For j = LBound(a, 2) To UBound(a, 2)
                    b(k, j) = a(i, j)
                Next j
            End If
        End If
    Next i

    If k > 0 Then
        With Sheets(2)
            .Range("A13").Resize(k, UBound(b, 2)).Value = b
        End With
    End If
End Sub


ثم في حدث ورقة العمل الثانية ضع الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3,B4,E4,H4")) Is Nothing Then
        If [B3] = "" Or [B4] = "" Or [E4] = "" Or [H4] = "" Then
            MsgBox "Enter All Required Fields", vbExclamation: Exit Sub
        Else
            Call Test
        End If
    End If
End Sub

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




26-02-2018 12:29 مساء
مشاهدة مشاركة منفردة [5]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 871
الاعجاب : 241
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
السلام عليكم 
حبيبي ابو البراء الغالي 
جزاك الله خيرا ......ده المطلوب بضبط   
و سمحني بالله ....  اولا 
ثانيا  انا لو حضرتك اخذت بالك في الملف المرفق في زر عرض عندما  تدخل المعطيات  الدوس عليه انه به ماكرو  
سوف يعرض معك التقرير  
لكنني كنت عايز هذه الطريقة اللي حضرتك عملتها جزاك الله خيرا 
جعله الله في ميزان حسناتك يارب 
شكرا 
أسف لو كنت  لا  اعرف توصيل المعلومة او المطلوب  





26-02-2018 02:57 مساء
مشاهدة مشاركة منفردة [6]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 871
الاعجاب : 241
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
السلام عليكم 
اخي العزيز ياسر ابو البراء
قد نفذت الكود علي الشيت  اعطني نتيجة  صحيحة عندما نقلت  الاكواد الي شيت العمل الخاص بي  لاتفلح معي من فضلك تطبيق الكود علي الملف المرفق   لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
شكرا مقدم 
جزاك الله خيرا 





26-02-2018 06:30 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14688
الاعجاب : 5483
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
إن شاء الله أحاول إلقاء نظرة على الملف في أقرب وقت .. لأن الموضوع دسم ويحتاج لوقت g

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




26-02-2018 08:36 مساء
مشاهدة مشاركة منفردة [8]
سعد عابد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
يتابعهم : 2
يتابعونه : 1
قوة السمعة : 52
الاعجاب : 18
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
اخى
عدل اسماء الاوراق وخلايا البحث وسيعمل الكود
لان من كتب الكود استاذ كبير
اسال الله ان يبارك لنا فيه


Sub Test()

    Dim a           As Variant
    Dim b           As Variant
    Dim i           As Long
    Dim j           As Long
    Dim k           As Long

    a = Sheet2.Range("A4:T" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    Sheet4.Range("A13:T10000").ClearContents
   
    For i = 1 To UBound(a, 1)
        If a(i, 1) >= Sheet4.Range("B3").Value And a(i, 1) <= Sheet4.Range("B4").Value Then
            If a(i, 4) = Sheet4.Range("E4").Value And a(i, 20) = Sheet4.Range("i4").Value Then
                k = k + 1
                For j = LBound(a, 2) To UBound(a, 2)
                    b(k, j) = a(i, j)
                Next j
            End If
        End If
    Next i

    If k > 0 Then
        With Sheet4
            .Range("A13").Resize(k, UBound(b, 2)).Value = b
        End With
    End If
End Sub

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




26-02-2018 09:04 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14688
الاعجاب : 5483
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
بارك الله فيك أخي الحبيب سعد ومشكور على كلماتك الطيبة ولكم يسعدني مشاركتك بشكل فعال
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط
للمزيد اطلع على الموضوع التالي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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




26-02-2018 09:06 مساء
مشاهدة مشاركة منفردة [10]
سعد عابد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
يتابعهم : 2
يتابعونه : 1
قوة السمعة : 52
الاعجاب : 18
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
اخى ياسر
لا اعرف لماذا لا تستجيب الاقواس مع علمى بكيفية استخدامها
هل عيب متصفح
اسنخدم صلاحياتك وعدل وضعها بين الاقواس





26-02-2018 09:22 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14688
الاعجاب : 5483
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
انقر أولاً على علامة الأقواس وستجد أن كلمة Code مكتوبة مرتين بين أقواس مخصصة (زي الـ HTML ) .. انقر بالماوس داخل القوسين دول والصق الكود وبس خلاص
أعتقد أنك قد نجحت بنسبة كبيرة في التعديل على المشاركة





26-02-2018 09:30 مساء
مشاهدة مشاركة منفردة [12]
سعد عابد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
يتابعهم : 2
يتابعونه : 1
قوة السمعة : 52
الاعجاب : 18
 offline 
look/images/icons/i1.gif عرض كشف الحساب دون معادلات دون الضغط علي الزر
اخى ياسر
كتبتها يدوى فى بداية الكود [code]
وفى نهايته [code/]
ونجحت بطريقة يدوية لان الضغط على الاكواس عندى لا يظهر شئ
 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج تسجيل الحسابات اليوميه Ahmed Samir
10 173 فتحي سلام
برنامج الحسابات العامة والمخازن والمقاولات-The Fastest ali mohamed ali
18 1017 فتحي سلام
شرح برنامج الحسابات للأستاذ /ياسر العربي خالد
17 1770 خالد فيجن
كود مطابقه الحسابات - خاص بالمحاسبين الصقر
21 2905 kartr
مشكلة في سرعة تنفيذ العمليات الحسابية في الاكسل Khairi
6 247 ظفر الله عسكر

الكلمات الدلالية
الحساب ، معادلات ، الضغط ، الزر ،


 







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



الساعة الآن 06:33 مساء

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