ghpryal2010

الف شكر تم حل المشكلة لكن هناك مشكلة اخرى عند ترحيل البيانات للشيت يتم الترحيل وعند اضافة بيانات اخرى لا ينقل للسطر الثانى بل يتم الكتابة علي نفس السطر ويتم كتابة البيانات الجديدة مكانها Private Sub CommandButton6_Click() If UserForm1.TextBox10.Value = "" Or UserForm1.TextBox11.Value = "" Or UserForm1.TextBox12.Value = "" Or UserForm1.TextBox13.Value = "" Or UserForm1.TextBox14.Value = "" Or UserForm1.TextBox15.Value = "" Then MsgBox "من فضلك ادخل البيانات كاملة" Else End If Worksheets("sheet2").Cells(8, 3).Value = TextBox10.Value Worksheets("sheet2").Cells(8, 4).Value = TextBox11.Value Worksheets("sheet2").Cells(8, 5).Value = TextBox12.Value Worksheets("sheet2").Cells(8, 6).Value = TextBox13.Value Worksheets("sheet2").Cells(8, 7).Value = TextBox14.Value Worksheets("sheet2").Cells(8, 8).Value = TextBox15.Value TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox10.SetFocus End Sub التطوير.rar

شكرا جزيلا لردكم السريع والمحترم ولكنى اريد حل لهذا الكود لان بقيت الاكواد تعمل بكفاءة هذا الكود به مشكلة المفروض انى عملت هذا الكود في حالة عدم وجود بيانات بالفورم وعند الضغط علي زر حفظ البيانات تظهر رسالة تطلب ادخال البيانات وعند كتابة لبيانات وضغط زر حفظ لا تظهر تلك الرسالة لكن المشكلة تظهر الرسالة حتى عند كتابة البيانات ارجوا مساعدتى Private Sub CommandButton6_Click() If UserForm1.TextBox10.Value = "" Or UserForm1.TextBox11.Value = "" Or UserForm1.TextBox12.Value = "" Or UserForm1.TextBox13.Value = "" Or UserForm1.TextBox14.Value = "" Or UserForm1.TextBox15.Value = "" Then MsgBox "من فضلك ادخل البيانات كاملة" Else End If Worksheets("sheet2").Cells(8, 3).Value = TextBox10.Value Worksheets("sheet2").Cells(8, 4).Value = TextBox11.Value Worksheets("sheet2").Cells(8, 5).Value = TextBox12.Value Worksheets("sheet2").Cells(8, 6).Value = TextBox13.Value Worksheets("sheet2").Cells(8, 7).Value = TextBox14.Value Worksheets("sheet2").Cells(8, 8).Value = TextBox15.Value TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox10.SetFocus End Sub

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

بسم الله تم انجاز شيت اكسيل لحساب قيمة الاشتراك بنقابة المعلمين ولكن توجد مشكلة في المعادلة وارجوا من لديه معلومة في تصحيح الخطا فلا يبخل بها علينا وهذا رابط لفكرة البرنامج منذ البداية وحتي الوصول للمشكلة https://www.officena.net/ib/topic/69459-%D8%B7%D9%84%D8%A8-%D9%85%D8%B3%D8%A7%D8%B9%D8%AF%D8%A9-%D9%81%D9%8A-%D8%B7%D8%B1%D9%8A%D9%82%D8%A9-%D8%AD%D8%B3%D8%A7%D8%A8-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%D9%83-%D9%86%D9%82%D8%A7%D8%A8%D8%A9-%D8%A7%D9%84%D9%85%D8%B9%D9%84%D9%85%D9%8A%D9%86/#comment-452062 وارفق لكم نسخة من الشيت بها مشكلة عند طرح تاريخ الاشتراك من تاريخ الاعفاء في هذا المثال كالاتي تاريخ الاعفاء هو 1/1/2025 وتاريخ الاشتراك بالنقابة 1/1/2026 وعند الطرح يكون الفرق سنة واحدة ليست سنة ويوم كما بالصورة لان فرق يوم يحسب سنة كاملة وتحسب السنة علي اساس 365 يوم فقط لان السنة تحسب بالنقابة علي 365 يوم ولا ينظر للاشهر 31 يوم والسنة الكبيسة علما بان المثال كما هو مرفق بالشيت الفرق سنة واحدة وليست سنة ويوم وحيث ان كسر السنة يحسب بسنة فاليوم هنا يحسب بسنة اخر فارجوا التعديل بالشيت بحيث تصبح المعادلة سليمة ويكون الناتج سنة فقط وليس سنة ويوم حساب اشتراك النقابة.rar

