عبد الفتاح كيرة

تفضل اجمالى ارصدة المخزنkemas.rar

لا عليك استاذ ياسر وفقك الله لكل خير

لا بأس أبدا أخى HaNcOcK كلنا نتعلم من بعضنا شكرا أخى abumode75 و بارك الله فيك

فى رأس و تذييل الصفحة إدراج نصتلقائى ثم مسار الملف

شكرا للأخ الحبيب نادر هذا هو الملف بصيغة 2003 توزيع اللجان- لجنتان فى كل صفحة.rar

Application.DisplayFullScreen = True فتح إكسل بملء الشاشة.rar

كده مضبوط تم التعديل Dim rnga As Range Set rnga = Range(myr) Dim myc As Range For Each myc In rnga myc = Application.WorksheetFunction.Sum(Cells(myc.Row, mycola), Cells(myc.Row, mycolb)) Next myc وظيفة للجمع بدلالة عمودين و 1نطاق الناتجkemas.rar

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

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

أخى الكريم يوسف شاهد المرفق لصق معادلة.rar

شوف أخ جلال عملنا وظيفة للجمع Private Function DoIt(mycola As Integer, mycolb As Integer, myr As String) Dim rnga As Range Set rnga = Range(myr) Dim myc As Range For Each myc In rnga myc = Application.WorksheetFunction.Sum(Cells(myc.Row, mycola), Cells(myc.Row, mycolb + 1)) Next myc End Function تحتاج لاستدعائها و عملها 1 - رقم العمود الأول 2 - رقم العمود الثانى 3 - اسم مدى العمود الناتج و لاستدعائها للعمليات الثلاثة الواردة بمثالك نكتب ما يلى Sub sum1() DoIt 1, 2, "rng1" DoIt 4, 5, "rng2" DoIt 3, 6, "rng3" End Sub اسم الوظيفة DoIt رقمى عمودى الجمع المدى الذى سنضع فيه الناتج و هذا نطاق نسميه فى الشيت وظيفة للجمع بدلالة عمودين و نطاق الناتج.rar

أخى يوسف المعادلة الأولى ستكون Range("al3:al1400").FormulaR1C1 = _ "=IF(AND(RC[-25]=""Û"",RC[-24]=""Û"",RC[-23]=""Û"",RC[-22]=""Û"",RC[-21]=""Û"",RC[-20]=""Û"",RC[-19]=""Û"",RC[-18]=""Û"",RC[-17]=""Û"",RC[-16]=""Û"",RC[-15]=""Û"",RC[-14]=""Û"",RC[-13]=""Û"",RC[-12]=""Û"",RC[-11]=""Û"",RC[-10]=""Û"",RC[-9]=""Û"",RC[-8]=""Û"",RC[-7]=""Û"",RC[-6]=""Û"",RC[-5]=""Û"",RC[-4]=""Û"",RC[-3]=""Û"",RC[-2]=""Û"",RC[-1]=""Û"",RC[1]=""Û"",RC[2]=""Û"",RC[3]=""Û"",RC[4]=""Û"",RC[5]=""Û"",RC[6]=""Û"",RC[7]=""Û""),""Û"",SUM(RC[-24],RC[-22],RC[-20],RC[-18],RC[-16],RC[-13],RC[-10],RC[-8],RC[-5],RC[-3],RC[-1]))" ضعها فى الحدث الذى تريده

أخى jazea عندئذ الأمر بسيط لا يحتاج لكود سنسمى المدى b5:d5 RNG فى خاصية RowSourse لليست بوكس نكتب RNG خاصية عدد الأعمدة = 3 انتهى المرفق كود إظهار مدى فى ليست بوكس-KEMAS.rar

عليكم السلام و رحمة الله بارك الله فيكم

أخى HaNcOcK عليكم السلام و رحمة الله و بركاته شكرا لك و تشرفت بمرورك أخى السائل إن شاء الله بعد صلاة العصر أنظر بطلبك

المعادلة =IF(B2>10;"تجاوزت الحد الأقصى";IF(B2>3;"متأخرة";IF(B2<=3;"تحت الإجراء";""))) لكن ماذا لو كانت القيمة = 10

ستكون هكذا Selection.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(R1C2,RNG,8,0)),"""",VLOOKUP(R1C2,RNG,8,0))" مع تغيير selection إلى عنوان الخلية التى ستوضع بها المعادلة

جزاك الله خيرا

شكرا أخى abumode75

إذن أخى خذ الملف 1111111111111-kemas.rar

شكرا جزيلا لمعاونتك أخى عادل بارك الله فيك رأيت أداة كالندر فى أدوات التحكم لكن هل توجد أداة مشابهة أكثر تطورا تلك التى تظهر أيقونتها بجوار مربع النص جزاك الله خيرا

سنحتاج لبرنامج جديد لأن المرتبات الجديدة و الحد الأدنى للأجور فى شهر يوليو القادم

أهلا و سهلا أخى جلال أعددت لك مثالا بفرض أننا نريد جمع a2 - b2 a3-b3 a4-b4 ونريد الجمع فى c2-c4 المعادلة بالكود تصير هكذا Range("c2:c4").Formula = "=sum(a2,b2)" و هنا تظهر المعادلة فى خلايا الجمع مع اختلاف الفاصلة و الفاصلة المنقوطة أما باستخدام الوظيفة المبيتة فيكون الكود Sub زر2_انقر() Dim myrng As Range, myc As Range Set myrng = Sheets(1).Range("c2:c4") myrng.ClearContents For Each myc In myrng myc = Application.WorksheetFunction.Sum(Range("a" & myc.Row, Range("b" & myc.Row))) Next myc End Sub و هنا لا تظهر للمعادلة أثر و يظهر حاصل الجمع فقط جرب الزرين بالمثال ولاحظ الفرق موفق إن شاء الله الجمع بكود المعادلة أو كود الوظيفة.rar

و الله أنتم المتميزون بخلقكم العالى جزاكم الله خيرا أخى أحمد زمان أخى هانكوك أخى محمدى بارك الله فيكم

الليلة أنا أعمل بصورة بدائية لكنها توفى بالغرض الطلب الأول =IF(MOD(A3*10;10)<5;ROUNDDOWN(A3;0);ROUNDUP(A3;0)) الطلب الثانى =IF(MOD(E3*10;10)<5;ROUNDDOWN(E3;0);IF(MOD(E3*10;10)=5;E3;IF(MOD(E3*10;10)>5;ROUNDUP(E3;0)))) لو احتجت الملف أخبرنى أرفعه