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

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


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



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





التعديل على اكود فورمة السلف الشهرية

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



29-09-2019 07:11 مساء
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 Online 

السلام عليكم ورحمة الله وبركاته
الساده المبدعين وعباقرة هذا المنتدى الكبير ادم الله عليكم فضلكم وزادكم من علمه وجعله في ميزان حسناتكم
مرفق لكم فورمه لإدخال مبالغ السلف المالية للعاملين ...
فى حالة الكود غير موجود يقوم بإظها رساله تفيد بأن الكود غير موجود ويرجع مرة آخرى لخانة الكود , فى حالة ترحيل سلفة الموظف يرحل تمام لأول مرة وفى حالة وجود سلفة آخرى لنفس الموظف وفى نفس التاريخ انا محتاج لظهور رساله تفيد بأن هذا الموظف تم ادراج سلفة سابقة له فى التاريخ ويظهر مبلغ السلفة المدرج من قبل كما اريد ان يتيح لى تكملة الكود فى ادارجة مرة آخرى والتعديل على مبلغ السلفة له ان وجد .
لأن وضع السلف في المكان الذى اعمل به يتيح أن  يأخذ الموظف سلفة مالية مقسطة على 5 اشهر أو على 12 شهر ... الخ وممكن يأخد سلفة ايضاً تخصم من راتب الشهر نفسه اى مبلغ قسط السلفة الشهرية + مبلغ السلفة التي أخذها على الشهر
برجاء من حضارتكم مساعدتى في حل هذه المشكلة لأنى فعلاً محتاجها في العمل ضرورى ... تقبلوا منى كل التحية والاحترام
 
 
 
  السلف.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(47.456) KB







29-09-2019 07:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
وعليكم السلام أخي الكريم أشرف

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