تم انشاء شيت اكسيل لحساب فروق اشتراك بمساعدة الاستاذ سليم النقابة ولكن ظهرت مشكلة عند طرح تاريخ الاشتراك بالنقابة من حد الاعفاء ظهرت المشكلة التالية ارجوا من احد الاشخاص مساعدتي بحلها ارجوا من سيادتكم التعديل بالملف لكي يكون عند طرح تاريخ الاشتراك من تاريخ الاعفاء في هذا المثال كالاتي تاريخ الاعفاء هو 1/1/2025 وتاريخ الاشتراك بالنقابة 1/1/2026 وعند الطرح يكون الفرق سنة واحدة ليست سنة ويوم كما بالصورة لان فرق يوم يحسب سنة كاملة وتحسب السنة علي اساس 365 يوم فقط لان السنة تحسب بالنقابة علي 365 يوم ولا ينظر للاشهر 31 يوم والسنة الكبيسة ولان ذلك يؤدي الي دفع المشترك لمبلغ مالي زيادة عن المطلوب لان اليوم بالنقابة مثل السنة عند الدفع فبدلا من ان يدفع هذا الشخص 135 جنيه اصبح المبلغ اللي عليه270 جنيه بسبب هذا اليوم كما بالصورة وارفق لكم الشيت sheet.rar

استاذي الفاضل استاذ سليم ارجوا من سيادتكم التعديل بالملف لكي يكون عند طرح تاريخ الاشتراك من تاريخ الاعفاء في هذا المثال كالاتي تاريخ الاعفاء هو 1/1/2025 وتاريخ الاشتراك بالنقابة 1/1/2026 وعند الطرح يكون الفرق سنة واحدة ليست سنة ويوم كما بالصورة لان فرق يوم يحسب سنة كاملة وتحسب السنة علي اساس 365 يوم فقط لان السنة تحسب بالنقابة علي 365 يوم ولا ينظر للاشهر 31 يوم والسنة الكبيسة

شكرا استاذ سليم علي التوضيح

عزيزي مستر سليم شكرا علي تعبكم وردودك الجميلة اخي العزيزي برجاء حل هذه المشكلة الظاهرة بالصور المرفقة حيث ان بطرح تاريخ اشتراك النقابة وهو 1/1/2019 من تاريخ الاعفاء وهو 1/1/2013 تظهر مدة الفروق كما بالصورة سنة 6 شهور 0 ويوم6 ونلاحظ في المثال زيادة 6 ايام وحيث ان اليوم يحسب سنة فالحساب اصبح غير صحيح برجاء مراجعة الصورة وحل المشكلة لو تم الحساب بطريقة صحيح يصبح 6 سنوات بدون كسور في 135 جنيه 810 جنيها

شكرا يا استاذ سليم علي مجهودك بس ياريت تشرح لي المعادلات المستخدمة وتوضيح للتعديل اذا كان شادي احد المشتركين بالنقابة تاريخ ميلاده 18/3/1998 وبعد اضافة 25 عام لناريخ الميلاد اصبح معفي من فرق اشتراك النقابة حتي 18/3/2023 واشترك بالنقابة 10/2/2015 فاذا هو معفي حتي العام 2023 فلا يكون عليه اي فروقات للدفع ياريت تعدل الشيت لان الشيت بيظهر عليه فروقات ياريت تعدل الشيت كله وفق المعلومة دي حيث ان حد الاعفاء اذا تساوي تاريخ اشتراك النقابة او اقل منه لا يدفع المشترك اي فروق اما من يزيدتاريخ اشتراك النقابة له عن حد الاعفاء هو من يدفع

بسم الله الرحمن الرحيم اشكر كل القائمين علي موقع ومدونة اوفيسينا وارجوا منهم مساعدتي في انجاز هذا الشيت الشيت يقوم علي ادخال تاريخ ميلاد العضو فيقوم الشيت تلقائيا باضافة 25 سنة لتاريخ العضو ويسمي الناتج من هذه العملية حد الاعفاء من دفع فروق الاشتراك بالنقابة تاريخ الميلاد +25 سنة = حد الاعفاء بعد استخراج حد الاعفاء نقوم بكتابة تاريخ دفع اول اشتراك بالنقابة يدويا للشيت ثم يقوم الشيت بطرح تاريخ اول اشتراك بالنقابة من حد الاعفاء ويوضح لنا المدة المطلوب السداد عنها وهي تكون فرق المدة بين حد الاعفاء وبين تاريخ الاشتراك تاريخ اول اشتراك بالنقابة - تاريخ حد الاعفاء = فرق المدة المطلوب السداد عنها الاشتراك وهناك حالاتين لابد ان نلاحظهما اذا كان تاريخ حد الاعفاء اكبر من تاريخ اول اشتراك بالنقابة فلا يكون عليه اي مدة مستحقة للدفع اما اذا كان تاريخ حد الاعفاء اقل من تاريخ اول اشتراك يوجد فرق يجب الدفع عليه المطلوب صياغة معادلة لحساب هذا الاشتراك علما بان قيمة الاشتراك عن السنة الواحدة 135 جنيه ويحسب اليوم او الشهر او كسر السنة بسنة كاملة عند الحساب يجب التوريد علها في المرفقات مثال علي المطلوب شيت حساب مدة الاشتراك بالنقابة.rar