طارق محمود

سهلة إن شاء الله إن لم يتدخل أحد حتي نهاية الدوام عندي سأبدأ فيها

السلام عليكم مرفق الملف وبه حل المشكلتين

السلام عليكم بالمرور السريع علي المرفقات وجدت التالي الملفات باللغة الهنجارية (المجرية) المرفقات بها ملفين الملف الاول Ozeki.xls الملف الثاني Messages.xls الملف الاول Ozeki.xls وبه الكود الرئيسي للبرنامج لابد أن تكون فاتح الملفين قبل تشغيل الكود وبتشغيله يذهب للملفات المفتوحة غير Ozeki.xls وفي حالتنا هذه يجد الملف الثاني Messages.xls فيرسل الرسائل التي به بالعمود B من أول B1 نزولا وترسل الرسائل للأرقام التي به بالعمود A من أول A1 نزولا كل هذا جميل ولكن يعتمد الملف علي موقع خاص وخادم خاص Server مدفوع من قبل وعنوان هذا الـ Server في الملف الاول Ozeki.xls هو كما الخلية B3 ، هو : 127.0.0.1:9501 وطبعا بعد تسرب الملف (لأنه مدفوع الأجر ليس مجانا) بدليل حصولك عليه قام المبرمج بتغيير السيرفر أو الباسوورد

السلام عليكم كان عندك نقطتين 1- تجميد الاطارات كما لاحظت 2- الحد الرابع من الدالة VLOOKUP VLOOKUP(1, 2, 3, 4) وهو حد إختياري يتم فرضه True يعني 1 إذا لم تعينه وفي حالتنا هذه كان المفروض أن يكون 0 أو False وذلك حتي لايعطي نتائج تقريبية

السلام عليكم لاأدري (فلست محاسبا) إن كان هذا ماتريد أم لا تفضل المرفق msa2.rar

الأخ الكريم أبوفاطمة تفضل الملف المرفق الترقيم المشروط لجان1.rar

الأخ الفاضل gssaar تم حل الملف علي الرابط السابق

السلام عليكم تفضل أخي الكريم المرفق كشف حساب التأخير.rar

الأخ الفاضل gssaar إرسل الملف بما تريد

لاأدري هل هذا هو ماتريد الترقيم المشروط مجموعات.rar

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم لايوجد فائدة في هذه المسألة فقط يتم توزيع المبلغ علي أقساط متساوية والفروق تكون في آخر قسط المعادلات فقط لعمل التالي ايجاد عدد الاقساط حساب قيمة القسط الاخير عدم كتابة شيء في الخلايا التي تتعدي ذلك

السلام عليكم أرجو أن يكون المرفق هو ماتريد حساب2.zip

السلام عليكم نظرا لضيق وقتي ساساهم فقط برفع الملف هنا مؤقتا وليتدخل من يشاء من الأحباب لصديقنا أحباب ex.zip

وعليكم السلام ورحمة الله وبركاته أخي وحبيبي أبا البراء

السلام عليكم تفضل المرفق اسم المجموعة.rar

لإرفاق الملف لابد من ضغطه أولا عن طريق winrar أو winzip ثم رفع الملف المضغوط

لإرفاق الملف لابد من ضغطه أولا عن طريق winrar أو winzip ثم رفع الملف المضغوط

تفضل 12345_New4.rar

السلام عليكم لاأدري إن كان هذا ماتريد أم لا تفضل المرفق وقل لي النتيجة 12345_New3.rar

الملف لم يٌرفع بعد يلزمك ضغطه أولا بصيغة winrar أو winzip ثم رفع الملف المضغوط ========== مرفق ملف به المعادلة التي أوضحتها لك في المشاركة السابقة Round.rar

إن كنت تريد أن تجمعها كأرقام صحيحة ويكون الجمع متضمنا التقريب لكل رقم علي حدي فيمكنك بدلا من استخدام صيغة SUM يمكنك استخدام صيغة SUM(ROUND( ولكن بصيغة صفيف أي بدلا من ضغط زر Enter في آخر المعادلة تضغط أزرار Shift-Ctrl-Enter معا

السلام عليكم أخي العزيز أنت لم توضح جيدا إن كنت تقصد آخر يوم عمل في نصف السنة المالية السابق وآخر يوم عمل في السنة المالية السابقة أنظر المرفق مرة أخري 12345_New2.rar

السلام عليكم بعد إذن أخي الحبيب / ياسر أنا فهمت المقصود أخي الكريم / توكل يمكنك إضافة دالة التقريب لرقمين عشريين مثلا في ثلاث مواضع في الكود كالتالي Sub dataselect() T = Round([D21], 2) ' Target Number 1 [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1 Sm = Cells(r, 2) For j = r + 1 To LR Sm = Sm + Cells(j, 2) If Round(Sm, 2) > T Then GoTo 10 '2 If Round(Sm, 2) = T Then GoTo 20 '3 Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهي طبعا Round(X, 2) حيث X هو الرقم المراد تقريبه كما لاحظت المواضع الثلاثة هي: T = Round([D21], 2) ' Target Number 1 .. .. .. .. If Round(Sm, 2) > T Then GoTo 10 '2 If Round(Sm, 2) = T Then GoTo 20 '3

السلام عليكم تفضل أخي جرب الكود التالي Sub dataselect() T = [D21] ' Target Number [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1 Sm = Cells(r, 2) For j = r + 1 To LR Sm = Sm + Cells(j, 2) If Sm > T Then GoTo 10 If Sm = T Then GoTo 20 Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهذا المرفق به الكود SUM.rar