السلام عليكم ورحمة الله
صحيح أن عمل أخي الكريم "سليم" يخص CommandButton ولا يخص "مربع نص" (الذي نصه يتغير)... قمت بالتعديل على خصائص مربع النص باختيار خاصية
"Do not Move or Dimension with cells" أي لا تحريك ولا تحجيم حسب الخلايا... راجع الملف المرفق...
بن علية حاجي
تجربة.xlsm
السلام عليكم جميعا ، اقدم لكم برنامج الاول لمراقبة وسداد الاقساط...ونبذة عن البرنامج : 1:مجانى تماما 2:يصل تسجيل العملاء فيه الى5004عميل 3:الحجم خفيف جدا وهو مصمم عالاكسل وسهل الاستخدام وسريع ، 4:فورم دخول بكلمة مرور وهى (12345) ، 5:يحتوى على عدة صفحات منها : أ:الصفحة الرئيسية ، ب:صفحة العملاء "لتسجي بيانات العملاء فيها" ، ج:صفحة حالة العملاء لمراقبة حالة السداد وهى بحالات مثلا تكون الحالة : ١:اوشك على السداد اذا مر٢٧يوم من تاريخ اخر سداد للعميل باللون الاصفر ، ٢:متاخر اذا مر اكثر من٣٠يوم باللون البرتقالى ، ٣:متاخرجدا اذا مر اكثر من٦٢يوم باللون الاحمر ، ٤:وحالات اخرى منها لم يستحق ويقدم للشكوى ، د:صفحة بحث وترحيل "وفيها تقوم بالبحث عن العميل باى حرف من اسمه او من السلعة المباعة له او عنوانه او ان كان ضامن له ويتم سداد قسط العميل منهاوتستطيع تغيير قيمة القسط الافتراضية و لاغراض اخرى . . . " ، ع:صفحة عمليات السداد للعمليات المسددة ، غ:صفحة استعلام مختصر وتكون ب البحث بالكود "يتم جلب كل بيانات العميل بالمدفوع" ، ف:صفحتين فارغتين "ليقوم المستخدم باستخدامهما كيف يشاء" ، ق:صفحة كلمات المرور والصلاحيات "وتقوم فيها بالتعديل على كلمات المرور واعطاء صلاحيات الدخول لكل مستخدم و تغيير اسم المنشأة واسم المدير ليظهرا بالرئيسية وايضا اسم المستخدم يظهر بالرئيسية وفيها تقارير بسيطة للبرنامج ، واخيرا "الدال على الخير كفاعله" والسلام عليكم ورحمة الله وبركاته
برنامج الأول للاقساط..xlsm.zip
لا استطيع فهم المطلوب
بالنسبة لكود الجمع لا لزوم للحلقات التكرارية
يكفي هذا الكود
Sub Collection()
Range("k2:K" & Range("A" & Rows.Count) _
.End(xlUp).Row).Formula = "=SUM(A2:F2)"
End Sub
هذه المعادلة في الخلية O4 واسحب نزولاً
قيمة الحسم تكتب في الخلية S2
الدالة ( 5 , )CEILLNG لتقريب الرقم الى مضاعفات الرقم 5
=IF(N(D4)<=0,"",CHOOSE(((B4<>"")*(D4<>1)*(C4>=3))+1,0,CEILING(N4*($S$2/100),5)))
الملف مرفق
discount_salim.xlsx
السلام عليكم ورحمة الله وبركاتة
اللهم ارزقني حبك وحب من يحبك وحب عمل يقربني الى حبك
أسال المولى عز وجل أن يكرمك بكل الرضى والسعادة
والسلام عليكم ورحمة الله وبركاتةسجل القيدد الإعدادي.xls