29-09-2019 11:46 مساء
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 Online 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
اشكرك استاذى المحترم / ياسر خليل    وأشكر مروك العطر
انا محاسب فى الإدارة المالية وأعمل بقسم الأجور
المشكلة تنحصر فى عند ادخال مبلغ السلفة مرة تانية لنفس الموظف فى نفس التاريخ ( محتاج لإظهار رساله تفيد ان عملية الإدخال هذه مكررة وتظهر البيانات فى تكستات الفورمه لأنه ممكن ومحتمل تعديل البيانات مثلاً لأدخالها خطأ او لتعديلها اكبر أو اقل من المبلغ المدرج .
اما عن اسم ورقة العمل ( LOANS ) وترحل بيانات السلفه للموظف من الأعمدة ( F:A7 ) كما هو موضح ورقة العمل( LOANS )
اما عن اسم الفورمه هو ( Loans_Folower ) .. وعملية ادخال البيانات هو ادخال كود الموظف فى TextBox1 فتظهر بيانات الموظف بمجرد الضغط على كود الموظف من خلال الكود الخاص بـ TextBox1 فى حدث AfterUpdate من خلال ورقة عمل Basic Data ,, وأقوم بإدخال تاريخ حركة السلف فى TextBox3 فى حالة تكرار السلف لنفس الموظف فى نفس التاريخ تظهر MsgBox ("عفواً هذا الكود تم ادخاله مسبقاً") للنتبيه لتكرار عملية الإدخال ويرجع المؤشر الى كود الموظف TextBox1 ولو محتاج ان يستمر فى تكرارعملية الإدخال يقوم بكتابة المبلغ الخاص بالسلفة المدرجة مسبقاً فى TextBox4 وكذلك لو وجد مبلغ توريد لمبلغ السلفه فى TextBox4 يأتى به ايضاً اى عند مرورى على TextBox3 .
تلخيص محتاج هذه الفورمه ان تكون فورمة ادخال وتعديل فى نفس الوقت دون عمل TextBox اكتب فيه كود الموظف للبحث عن بياناته 
ارجوا ان اكون  قد اوضحت لحضرتك المطوب للتعديل لهذا الكود  آسف جداً على الإيطاله 
اشكر حضرتك مقدماً على ما تقدمه لنا من مساعدات جعله الله فى ميزان حسناتك الى يوم القيامة

 





30-09-2019 12:11 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub TextBox3_AfterUpdate()
    Dim ws As Worksheet, r As Long
    
    Set ws = ThisWorkbook.Worksheets("LOANS")
    If Not IsDate(TextBox3) Then MsgBox "You Must Enter Date", vbExclamation: Exit Sub

    For r = 7 To ws.Cells(Rows.Count, 1).End(xlUp).Row
        If Val(TextBox1.Value) = Val(ws.Cells(r, 1).Value) And CDate(TextBox3) = CDate(ws.Cells(r, 3).Value) Then
            TextBox1.SetFocus
            MsgBox "Employee Already Exists", vbExclamation
            TextBox4.Value = ws.Cells(r, 4).Value
            Exit For
        End If
    Next r
End Sub

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




30-09-2019 12:27 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1312
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 53
قوة السمعة : 6073
الاعجاب : 844
 Online 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
موفق دائما ان شاء الله استاذ ياسر

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


30-09-2019 07:45 صباحا
مشاهدة مشاركة منفردة [5]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 Online 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
جزاك الله خيرا استاذى الفاضل / ياسر خليل
الكود يعمل بكفاءة لكن لو هذا الموظف له سلفة سابقة وانا اردت ان اعدل مبلغ هذه السلفة يكتبها فى صف جديد اى انه يزيد رصيد السلفة للموظف المبلغ القديم مثلاً 5000 جنيه + المبلغ الجديد 10000 جنيه وهذا يعتبر غير صحيح انا اريد تعدبل المبلغ المدرج من قبل وليس اضافة جديده لنفس التاريخ بل التعديل ... اشكر حضرتك لسرعة الرد والاهتمام بالموضوع 
تقبل تحياتى لحضرتك والاستاذ/على محمد على





30-09-2019 07:50 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
بالمثال يتضح المقال .. اضرب مثال على الملف نفسه وكيف تقوم بذلك بشكل يدوي ... أخبرتك أنني لا أفهم طبيعة عملك لذا لن أفهم وصفك للمشكلة بهذا الشكل
ضع المعطيات كذا وكذا وشكل النتائج كذا وكذا بناءً على كذا ...





30-09-2019 01:29 مساء
مشاهدة مشاركة منفردة [7]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 Online 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
Nzc1MTAxمثال لتعديل مبلغ السلفهاشكر حضرتك لسرعة الرد والاهتمام بالموضوع  مرفق صورة بها عرض تجربة ومثال للمطلوب ان شاء الله تعالى
 
 
  السلف بعد تجربة الكود الجديد.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(44.525) KB






30-09-2019 05:46 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
جرب تغيير السطر التالي رغم أنني ما زلت لم أفهم المطلوب (وأنا عادةً لا أعمل على التخمين)
TextBox4.Value = Application.WorksheetFunction.SumIfs(ws.Range("D7:D" & lr), ws.Range("A7:A" & lr), Val(TextBox1.Value), ws.Range("C7:C" & lr), CDate(TextBox3.Value))


إذا لم تؤدي الغرض يرجى التوضيح بالصور كوسيلة أخيرة لمحاولة فهم المطلوب





30-09-2019 09:52 مساء
مشاهدة مشاركة منفردة [9]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 Online 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
انا متشكر جداً يا استاذ /ياسر خليل   على سعة صدر حضرتك
انا قمت بعمل ملف ورد وقمت بشرح خطوات تنفيذ عملية ادراج حركة السلف من الفورمه الى ورقة العمل LOANS ويارب اكون قد وفقت فى ان اوضحت لحضرتك فكرة الغرض من استخدام الفورمة لتسجيل حركة السلف للموظفين ..
على فكرة قمت بتجربة الكود الذى ارفقته حضرتك بالمشاركة الأخيرة وظهرت رسالة قمت بإرسالها ايضاً بالمرفقات راجى من الله تعالى ان ييسر لك امرك وان تساعدنى فى حل مشكلتى وأسف جداً على الإطالة
... تقبل احتراماتى وتحياتى لشخص حضرتك وذوقك العالى 142
 
  حالة استبدال الكود.jpg   تحميل jpg حالة استبدال الكود.jpg مرات التحميل :(0)
الحجم :(228.402) KB
 
  عرض المشكلة بالصور.docx   تحميل docx مرات التحميل :(1)
الحجم :(587.763) KB






01-10-2019 06:07 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
جرب الكود بهذا الشكل
Private Sub TextBox3_AfterUpdate()
    Dim ws As Worksheet, r As Long
    
    Set ws = ThisWorkbook.Worksheets("LOANS")
    If Not IsDate(TextBox3) Then MsgBox "You Must Enter Date", vbExclamation: Exit Sub

    For r = ws.Cells(Rows.Count, 1).End(xlUp).Row To 7 Step -1
        If Val(TextBox1.Value) = Val(ws.Cells(r, 1).Value) And CDate(TextBox3) = CDate(ws.Cells(r, 3).Value) Then
            TextBox1.SetFocus
            MsgBox "Employee Already Exists", vbExclamation
            TextBox4.Value = ws.Cells(r, 4).Value
            Exit For
        End If
    Next r
End Sub





01-10-2019 07:48 صباحا
مشاهدة مشاركة منفردة [11]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 Online 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
انا شاكر جداً لسرعة رد حضرتك على المشاركة الأخير يا استاذ/ياسر خليل
لكن الكود لم يلفح والمخرجات بعد استدعاء الحركة الأولى للكود/750 فى نفس التاريخ 25/9/2019 والتعديل عليها اضاف ايضاً حركة جديده بالمبلغ الذى تم تعديله كما فى الصورة المرفقه ... انا عارف اننى قد ارهقتك لكن انا طامع فى كرم وذوق حضرتك فى مساعدتى .
 
 
  بعد التعديل الكود فى تكست بوكس 3.jpg   تحميل jpg بعد التعديل الكود فى تكست بوكس 3.jpg مرات التحميل :(1)
الحجم :(77.358) KB
 






01-10-2019 02:07 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif التعديل على اكود فورمة السلف الشهرية
أعتذر عن المشاركة لعدم قدرتي على فهم المشكلة أخي أشرف ..

إلى الآن منذ بداية الموضوع وقد طلبت شكل النتائج المتوقعة ... لكي يسهل على الأخوة مساعدتك قم بوضع شكل المعطيات وشكل المخرجات أو النتائج المتوقعة







الكلمات الدلالية
التعديل ، اكود ، فورمة ، السلف ، الشهرية ،


 







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



الساعة الآن 01:38 مساء

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